你的代码问题很多,我能帮你解决一个问题:
如何弹出文件夹选择框,获取用户选择的路径。- '示例
- 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
复制代码 另外,复制文件操作需要目标与来源,你上面的代码写法有问题。 |