718 Aufrufe
Gefragt in Skripte(PHP,ASP,Perl...) von

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

2 Antworten

0 Punkte
Beantwortet von
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
0 Punkte
Beantwortet von
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.
...