retz12
Goto Top

VB Nachricht am Desktop Ordner zu groß

Hallo,

Ich habe öfter das Problem, dass User Ihre Daten auf dem Desktop ablegen und sich dann auch immer beschweren, warum die Anmeldung am Netzwerk immer so langsam ist. Ist wohl klar, wenn zig MB auf dem Desktop liegen und diese immer neu vom Server(Windows 2003) geholt wrden müssen, dass es schon ne weile dauern kann.

Jetzt dachte ich mir, ich schreibe ein zusätzliches vb Script zum Anmeldescript, dass den User warnt, wenn die größe der Dateien am Desktop zu groß wird. (zb. ab 10 MB im Ordner C:/Dokumente und Einstellungen/%User%/Deskop überschreitet, dass eine Meldung kommt. Bitte Dateien vom Desktop auf das User Laufwerk verschieben.

Kann mir jemand helfen, wie ich dieses realisieren kann. Kenne mich noch nicht wirklich gut mit vb aus.

Danke

Content-ID: 98547

Url: https://administrator.de/contentid/98547

Ausgedruckt am: 14.11.2024 um 19:11 Uhr

bastla
bastla 06.10.2008 um 16:14:36 Uhr
Goto Top
Hallo retz12!

Etwa so:
set fso = CreateObject("Scripting.FileSystemObject")  
set WshShell = WScript.CreateObject("WScript.Shell")  
strDesktop = WshShell.SpecialFolders("Desktop")  
lngSize = fso.GetFolder(strDesktop).Size
If lngSize > 10000000 Then
    WScript.Echo "Bitte Dateien vom Desktop auf das User Laufwerk verschieben." & vbCrLf & vbCrLf & _  
	    "Es werden bereits " & FormatNumber(lngSize,0,,,True) & " Bytes dafür benötigt!"  
End If
Dass bei der Größenbestimmung auch alle Unterordner des Desktops mit erfasst werden, sollte im Sinn der Sache sein ...
Grüße
bastla
retz12
retz12 06.10.2008 um 17:04:00 Uhr
Goto Top
Hallo Danke,
das ist ja rasch gegangen und funktioniert auch super.

Nur zur besseren übersicht, wie kann ich die ausgegebene Zahl in MB angeben lassen. Die meinsten verstehen ja nicht was Bytes sind.
bastla
bastla 06.10.2008 um 17:25:50 Uhr
Goto Top
Hallo retz12!

In Bytes schaut's aber imposanter aus ... face-wink

Ansonsten:
lngSize = fso.GetFolder(strDesktop).Size / 1024 / 1024
und den Rest anpassen.

Grüße
bastla