VBS help met file copy

[djack]

Dus vermits file copy niet mogelijk was vanuit een batch filetje heb ik mor gekozen voor het maken van een vbs scriptje maar nu krijg ik premission denied error kan der mij iemand helpen ..... Om dit probleem op te lossen
Hier is wat zelf geschreven code (alle ja zelf aan het zoeken geweest op het net en wat copy past en ier en daar wa modifkes), nie echt proper maar ze werkt al half (wiiiii)

vbs:
<?
Function ShowAbsolutePath(path)
Dim fso,DB
Set fso = CreateObject("Scripting.FileSystemObject")
Set wshshell = CreateObject("WScript.Shell")
key = "HKLM\Software\Bureau van Dijk\Directories\"
DB = wshshell.RegRead(key & "userdata")
ShowAbsolutePath = fso.GetAbsolutePathName(DB)
End Function

db = ShowAbsolutePath(DB)
Msgbox "The UserData Path is : " & db ' ter contole

' Warning Message
Msg = "This will remove your current user dabase and replace it with empty one"
Style = vbYesNo + vbCritical ' Define buttons.
Title = "Do you want to continue" ' Define title.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform copy action.
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.GetFile(".\CUSTOMER.txt")
fso.CopyFile "CUSTOMER.txt", "db",TRUE
Else ' Press NO.
MyString = "No" ' Do nothing.
End If

Nu mijn vbs kennis is verry low but what the heck, de folder die ik moet hebben staat in het register (c:\program files\Application\userdata)
En daar moet een COMPANY.txt filetje naar gecopieerd worden.
Ikke krijg error geen access dus moet ik da toch op een of de andere manier kunnen oplossen dat en dien file der wel dropt.

[Peetman]

Waar krijg je een access denied error?
Krijg je de path waarde wel terug uit het register, of niet?

[djack]

yep die steek in in nen msgbox om zekers te zijn dat in variable db iets insteekt

[Peetman]

Er staat:

fso.CopyFile "CUSTOMER.txt", "db",TRUE

Dit moet zijn

VBScript:

fso.CopyFile "CUSTOMER.txt", db,TRUE

Je kan namelijk een file niet naar een string kopieren. Vandaar

[djack]

nog altijd error op access level
voor de rest doet da wat het moet doen ma tja da laatste is het belangrijkste

[djack]

kan je de waarde die ik terug krijg doorgeven aan batch filetje ?
maybe kan ik dan zo mijn probleem oplossen

[djack]

nog iemand een ideeke ?
:-)
:-)
:-)

[SuperRembo]

Dit staat er in de manual bij fso.CopyFile:

If destination is a directory, an error occurs

Wat staat er in db, en directory-naam of een file-naam?

[djack]

Neen het is zo dat db een path is nl c:\bla\bla en dit zou eigenlijk c:\bla\bla\ moeten zijn ....
vermits vb kennis nie zo mega is geeft da een probleem ....

[djack]

Tis al gelukt :-)
Bedankt voor alle hulp
Dit mag gesloten worden :-)