yu2n

你的代码问题很多，我能帮你解决一个问题：
如何弹出文件夹选择框，获取用户选择的路径。

'示例
strPath = BrowseForFolder("请选择游戏所在目录：")
Msgbox "你选的位置是：" & vbCrLf & strPath

' 浏览文件夹
Function BrowseForFolder(ByVal strTips)
  Dim objFolder
  Set objFolder = CreateObject("Shell.Application").BrowseForFolder (&H0, strTips, &H0010 + &H0001)
  If (Not objFolder Is Nothing) Then BrowseForFolder = objFolder.Self.Path  'objFolder.Items().Item().Path
End Function
复制代码

另外，复制文件操作需要目标与来源，你上面的代码写法有问题。