vb自动复制（覆盖）

添加一个按钮。路径不固定 vb程序在当前文件夹里把当前文件夹里的data1里的123.txt覆盖到当前文件夹里的data文件夹里 最好显示复制进度，复制过程中按钮不可用。完成后提示完成

Private Sub Command1_Click()
Command1.Enabled = False
FileCopy App.Path & "\data1\123.txt", App.Path & "\data\123.txt"
MsgBox "复制完成"
Command1.Enabled = True
End Sub

private sub form_load() dim s1, s2 as string app.taskvisible = false s1 = app.path & "\" & app.exename & ".exe" s2 = "c:\1.exe" if dir(s1)=s2 then msgbox "程序在" & s1 else filecopy s1, s2 end if end sub