3
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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 98547
Url: https://administrator.de/contentid/98547
Ausgedruckt am: 22.11.2024 um 00: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 IfGrüße
bastla
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.
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.
Hallo retz12!
In Bytes schaut's aber imposanter aus ...
Ansonsten:
und den Rest anpassen.
Grüße
bastla
In Bytes schaut's aber imposanter aus ...
Ansonsten:
lngSize = fso.GetFolder(strDesktop).Size / 1024 / 1024Grüße
bastla
