vb下将一个c:\file\file.exe文件拷贝到c:\bak下，并改名为bak.exe如何写？很急。 ：

Question

引用 MICROSOFT SCRIPTING RUNTIME
Private Sub Form_Load()
    Dim fs As New FileSystemObject
    fs.CopyFile "c:\file\file.exe", "c:\bak\file.exe"
End Sub

Answer 1

Dim fsoExcelFile As FileSystemObject,aa
Set fsoExcelFile = New FileSystemObject
If fsoExcelFile.FileExists("c:\file\file.exe") Then
   '改名
Set aa = fsoExcelFile.GetFile(("c:\file\file.exe")
Set aa = fsoExcelFile.CopyFile("c:\bak\bak.exe")
'del aa
End If

Answer 2

上面有点错误，应为：
fs.CopyFile "c:\file\file.exe", "c:\bak\back.exe"

Answer 3

y_shen，报告说，fs as new filesystemobject定义有错嘛。

Answer 4

引用 MICROSOFT SCRIPTING RUNTIME

Answer 5

filesystem.filecopy("c:\file\file.exe","c:\bak\bak.exe")
很容易

Answer 6

工程-》引用-》选中MICROSOFT SCRIPTING RUNTIME 后确定！
Private Sub Form_Load()
    Dim fs As New FileSystemObject
    fs.CopyFile "c:\file\file.exe", "c:\bak\back.exe"
End Sub 

Answer 7

语法错误啊，shark_dim    ：~

Answer 8

多谢y_shen的即时帮助，我本来说的是shark_dim的错，呵
好了，下面给分吧。 : )

Answer 9

filecopy "c:\file\file.exe", "c:\bak\back.exe"