使用变量路径出错，但又找不到错在哪里，高手来指正。

Question

Dim fullpath As String
If Right(App.Path, 1) = "\" Then ' 判定 App.Path 是否为根目录，有则不必加\
fullpath = App.Path
Else
fullpath = App.Path + "\" ' 获得当前程序所在的路径
End If
FileSystemObject.CopyFolder "" & (fullpath) & "sogou\", "C:\Program Files\SogouInput\"
End Sub

Answer 1

这样试试：
FileSystemObject.CopyFolder "" & (fullpath) & "sogou\", "C:\Progra~1\SogouInput\" 

Answer 2

fullpath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")

Answer 3

在工程菜单中引用WsHom.ocx，msscript.ocx

Answer 4

取消两个"\"即可啦：
FileSystemObject.CopyFolder (fullpath) & "sogou", "C:\Program Files\SogouInput" 

Answer 5

'照这样写取消两个“\”，正好可以拷贝多个文件；如果加了“\”，后面就必须写文件名，只能拷贝一个，这是常识。
'经调试无误
Option ExplicitPrivate fullpath As String
Private FSO As Object
Private Sub Command1_Click()
        fullpath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
        Set FSO = CreateObject("Scripting.FileSystemObject")
        FSO.CopyFolder (fullpath) & "Vb6Mini", "D:\tttt\chenjl1031"
End Sub

Answer 6

Option Explicit
Dim appdisk$, fs
Private Sub Command1_Click()
   appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
   Set fs = CreateObject("Scripting.FileSystemObject")
   fs.CopyFolder appdisk & "sogou", Environ("programfiles") & "\sogouinput"
End Sub