В общем накидал примерно следующее:
читать дальше »
Option Explicit
Dim strSourceDir, strDestinDir, FSO
const OverwriteExisting = False
strSourceDir = "C:\testfile.dat"
strDestinDir = "%USERPROFILE%\Desktop\test.dat"
on error resume next
set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile strSourceDir , strDestinDir , OverWriteExisting
Но почему то не работает.
Хелп?
