[VBS] Probleme mit meinem Script...wichtig :(

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von aivilon.

    [VBS] Probleme mit meinem Script...wichtig :(

    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?

    Visual Basic-Quellcode

    1. Dim FSO
    2. Dim sFolder
    3. Dim sCopyTo
    4. Dim Fertig
    5. Dim objNet
    7. ' FSO zu einem FileSystemObject machen
    8. Set FSO = CreateObject("Scripting.FileSystemObject")
    9. Set WshShell = CreateObject("WScript.Shell")
    10. programfiles = WshShell.ExpandEnvironmentStrings("%programfiles%")
    11. windir = WshShell.ExpandEnvironmentStrings("%windir%")
    12. Set objShell = CreateObject("WScript.shell")
    13. strCurrentDir = objShell.CurrentDirectory
    15. If Not FSO.folderExists(Programfiles & "\UserdauformXX") Then
    16. FSO.CreateFolder(Programfiles & "\UserdauformXX")
    17. End If
    19. sFolder = WScript.ScriptFullName & "\UserdauformXX\*.*"
    20. sCopyTo = programfiles & "\UserdauformXX\"
    22. FSO.CopyFolder sFolder, sCopyTo
    24. sFolder = WScript.ScriptFullName & "\UserdauformXX\Bilder"
    25. sCopyTo = programfiles & "\UserdauformXX\"
    27. FSO.CopyFolder sFolder, sCopyTo
    29. Set objNet = CreateObject("WScript.NetWork")
    30. sFolder = WScript.ScriptFullName & "\UserdauformXX\Verknüpfung mit UserdauformXX.xls"
    31. sCopyTo = "C:\Dokumente und Einstellungen\" & objNet.UserName & "\Desktop"
    33. FSO.CopyFolder sFolder, sCopyTo


    PS: Im moment gibt er an er finde den Pfad nicht :cursing:

    Visual Basic-Quellcode

    1. sFolder = WScript.ScriptFullName


    Wscript.ScriptFullName gibt den Pfad PLUS den Namen des ausgeführten Scripts wieder.Dies kann unmöglich ein Ordnername sein...
    Du müsstest bei Wscript.ScriptFullName noch den Namen des Scripts entfernen..
    Das ist meine Signatur und sie wird wunderbar sein!