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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 98547
Url: https://administrator.de/contentid/98547
Printed on: April 25, 2024 at 12:04 o'clock
3 Comments
Latest comment
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
