Alle xls. Dateien löschen
30.01.2007 16:40:20
Walter
habe folgendes Makro:
Sub Explorer_öffnen_für_das_Löschen()
Dim strDatei
Dim nam As String
nam = Environ("Username")
ChDrive "C:\"
ChDir "C:\Documents and Settings\" & nam & "\Local Settings\Temp\notes9D76E5"
'----------- jetzt wird Explorer angezeigt ----------------------------
strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*")
End Sub
Funktioniert soweit, der Explorer von Excel wird geöffnet.
Ich möchte gern den Explorer nicht öffnen aber ALLE "xls" Mappen im entsprechenden Pfad LÖSCHEN. Ist das möglich ?
herzlichen Gruß
Walter