ich habe mir einen VBA Code zusammengebastelt, der Code soll mir eine bestimmte Datei aus einem
Ordner löschen, danach Prüfen ob Ordner leer, bei leer soll er auch gelöscht werden!
Erst wen ich die Exceldatei schließe kann ich diesen Ordner von Hand löschen!
Durch den Suchbefehl bleibe ich sehr wahrscheinlich auf diesen Ordner eingelockt und das Windows System verweigert dass löschen obwohl leer! Auch von Hand
Es muss an der Such- Prozedur liegen,
da dass löschen durch direkte Vorgabe des Pfads im Code funktioniert, also ohne vorher in diesem Ortner gesucht zu haben!
Wie kann ich Excel oder VBA dazu bringen, diesen Ordner freizugeben nach der Suche?
hier noch ein Ausschnitt der Such- Prozedur.
With Application.FileSearch
.NewSearch
.LookIn = Ordner
.SearchSubFolders = True
.Filename = "*.*" 'Datei Typ
.Execute
For i = 1 To .FoundFiles.Count
Set f = CreateObject("Scripting.FileSystemObject").GetFile(.FoundFiles(i))
If f.Attributes >= 1 And f.Attributes
Gruss Tino
Das Forum lebt von Rückmeldungen!