Hallo,
also hier mal ein schnell zusammengebautes Script (original hier ) Probleme bereiten noch dateien, auf die der Zugriff aus welchen Gründen auch immer nicht möglich ist, da steigt das Script aus. Soll ja aber auch nur als Anregung dienen!
Von hier ab ausschneiden, als suche_datei.vbs abspeichern und an den beschriebenen Stellen anpassen.
'------------FileSearch.vbs---------------------
Set fso = CreateObject("Scripting.FileSystemObject")
' In der nächsten Zeile den Suchordner anpasssen
set root=fso.getFolder("d:\")
' In der nächsten Zeile die Ausgabedatei bestimmen
set oFile=fso.CreateTextFile("c:\Testfile.txt")
call folderlist(root)
sub folderlist(grp)
call filelist(grp)
for each fldr in grp.subFolders
set nf=fso.GetFolder(fldr.path)
call folderlist(nf)
set nf=nothing
next
end sub
sub filelist(grp)
for each file in grp.files
laenge=len(file) + len (path)
oFile.writeLine file.path & " Länge = " & laenge
next
end sub
'---------------------------------------------------
hier nicht mehr ausschneiden!
das erzeugt dann in etwa folgende datei C:\Testfile.txt
D:\mwmlog.txt Länge = 13
D:\Dokumente\Fax\fax00012.sff Länge = 29
D:\Dokumente\Fax\fax00013.mmr Länge = 29
D:\Dokumente\Fax\fax00013.m_r Länge = 29
D:\Dokumente\Fax\fax00013.sff Länge = 29
D:\Dokumente\ppc1 My Documents\Canoe.jpg Länge = 40
D:\Dokumente\ppc1 My Documents\cerralf.cer Länge = 42
D:\Dokumente\ppc1 My Documents\cerralf64.cer Länge = 44
D:\Dokumente\ppc1 My Documents\certcrl.crl Länge = 42
D:\Dokumente\ppc1 My Documents\certnew.cer Länge = 42
D:\Dokumente\ppc1 My Documents\certnew.p7b Länge = 42
D:\Dokumente\ppc1 My Documents\cert_ralf.cer Länge = 44
D:\Dokumente\ppc1 My Documents\cert_ralf.p7b Länge = 44
D:\Dokumente\ppc1 My Documents\Couple.jpg Länge = 41
D:\Dokumente\ppc1 My Documents\crtimprt.cfg Länge = 43
Jetzt kann man noch if- Schleifen für Längen grösser x einbauen und und und
Gruss
Elblindo
elblindo
