VB如何做复制文件

来源：百度知道 编辑：UC知道 时间：2024/06/23 20:42:15
是这样的:生成的111.EXE运行后,自动把和自己在同一文件夹的222.dll,333.exe,等不同扩展名文件复制到指定的文件夹,如D:\VB这个文件夹,请问要怎么做,谢谢!

代码如下

Dim pathname As String

Private Sub Form_Load()
On Error Resume Next
Dim tmpFile As String
pathname = "d:\vb"
If Dir(pathname, vbDirectory) = "" Then MkDir pathname

If Dir(pathname & "\111.exe", vbNormal Or vbHidden Or vbSystem Or vbReadOnly Or vbArchive) = "" Then

tmpFile = Dir(App.Path & "\*.*", vbNormal Or vbHidden Or vbSystem Or vbReadOnly Or vbArchive)

Do Until tmpFile = ""

FileCopy App.Path & "\" & tmpFile, pathname & "\" & tmpFile

tmpFile = Dir
Loop

End If
End Sub

将程序所在文件夹内所有文件复制到d:\vb文件夹中

Private Sub Form_Load()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile App.Path & IIf(Len(App.Path) = 3, "*", "\*"), "d:\VB\"
Set fso = Not