Tags:
visual-basic
Nogen der kan se hvad der er galt med denne...? Jeg skal kopiere fra server til en folder under profilen
Takker
Dim wsh
Dim fs
Dim profile
set wsh = createobject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
profile = wsh.ExpandEnvironmentStrings("%UserProfile%")
set wsh = createobject("WScript.Shell")
profile = wsh.ExpandEnvironmentStrings("%UserProfile%")
set filesys = CreateObject("Scripting.FileSystemObject")
filesys.CopyFolder ", Profile & "\\\\Application Data\\Microsoft\\Skabeloner" , "L:\\skabeloner"
WScript.Quit
1 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
0
Det vil da hjælpe hvis du kunne give et hint om hvilken fejl du får?