Der nachfoldende Code stammt von Sepp und ich habe ihn angepasst was den Pfad und die Dateien betrifft.. Wie man sieht möchte ich wirklich dieses gesamte Verzeichnis aus C: herauslöschen:
Ich bekomme bei
Set fSearch = Application.FileSearch folgende Fehlermeldung:
Laufzeitfehler 445 Objekt unterstützt diese Aktion nicht
Hierzu ist zusagen dass ich den Code einem CommandButton auf der Tabelle1 zugeordnet habe.
Dim fSearch As FileSearch
Dim wkb As Workbook
Dim strPath As String, strTemp As String
Dim iCnt As Integer
strPath = "C:\Obedience\" 'Startverzeichnis
Set fSearch = Application.FileSearch
With fSearch
.NewSearch
.LookIn = strPath
.SearchSubFolders = True '<<<<Unterordner durchsuchen True/False
.FileType = msoFileTypeAllFiles
.Filename = "*.*"
.Execute
For iCnt = 1 To .FoundFiles.Count
strTemp = Left(.FoundFiles(iCnt), Len(.FoundFiles(iCnt)) - _
InStr(1, StrReverse(.FoundFiles(iCnt)), "\"))
Kill .FoundFiles(iCnt)
On Error Resume Next
RmDir strTemp
On Error GoTo 0
Next
End With
Viele Dank für Euere Hilfe
Peter