Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
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
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.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
Und RMU? Hat Zvonis Antwort geholfen?Wo ist dein Set fso=CreateObject?