Hallo,
ich habe ein kleines Skript geschrieben, das mir alle Ordner inklusive Pfad mit mehr als 256 Zeichen auflisten soll. Eigentlich sollte das ja von Windows von vornerein unterbunden werden, aber die Praxis zeigt, man schafft es doch immer wieder.
Also mein Skript soll ein Netzlaufwerk scannen und alle Ordner inklusive Pfad auflisten, die mehr als 256 Zeichen haben.
Hier mal mein Code:
Mein Problem ist, das mein Skript in dieser Zeile einen Fehler erzeugt, wenn der Ordner inklusive Pfad mehr als 256 Zeichen hat:
gruß klaus.
ich habe ein kleines Skript geschrieben, das mir alle Ordner inklusive Pfad mit mehr als 256 Zeichen auflisten soll. Eigentlich sollte das ja von Windows von vornerein unterbunden werden, aber die Praxis zeigt, man schafft es doch immer wieder.
Also mein Skript soll ein Netzlaufwerk scannen und alle Ordner inklusive Pfad auflisten, die mehr als 256 Zeichen haben.
Hier mal mein Code:
Code:
Option Explicit
Dim Pfad
Pfad = "Q:\"
Dim File
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Folder
Set Folder = fso.GetFolder(Pfad)
findFiles Folder
WScript.Quit
Sub findFiles(Strfolder)
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim Folder
Set Folder = fso.GetFolder(StrFolder)
Dim SubFolder
For Each SubFolder in folder.SubFolders
findFiles SubFolder
addtoFile "Länge: " & SubFolder & " " & SubFolder & "<br>", "C:\over256.htm"
Next
End Sub
Function addtoFile (ByRef inhaltLog, ByRef clientname)
SET fso = CreateObject ("Scripting.FileSystemObject")
DIM clientlog
SET clientlog = fso.OpenTextFile (clientname,8,TRUE)
'Logdatei schreiben:
clientlog.Writeline inhaltLog
clientlog.close
End Function
Mein Problem ist, das mein Skript in dieser Zeile einen Fehler erzeugt, wenn der Ordner inklusive Pfad mehr als 256 Zeichen hat:
Code:
For Each SubFolder in folder.SubFolders