你可以先获取userprofile环境变量,
R = Environ("userprofile")+"\桌面\",再写其他代码。
copy C:\downloads\*.* C:\Documents and Settings\%username%\desktop\
能行吗? 没有引号当然不行!!!
改成
RunDos.Run "%comspec% /c Xcopy " & chr(34) & "C:\downloads\*.* %userprofile%\desktop\" & chr(34) & "/Y"