Kopieren mit VBScript aus einem Ordner

Question

Hallo Finde bitte den Fehler. Irgendwas ist mit Else. Das Skript funktioniert entweder mit copyFile oder copyFolder und ich komme nicht drauf warum nicht mit beiden.

Dim folderName
folderName = "."
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fullpath
fullpath = fso.GetAbsolutePathName(folderName)
if fso.FolderExists(fullpath & "\Ordner") Then
fso.copyFolder fullpath & "\Ordner", "C:\Users\XXX\Downloads\", True
else
if fso.FileExists(fullpath & "\Text.txt") Then
fso.copyFile fullpath & "\Text.txt", "C:\Users\XXX\Downloads\", True
Else
MsgBox " "
End If

Answer 1

da fehlt ein End If

du machst zwei if auf schliesst aber nur mit einem End If

versuchs mal so:

Dim folderName
folderName = "."
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fullpath
fullpath = fso.GetAbsolutePathName(folderName)

If fso.FolderExists(fullpath & "\Ordner") Then
    fso.copyFolder fullpath & "\Ordner", "C:\Users\XXX\Downloads\", True
Else
    If fso.FileExists(fullpath & "\Text.txt") Then
        fso.copyFile fullpath & "\Text.txt", "C:\Users\XXX\Downloads\", True
    Else
        MsgBox " "
    End If
End If

Answer 2

Ich danke Dir. Es ist mein Lieblingsfehler und ich falle immerwieder drauf rein.

Wenn ich dann noch  "else" zwischen "Ordner" und "Text" weglasse funktioniert es sogar.