Question

vb 复制代码

假设我这个VB编写文件存储在桌面上，假设叫MUS.EXE 然后打开后我点击一下按钮，这个文件就在D:\音乐\MUS.EXE 这个目录下产生了一个副本呢？

谢谢指教

Answer 1

Private Sub Command1_Click()
Set WshShell = CreateObject("WScript.Shell")
FileCopy WshShell.SpecialFolders("Desktop") & "\MUS.EXE", "D:\音乐\MUS.EXE"
End Sub

Answer 2

在点击按钮的事件里写上(假设你的button控件的name属性叫"command1")：

Private Sub Command1_Click()
FileCopy App.Path & "/MUS.EXE", "D:\音乐\MUS.EXE"
End Sub

如果你想实现目标文件已经存在就不复制，那就加一句简单的if

Private Sub Command1_Click()
If Dir("D:\123\ABC.TXT") = "" Then
FileCopy App.Path & "/MUS.EXE", "D:\音乐\MUS.EXE"
End If
End Sub

有问题pm我好了。