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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 98547
Url: https://administrator.de/contentid/98547
Ausgedruckt am: 14.11.2024 um 19:11 Uhr
3 Kommentare
Neuester Kommentar
Hallo retz12!
Etwa so:
Dass bei der Größenbestimmung auch alle Unterordner des Desktops mit erfasst werden, sollte im Sinn der Sache sein ...
Grüße
bastla
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
Grüße
bastla