Hallo Leute,
ich habe hier ein Problem mit meinem Code.. Kann mir mal jemand helfen wo das Problem ist ?
LG
Tobias
ich habe hier ein Problem mit meinem Code.. Kann mir mal jemand helfen wo das Problem ist ?
Quellcode
- Set myFile = InputBox("Bitte geben Sie den Dateinamen an.", "Eingabefenster", "default")
- Set PathOne= InputBox("Bitte geben Sie das Quellverzeichniss ein", "Eingabefenster", "default")
- Set myPathTwo = InputBox("Bitte geben Sie das Zielverzeichniss ein" , "Eingabefenster", "default")
- Set myFSO=CreateObject("Scripting.FileSystemObject")
- If myFSO.FileExists(myPathOne&"\"&myFile) Then
- myFSO.MoveFile myPathOne&"\"&myPathOne, myPathTwo&"\"&myFile
- End If
LG
Tobias