Question

VB中复制文件问题

如何运用VB复制当前目录下的文件，并且要等文件复制完成后，然后再继续执行下一条语句。

我是VB初学者，最好能举个小例，程序最好要易懂的，望有哪位高手能帮帮忙……

Answer 1

方法太多呵..

1.楼上滴VB自带函数,FILECOPY
Private Sub Command1_Click()
FileCopy "c:\1.txt", "C:\test0.txt"
End Sub

2.使用FSO来复制文件
Private Sub Command2_Click()
Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "c:\1.txt", "C:\test1.txt"
End Sub

3.使用DOS命令来复制文件
Private Sub Command3_Click()
Shell "cmd.exe /c copy c:\1.txt c:\test2.txt", 0
End Sub

Answer 2

比如:把当前目录下的 a.exe 复制到"c:\"

FileCopy App.path &"\a.exe","C:\"&"a.exe"

类似再写一句即可