Ich suche nach einer Möglichkeit alle Excel-Dateien in dem Verzeichnis C:\TEMP\ zu löschen. Im Archiv habe ich nur Möglichkeiten gefunden ganze Ordner samt Unterordner etc. zu löschen.
Jemand eine Idee?
Danke schon mal... manfred
Ich suche nach einer Möglichkeit alle Excel-Dateien in dem Verzeichnis C:\TEMP\ zu löschen. Im Archiv habe ich nur Möglichkeiten gefunden ganze Ordner samt Unterordner etc. zu löschen.
Jemand eine Idee?
Danke schon mal... manfred
diese Aufgabe kannst Du mit folgendem Makro lösen.
Sub Dateienlöschen()
Dim i As Long
Const verz = "C:\Temp\"
On Error GoTo fehler
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de