复制指定文件到指定目录下
核心代码
1
2
3
4
5
6
7
8
|
Set fso=CreateObject( "Scripting.filesystemobject" ) Function CopyFileToPath() SrcPATH = createobject( "Scripting.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() |
代码二
1
2
3
4
5
6
7
|
sourcefilepath= "c:\names\names.nsf" desfilepath= "d:\name_backup\Name" & "" &Year(date)&-Month(date)&-Day(date)& " " &Hour(time)&-Minute(time)&"\" Set fso=CreateObject( "Scripting.FileSystemObject" ) If Not fso.FolderExists(desfilepath) Then fso.CreateFolder desfilepath fso.copyfile sourcefilepath,desfilepath End If |
其实原理都是一样的。