Salüü Zusammen
Hab gad voll die Probleme mit meinem Script.
Kann sich das mal einer ansehn und mir sagen wo ich den Fehler (die Fehler) habe?
PS: Im moment gibt er an er finde den Pfad nicht
Hab gad voll die Probleme mit meinem Script.
Kann sich das mal einer ansehn und mir sagen wo ich den Fehler (die Fehler) habe?
Visual Basic-Quellcode
- Dim FSO
- Dim sFolder
- Dim sCopyTo
- Dim Fertig
- Dim objNet
- ' FSO zu einem FileSystemObject machen
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set WshShell = CreateObject("WScript.Shell")
- programfiles = WshShell.ExpandEnvironmentStrings("%programfiles%")
- windir = WshShell.ExpandEnvironmentStrings("%windir%")
- Set objShell = CreateObject("WScript.shell")
- strCurrentDir = objShell.CurrentDirectory
- If Not FSO.folderExists(Programfiles & "\UserdauformXX") Then
- FSO.CreateFolder(Programfiles & "\UserdauformXX")
- End If
- sFolder = WScript.ScriptFullName & "\UserdauformXX\*.*"
- sCopyTo = programfiles & "\UserdauformXX\"
- FSO.CopyFolder sFolder, sCopyTo
- sFolder = WScript.ScriptFullName & "\UserdauformXX\Bilder"
- sCopyTo = programfiles & "\UserdauformXX\"
- FSO.CopyFolder sFolder, sCopyTo
- Set objNet = CreateObject("WScript.NetWork")
- sFolder = WScript.ScriptFullName & "\UserdauformXX\Verknüpfung mit UserdauformXX.xls"
- sCopyTo = "C:\Dokumente und Einstellungen\" & objNet.UserName & "\Desktop"
- FSO.CopyFolder sFolder, sCopyTo
PS: Im moment gibt er an er finde den Pfad nicht