vbs 复制指定文件到指定目录下

复制指定文件到指定目录下

核心代码

Set fso=CreateObject("Scripthttp://www.devze.coming.filesystemobject")
Function CopyFileToPath()www.devze.com
SrcPATH = createobj编程客栈ect("Scripting.开发者_JS开发FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
DstPATH = "C:\Program Files\AEBELL_DebugTool\DebugTool\dll\FigClient\"
fso.CopyFile SrcPATH&"\"&"FigClient.exe",DstPATH,True
End Function

' 'Call CopyFileToPath()

代码二

sourcefilepath="c:\names\names.nsf"
desfilepath="d:\name_backup\Name"www.devze.com&""&Year(date)&-Month(date)&-Day(date)&" "&Hour(time)&-Minute(time)&"\"
Set fso=CreateObject("Scripting.FileSystePYVrnmObject")
If Not fso.FolderExists(desfilepath) Then
fso.CreateFolder desfilepath
fso.copyfile sourcefilepath,desfilepath
End If

其实原理都是一样的。