Script VB + obtém permissão negada quando copia arquivo (no XP)

Question

Eu ganhei XP, meu alvo é copiar o arquivo.dbf do diretório local para o diretório c: \ oracle (pelo script VB descrito abaixo)

O problema é que recebo permissão negada (da saída do script VB) Por favor, aconselha como habilitar a cópia para o diretório oracle?

  Dim currDir 
  Const OverwriteExisting = True  

  Set fso = CreateObject("Scripting.FileSystemObject") 

  currDir = fso.GetParentFolderName(Wscript.ScriptFullName) 

  Set objFSO = CreateObject("Scripting.FileSystemObject")

  objFSO.CopyFile currDir  & "\file.dbf" , "C:\Oracle" , OverwriteExisting

  Set objFSO = Nothing
  Set fso = Nothing

    

Answer 1

Você está sem um '\' no caminho de destino ... tente:

objFSO.CopyFile currDir  & "\file.dbf" , "C:\Oracle\" , OverwriteExisting