
52106
21.03.2011
.vbs Script Fehler Der Pfad wurde nicht gefunden
Hallo,
ich bekomme bei folgendem Script folgende Fehlermeldung: "Der Pfad wurde nicht gefunden" Code: 800A004C Zeile 12 Zeichen 1
Laufzeitfehler
"
Basis = "N:\"
Alter = 14
Behalten = "#"
For i = Date To Date - Alter Step -1
Behalten = Behalten & Year(i) & Right("0" & Month(i), 2) & Right("0" & Day(i), 2) & "#"
Next
Entfernen = "Gelöscht würden:" & vbCrLf
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Folder In fso.GetFolder(Basis).SubFolders
If Instr(Behalten, "#" & Left(Folder.Name, 8) & "#") = 0 Then
Entfernen = Entfernen & vbCrLf & Folder.Path
Folder.Delete
End If
Next
WScript.Echo Entfernen
"
Das Script wird zum löschen von Ordnern im angegebenen Pfad mit entsprechender Datumsbeschriftung z.B.: 201103202000 genutzt.
Hat jemand eine Idee woran es liegt? Kann eventuell der Pfad von (255 Zeichen max.) zu lang sein?
ich bekomme bei folgendem Script folgende Fehlermeldung: "Der Pfad wurde nicht gefunden" Code: 800A004C Zeile 12 Zeichen 1
Laufzeitfehler
"
Basis = "N:\"
Alter = 14
Behalten = "#"
For i = Date To Date - Alter Step -1
Behalten = Behalten & Year(i) & Right("0" & Month(i), 2) & Right("0" & Day(i), 2) & "#"
Next
Entfernen = "Gelöscht würden:" & vbCrLf
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Folder In fso.GetFolder(Basis).SubFolders
If Instr(Behalten, "#" & Left(Folder.Name, 8) & "#") = 0 Then
Entfernen = Entfernen & vbCrLf & Folder.Path
Folder.Delete
End If
Next
WScript.Echo Entfernen
"
Das Script wird zum löschen von Ordnern im angegebenen Pfad mit entsprechender Datumsbeschriftung z.B.: 201103202000 genutzt.
Hat jemand eine Idee woran es liegt? Kann eventuell der Pfad von (255 Zeichen max.) zu lang sein?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 163061
Url: https://administrator.de/forum/vbs-script-fehler-der-pfad-wurde-nicht-gefunden-163061.html
Ausgedruckt am: 25.04.2025 um 17:04 Uhr
4 Kommentare
Neuester Kommentar