Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

xls-Dateien in Verzeichnis löschen

xls-Dateien in Verzeichnis löschen
22.01.2003 08:38:45
manfred
Guten Morgen allerseits,

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: xls-Dateien in Verzeichnis löschen
22.01.2003 08:51:46
Bernd Held
Hallo 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

Anzeige
Funktioniert super... Danke OT
22.01.2003 09:11:32
manfred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige