Sprungmarke in Schleife
Max
Komme nicht dahinter, warum meine Sprungmarke nicht funkioniert.
Folgendes Beispiel:
Option Explicit
Public oFSO As New FileSystemObject
Sub DelEmptyFolders() 'leere Ordner sollen gelöscht werden.
Dim oFolder As Folder
Dim strEmpFol As String
Dim iA%, iZ%
ThisWorkbook.Worksheets("MyTab").Activate
Range("D1").Select
'Auflisten aller Ordner in C:\OLAnlagen\
For Each oFolder In oFSO.GetFolder("C:\OLAnlagen\").SubFolders
ActiveCell.Value = oFolder
ActiveCell.Offset(1, 0).Select
Next
Range("D1").Select
iZ = WorksheetFunction.CountA(Columns(4))
'Löscht alle leeren Ordner
For iA = 1 To iZ
On Error GoTo eh
strEmpFol = ActiveCell.Value
RmDir strEmpFol
MsgBox strEmpFol & " wurde gelöscht!"
eh:
ActiveCell.Offset(1, 0).Select
Next
End Sub
Im ersten Schritt wird eine Liste aller Ordner in C:\OLAnlagen\ erzeugt, anschliessend wird die Liste abgearbeitet. Wenn ein Ordner leer ist, erzeugt RmDir eine Fehlermeldung (Laufzeitfehler 75) und springt zum Errorhandler.
Soweit die Theorie, in der Praxis wird aber trotzdem ein Laufzeitfehler angezeigt, auch wenn ich mit Application.DisplayAlerts = False arbeite.
Was muß ich machen?
mit freundlichen Grüßen,
Max
Anzeige