Mit VBS ~~Dateien in Ordnerstruktur löschen

[RMU]

Ja, scheint so zu sein. Wenn er im ersten Ordner so eine Datei nicht findet bricht er ab und geht erst gar nicht zum nächsten Benutzerordner. Gerade lokal auf meinem PC getestet :\

 

[Yaslaw]

In dem Fall doch den Dateilöschtiel auch über eine Schleife machen

Sub deleteFilesInFolderRekursiv(iFldPath, iFileNamePattern)
    Dim deletePath     'String
    Dim subFld         'Filder
    Dim fl             'File

    'Die Funktion für jeden Unterordner ausführen
    For Each subFld In fso.GetFolder(iFldPath).SubFolders
        deleteFilesInFolderRekursiv subFld.Path, iFileNamePattern
    Next

    'Dateien löschen
    For Each fl In fso.GetFolder(iFldPath).Files
        If fl.name Like iFileNamePattern Then fl.delete true
    Next
End Sub

 

[RMU]

Hallo Yaslaw

Sorry, bin gestern nicht mehr zum Testen gekommen. Hier kommt nun folgender Fehler:

 

[RMU]

Wenn ich das Script so abspeichere:

deleteFilesInFolderRekursiv "C:\Test", "~*.*"
'/**
' * Rekurisves Löschen von Dateien
' * @param String Pfad des Ordners
' */
Sub deleteFilesInFolderRekursiv(iFldPath, iFileNamePattern)
Dim deletePath 'String
Dim subFld 'Filder
Dim fl 'File
'Die Funktion für jeden Unterordner ausführen
For Each subFld In fso.GetFolder(iFldPath).SubFolders
deleteFilesInFolderRekursiv subFld.Path, iFileNamePattern
Next
'Dateien löschen
For Each fl In fso.GetFolder(iFldPath).Files
If fl.name Like iFileNamePattern Then fl.delete true
Next
End Sub

 

[Zvoni]

Wo ist dein Set fso=CreateObject?

 

[Zvoni]

Nachtrag: Falls es nicht unbedingt VBS sein muss, geht auch PowerShell.
Office Dateien aus Outlook öffnen

Beitrag #34 ist ein Beispiel, was wir bei uns der Firma verwenden

 

[RMU]

Nachtrag: Falls es nicht unbedingt VBS sein muss, geht auch PowerShell.
Office Dateien aus Outlook öffnen

Beitrag #34 ist ein Beispiel, was wir bei uns der Firma verwenden

Das Problem ist: Wir haben das mit Powershell versucht. PS löscht einfach die versteckten Dateien nicht. Parameter - Force gesetzt, etc.... no Chance. VBS löscht sie aber.

 

[Yaslaw]

Wo ist dein Set fso=CreateObject?

Und RMU? Hat Zvonis Antwort geholfen?