Ich will eine große Ordner Stuktur auf Pfadlängen hin Prüfen, weil sich hier Pfade mit mehr als 255 Zeichen eingeschlichen haben.
Das kann man erreichen wenn man z.B. eine Übergeordnetes Verzeichnis eines solchen langen Pfades umbenennt (mit mehr Zeichen als erlaubt).
Das geht leider
Ich habe eine Kopierfunktion etas abgewandelt, und das Zählen klappt soweit.
Leider steigt das Script genau da aus, wofür ich es geschrieben habe
Dann wenn mehr als 260! Zeichen erreicht werden
Hier die betreffende Stelle im Script:
Code
Func Count($Dir)
local $fileHandle, $File, $Path, $Destination , $Fixed, $Count2
$fileHandle = fileFindFirstFile($Dir & "" & "*.*")
if ($fileHandle <> -1) then
while (1)
$file = fileFindNextFile($fileHandle)
if (@error = 1) then exitLoop
if ($file = "." or $file = "..") then continueLoop
$file = $path & "" & $file
$Count2 = $Count2 + 1
wend
fileClose($FileHandle)
Endif
$CurrentDirQty = $Count2
Endfunc
Alles anzeigen