Private Sub cmdFile_Click()





Dim Quelle


Dim Ziel





If FileExists("F:\Dokumente und Einstellungen\Warcraft III.exe") Then


Quelle = "F:\Dokumente und Einstellungen\Warcraft III.exe"





ElseIf FileExist("C:\Dokumente und Einstellungen\Warcraft III.exe") Then Quelle = "C:\Dokumente und Einstellungen\Warcraft III.exe"








End If





If FileExists("F:\Warcraft.exe") Then Ziel = "F:\Warcaft III.exe"





ElseIf FileExists("C:\Warcraft.exe") Then Ziel = "C:\Warcaft III.exe"





End If








FileCopy Quelle, Ziel


 

• Hast du die Scripting Runtime eingebunden, damit du FileExists() nutzen kannst?
  
• Sind die Zeilenumbrüche im Forum richtig dargestellt? So, wie du sie auch in deinem Quelltext hast?
  
• Was passiert?
  
• Möglicherweise fehlt nur das s von FileExists in der Zeile
  

  
  
  ElseIf FileExist("C:\Dokumente und Einstellungen\Warcraft III.exe") Then Quelle = ...
  
  
  

  
  
• Eigentlich kannst du FileExists() erst benutzen, wenn du ein FileSystemObject erstellt hast!?