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

VBA alle xls löschen fester Pfad

VBA alle xls löschen fester Pfad
26.01.2006 16:32:48
HorstH
Hallo nette Leute im Forum,
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:
&ltpre&gt
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&lt/pre&gt

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA alle xls löschen fester Pfad
26.01.2006 16:55:37
Peter
Servus,
schreibs so Kill fo & "\" & f.Name .
Denk aber daran Kill ist erbamungslos, soll heißen unwiederuflich wech ;-)
Stimmt dein Level oder hast du den Code selber geschrieben, wenn ja lies alle Files in ein Array und nimm diese Kill Anweisung.
http://www.aboutvb.de/khw/artikel/khwshellkill.htm
MfG Peter
AW: VBA alle xls löschen fester Pfad
27.01.2006 09:42:24
HorstH
Hallo Peter,
danke für die Nachricht. Level stimmt - habe eine Vorlage aus der Recherche genommen und die einfachen Punkte anpassen können - nur mit dem Kill habe ich das nicht hinbekommen. der gesamte Ornder soll "entexcelt" werden, da in dem Ordner nur Dateien aus anderen VBAs quasi zwecks Weiterverarbeitung zwischengespeichert werden. Ist die entsprechende Prozedur erledigt, sollen alle Dateien total gelöscht werden, damit die nächste Ladung da rein kann und wiederum eine Routine läuft. Gibt es auch etwas einfacheres, z. B. mit *.xls Delete ? Der Link ist interessant - muss ich mir aber erst einmal in Ruhe ansehen und reindenken, soweit ich das schaffe.
Danke für die Hilfe!
Gruß und schönes Wochenende
Horst
Anzeige
AW: VBA alle xls löschen fester Pfad
27.01.2006 12:04:47
Peter
Servus,
machen wirs mal einfach. Füge die beiden Module aus meinem Bsp. in deine Arbeitsmappe ein und starte das Makro basFileKill.
https://www.herber.de/bbs/user/30433.xls
MfG Peter
AW: VBA alle xls löschen fester Pfad
27.01.2006 12:45:42
HorstH
Hallo Peter,
danke! Super gut. Hatte Außentermin, deshalb jetzt erst.
Schönes Wochenende
Gruß
Horst

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige