Archief - VB Script ,copieren bestanden

Hallo Collega's

Ik heb een vraagje,ik wens een script te maken zodanig dat de mensen automatisch een htm en gif bestand in hun documents en settings directory krijgen.

dat lukt echter niet,wie heefter zin om er eens naar te kijken?


heel erg bedankt

Dim filesys
filesys = CreateObject("Scripting.FileSystemObject")
filesys.fileCopy("\\ntserver\Software\hand\voorbeeld.htm","%userprofile%\Application Data\Microsoft\Handtekeningen\")
Dim filesys2
filesys2 = CreateObject("Scripting.FileSystemObject")
filesys2.FileCopy("\\ntserver\Software\hand\voorbeeld.gif","%userprofile%\Application Data\Microsoft\Handtekeningen\")
Dim Message3
Message3 = "succes,Kijk naar uw handtekeningen"
MsgBox(Message3)' VBScript source code

Ik heb zeer weinig ervaring met VB, maar ik denk dat de 2de parameter ook een echte file moet zijn ipv een directory
dus iets als:
filesys.fileCopy("\\ntserver\Software\hand\voorbee ld.htm","%userprofile%\Application Data\Microsoft\Handtekeningen\voorbeeld.htm")

Verder kan je best eens testen met een exists methode (of iets dergelijks, zal wel aanwezig zijn in VB) of dat die mapnamen wel correct geschreven zijn.

ondertussen eens wat verder geprobeerd,
en inderdaad is al wat beter,toch nog steeds een fout,hier onder de code,daarna afbeelding fout

Option Explicit
Dim objFSO, objFileCopy ,objFSO1,objFileCopy1
Dim strBronBestand, strDoelLocatie,strBronBestand1, strDoelLocatie1


strBronBestand = "\\ntserver\Software\hand\voorbeeld.htm"
strDoelLocatie = "%userprofile%\Application Data\Microsoft\Handtekeningen\voorbeeld.htm"
strBronBestand1= "\\ntserver\Software\hand\voorbeeld.gif"
strDoelLocatie1= "%userprofile%\Application Data\Microsoft\Handtekeningen\voorbeeld.gif"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFileCopy = objFSO.GetFile(strBronBestand)
Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set objFileCopy1 = objFSO.GetFile(strBronBestand1)


objFileCopy.Copy (strDoelLocatie)

objFileCopy.Copy (strDoelLocatie1)
WSCript.Echo strBronBestand & " werd gekopieerd naar " & strDoelLocatie

WSCript.Echo strBronBestand1 & " werd gekopieerd naar " & strDoelLocatie1

Wscript.Quit


regel 16 teken 1,"path not found"

2 fouten, oplossing in het rood.

khebet gevonden,

het was inderdaad die %% dat niet mocht.

heel erg bedankt aan iedereen

hieronder de opp

Option Explicit
Dim objFSO, objFileCopy ,objFSO1,objFileCopy1
Dim strBronBestand, strDoelLocatie,strBronBestand1, strDoelLocatie1
Dim objNetwork
Dim strUserName
Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName
strBronBestand = "\\ntserver\Software\hand\voorbeeld.htm"
strDoelLocatie = "C:\Documents and Settings\"& strUserName &"\Application Data\Microsoft\Handtekeningen\voorbeeld.htm"
strBronBestand1= "\\ntserver\Software\hand\voorbeeld.gif"
strDoelLocatie1= "C:\Documents and Settings\"& strUserName &"\Application Data\Microsoft\Handtekeningen\voorbeeld.gif"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFileCopy = objFSO.GetFile(strBronBestand)
Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set objFileCopy1 = objFSO1.GetFile(strBronBestand1)


objFileCopy.Copy (strDoelLocatie)

objFileCopy1.Copy (strDoelLocatie1)
WSCript.Echo strBronBestand & " werd gekopieerd naar " & strDoelLocatie

WSCript.Echo strBronBestand1 & " werd gekopieerd naar " & strDoelLocatie1

Wscript.Quit