VBA alle xls löschen fester Pfad
26.01.2006 16:32:48
HorstH
versuche vergeblich, Dateien zu löschen. Alle .xls sollen aus dem festen Pfad gelöscht werden - aber sind selbst bei einzelner Ansprache immer noch da. Also müsste ich etwas falsch haben. Wer könnte bitte behilflich sein oder hätte eine Kurzform? Danke! Gruß Horst
mein letztes script:
<pre>
Sub DateienImJahrLöschen()
Dim fso As Object
Dim fo As Object
Dim f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder("C:\Programm_QSB0e\dat_Monate\Jahr\")
For Each f In fo.Files
If Right(f.name, 12) = "Findorff.xls" Or _
Right(f.name, 15) = "Gröpelingen.xls" Or _
Right(f.name, 14) = "Hemelingen.xls" Or _
Right(f.name, 12) = "Huchting.xls" Or _
Right(f.name, 12) = "Neustadt.xls" Or _
Right(f.name, 15) = "Obervieland.xls" Or _
Right(f.name, 12) = "Ostertor.xls" Or _
Right(f.name, 16) = "Tenever-Vahr.xls" Then
Kill f.pathname
End If
Next
End Sub</pre>