VBS - delete funktioniert nicht

[trash_man]

Hallo zusammen.

Ich schreibe folgendes Script:
***********************************

Do Until objFile.AtEndOfStream

Zeile = objFile.ReadLine
' Abfrage ob Ordner existieren, wenn ja löschen
If(objFSO.FolderExists("C:\a\a")) Then
If(objFSO.FolderExists("C:\a\b")) Then _
ObjFSO.DeleteFolder("C:\b")
MsgBox ("Der Ordner " & Zeile & " wurde erfolgreich gelöscht!")

Else
MsgBox Text3, vbOKOnly + vbInformation, Zeichen

End If
Else
' wenn Ordner nicht existiert, fehlermeldung
MsgBox Text2, vbOKOnly + vbInformation, Zeichen
End If
Loop
************************************************************
So, und nun ist mein Problem folgendes. Das Script kann den Ordner nicht löschen. Kann es daran liegen, dass ich zwei IF-Schleifen ineinandergeschachtelt habe?
Mit nur einer einzigen If-Schleife funktionierts einwandfrei.
Komisch ist jedoch, wenn ich anstelle des deleten nur eine simple MsgBox einsetze, funktioniert das Script auch mit beiden If-Abfragungen. Bleibt irgendwie nur beim delete hängen.
Sobald das deleten drin steht, erscheint die Fehlermeldung "Loop erwartet".

Kann mir da jemand weiterhelfen?

Danke und Gruss
trash_man

 

[Shakie]

Meines erachtens dürftest du den Unterstrich _ nach dem zweiten "Then" gar nicht machen, weil dadurch kein weiteres "Else" bei der betroffenen IF-Abfrage erwartet wird.
Allerdings hat dies zugegebenermaßen wenig mit der DeleteFolder-Anweisung zu tun...