1. Dezember 2016 11:35
Hallo,
ich hatte heute die Anforderung "leere Ordner" per Massenlauf zu löschen.
Es gibt einige Tipps hier im Forum die bei der Prodblematik "File Record maximale Pfadlänge 98 Zeichen" auf mibuso verweisen - leider sind die Links inzwischen tot.
Hier die Lösung bei langen Pfaden und der Anforderung nur leere Ordner zu löschen:
Automation Var:
MicrosoftScriptingRuntime = 'Microsoft Scripting Runtime'.FileSystemObject
MicrosoftScriptingRuntimeFold = 'Microsoft Scripting Runtime'.Folder
- Code:
IF ISCLEAR(MicrosoftScriptingRuntime) THEN
CREATE(MicrosoftScriptingRuntime);
IF MicrosoftScriptingRuntime.FolderExists(p_ordner) THEN BEGIN //prüft ob es den Ornder gibt
MicrosoftScriptingRuntimeFold:=MicrosoftScriptingRuntime.GetFolder(p_ordner); //weißt den Ordner der zweiten Automation zu.
IF FORMAT(MicrosoftScriptingRuntimeFold.Size) = '0' THEN //prüft ob der Ordner leer ist
MicrosoftScriptingRuntime.DeleteFolder(p_ordner,TRUE); //Löscht den Ordner
END;
Geht vielleicht auch elegater - hat mir so aber geholfen.
Gruß Matthias