8
Suche script was mich den zu suchen Ordner angeben lässt und ab welcher größe er angezeigt werden soll!
Hallo liebe Gleichgesinnte,
ich bin Speicheradministrator und suche ein script was mir im "User" verzeichnis alle Desktopordner angibt die > 1 mb sind.
Ich hatte es mir so vorgestellt, das ich dem script das laufwerk bekannt mache und ihm dann sage nach welchem Ordner er suchen soll und weiter wie groß die Ordner min. sein sollen damit sie angezeit werden. Das ganze soll am besten in eine .txt mit dem Pfad geschrieben werden wo die Desktopordner sich befinden.
Ich wäre euch sehr dankbar für eure Hilfe.
ich bin Speicheradministrator und suche ein script was mir im "User" verzeichnis alle Desktopordner angibt die > 1 mb sind.
Ich hatte es mir so vorgestellt, das ich dem script das laufwerk bekannt mache und ihm dann sage nach welchem Ordner er suchen soll und weiter wie groß die Ordner min. sein sollen damit sie angezeit werden. Das ganze soll am besten in eine .txt mit dem Pfad geschrieben werden wo die Desktopordner sich befinden.
Ich wäre euch sehr dankbar für eure Hilfe.
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: 181003
Url: https://administrator.de/contentid/181003
Printed on: April 16, 2024 at 19:04 o'clock
8 Comments
Latest comment
Hallo zorn89 und willkommen im Forum!
Ein VBScript könnte etwa so aussehen:
Dieses Script (beispielsweise gespeichert als "D:\Scripts\ListBigFolders.vbs ") erwartet den Startordner als Aufrufparameter und wäre daher aus einem CMD-Fenster etwa so zu starten:
Um eine Textdatei zu erstellen, genügt es, die Ausgabe umzuleiten:
Es kann natürlich auch der Startordner in Zeile 1 fest verdrahtet werden:
Auch das Erstellen der Datei lässt sich in das Script aufnehmen - dazu nach (oder anstatt) Zeile 8 einfügen:
Grüße
bastla
Ein VBScript könnte etwa so aussehen:
StartFolder = WScript.Arguments(0)
FolderName = "Desktop" 'gesuchter Ordnername
Limit = 1000000 'Untergrenze Ordnergröße in Bytes
Result = ""
Set fso = CreateObject("Scripting.FileSystemObject")
DoSubFolders fso.GetFolder(StartFolder)
WScript.Echo Result
Sub DoSubFolders(Folder)
For Each SubFolder in Folder.SubFolders
If LCase(SubFolder.Name) = LCase(FolderName) Then ' Groß-/Kleinschreibung bei der Prüfung des Ordnernamens ignorieren
If SubFolder.Size > Limit Then
Result = Result & Chr(34) & SubFolder.Path & Chr(34) & ";" & SubFolder.Size & vbCrLF
End If
Else 'weitersuchen
DoSubFolders SubFolder 'Rekursion
End If
Next
End Subcscript //nologo D:\Scripts\ListBigFolders.vbs D:\Users
cscript //nologo D:\Scripts\ListBigFolders.vbs D:\Users >D:\BigFolders.txt
StartFolder = "D:\Users"
fso.CreateTextFile("D:\BigFolders.txt").Write Result
bastla
Hi Bastla,
erst mal vielen dank für deine Antwort.
Ich hab mal ein wenig gesucht, weil immer in zeile 7 ein fehler geworfen wird "Laufzeitfehler in MS VBScript: Der Pfad wurde nicht gefunden." und dabei festgestellt, dass ich die FSO's erstmal iwo global bkanntmachen muss. Ich schreibe in notepad++, aber da kann ich das iwie nicht finden. Weiß jemand von euch einen Tip oder die Lösung?
erst mal vielen dank für deine Antwort.
Ich hab mal ein wenig gesucht, weil immer in zeile 7 ein fehler geworfen wird "Laufzeitfehler in MS VBScript: Der Pfad wurde nicht gefunden." und dabei festgestellt, dass ich die FSO's erstmal iwo global bkanntmachen muss. Ich schreibe in notepad++, aber da kann ich das iwie nicht finden. Weiß jemand von euch einen Tip oder die Lösung?
Hallo zorn89!
Wie startest Du denn das Script? Die Fehlermeldung deutet eher darauf hin, dass Du den Startordner nicht (richtig) übergibst (denn das "FileSystemObject" kennt das Script schon seit Zeile 6) ...
Grüße
bastla
Wie startest Du denn das Script? Die Fehlermeldung deutet eher darauf hin, dass Du den Startordner nicht (richtig) übergibst (denn das "FileSystemObject" kennt das Script schon seit Zeile 6) ...
Grüße
bastla
Ich habe insgesamt zwei Dateien, einmal das Script an sich und eine "start.bat," inder der Aufruf des Scripts vorgenommen wird.
'Start.bat
call cscript C:\Scripts\ListBigFolders.vbs W:\Users >C:\Temp\BigFolders.txt
pause
Das ist eig. alles und ich muss es leider so aufrufen, da die Assoziation auf .vbs Datei per gpo Richtline entfernt wurde. ^^
'Start.bat
call cscript C:\Scripts\ListBigFolders.vbs W:\Users >C:\Temp\BigFolders.txt
pause
Das ist eig. alles und ich muss es leider so aufrufen, da die Assoziation auf .vbs Datei per gpo Richtline entfernt wurde. ^^
Hallo zorn89!
Besser wäre zwar
aber daran soll's nicht scheitern - damit bleibt die Frage, ob es beim Start des Scripts den Pfad "W:\Users" gibt (Mapping?) und ob Du auch die nötigen Berechtigungen für alle zu prüfenden Ordner hast (sollte ggf allerdings zu "Permission denied" führen) ...
Grüße
bastla
P.S.:
Besser wäre zwar
cscript //nologo C:\Scripts\ListBigFolders.vbs W:\Users >C:\Temp\BigFolders.txt
Grüße
bastla
P.S.:
ich muss es leider so aufrufen
Über "WScript.exe" würdest Du das ohnehin nicht wollen ...
Hallo Bastla,
ich glaubs ja nicht, es läuft durch! Super ich danke dir! Aber eig. sollte es nicht daran liegen! Aber es läuft, vielen Dank!
Eine kleine frage hätte ich noch, kann ich im script gleich die umrechnung in MB mit einbeiehen, sodass in der txt die Größe in MB steht?
Vielen Dank!
Zorn
ich glaubs ja nicht, es läuft durch! Super ich danke dir! Aber eig. sollte es nicht daran liegen! Aber es läuft, vielen Dank!
Eine kleine frage hätte ich noch, kann ich im script gleich die umrechnung in MB mit einbeiehen, sodass in der txt die Größe in MB steht?
Vielen Dank!
Zorn
Hallo zorn89!
Etwa so:
- passend dazu: http://technet.microsoft.com/en-us/library/ee176975.aspx
Grüße
bastla
Etwa so:
Result = Result & Chr(34) & SubFolder.Path & Chr(34) & ";" & FormatNumber(SubFolder.Size / 1048576, 2) & vbCrLF
Grüße
bastla
Hallo Bastla,
Vielen Dank für deine super Hilfe!
LG
Vielen Dank für deine super Hilfe!
LG
