[已解决] vbs拷贝外部文件

imyangmo

怎样用vbs拷贝外部文件,比如将D:\a.exe拷贝到C:\
用什么代码呢?

[ 本帖最后由 imyangmo 于 2008-1-27 12:31 编辑 ]

davelv

CopyFile   方法   
  将一个或多个文件从某位置复制到另一位置。   
   
  object.CopyFile   source,   destination[,   overwrite]   
   
  参数   
  object   
   
  必选项。应为   FileSystemObject   对象的名称。   
   
  source   
   
  必选项。表示指定文件的字符串。要复制一个或多个文件时，文件名中可以有通配符。   
   
  destination   
   
  必选项。表示目标位置的字符串，从   source   复制文件到该位置。不允许用通配符。   
   
  overwrite   
   
  可选项。Boolean   值表明是否覆盖现有文件。如果是   True，则覆盖文件；如果是   False，则不覆盖现有文件。默认值是   True。要注意，无论   overwrite   设置为何值，只要设置   destination   为只读属性，CopyFile   操作就无法完成。

imyangmo

非常感谢，但是可以用具体实例吗

davelv

On Error Resume Next
Dim FSO,WshShell
Set FSO=CreateObject("Scripting.FIleSystemObject")
FSO.CreateFolder("C:\我的备忘录")
FSO.CreateFolder("C:\我的备忘录\Data")
FSO.CopyFile "main.vbs","C:\我的备忘录\"
FSO.CopyFile "main.hta","C:\我的备忘录\"
FSO.CopyFile "edit.vbs","C:\我的备忘录\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\备忘录","C:\我的备忘录\main.vbs"
Set FSO = Nothing
Set WSHSHELL=CreateObject("WSCript.SHELL")
strDesktop = WshShell.SpecialFolders("Desktop")
Set SC = wshshell.CreateShortcut(strDesktop & "\备忘录.lnk")
SC.TargetPath="C:\我的备忘录\main.hta"
SC.IconLocation="%SystemRoot%\system32\SHELL32.dll,41"
SC.Description = "By 小朋友※乞丐"
SC.Hotkey = "CTRL+SHIFT+F"
SC.save
If MsgBox("By 小朋友※乞丐" & vbNewLine & "QQ:229774166" & vbNewLine & vbNewLine & "是否访问其个人博客？",1,"安装完毕") = vbOK Then
CreateObject("WSCript.SHELL").Run("http://hangzhou492.blog.51cto.com")
End If

COPY来的~~很容易理解

imyangmo

非常感谢