Question

VB设置路径包含变量，该如何写？

VB设置路径包含变量，该如何写？

如我复制一个文件到桌面

命令都写好了，就是路径这里不会写。

跪求高手指点，顺便加Q多指点，拜师也可以啊~

Answer 1

Set obj = CreateObject("WScript.Shell")
a=obj.SpecialFolders.Item(10)'这就是你找的桌面
msgbox a

追问

我用的是这个，麻烦你帮我修改下吧~
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = App.Path & "\dzcset\dzc06.txt"
SHFileOp.pTo = "%userprofile%\桌面"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)

追答

'你的这只是一段，我不知道你的SHFILEOPSTRUCT是怎么定义的，只能改如下。
Set obj = CreateObject("WScript.Shell")
a=obj.SpecialFolders.Item(10)'这就是你找的桌面
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = App.Path & "\dzcset\dzc06.txt"
SHFileOp.pTo ="""" & a & """"'用上面得到的路径代替
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)

追问

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
Const FO_COPY = &H2

已经定义了~

追答

'呵　你没加文件名，加上就好了，不过就复制个文件用得着这么复杂吗？用FILECOPY不简单？
Set obj = CreateObject("WScript.Shell")
a = obj.SpecialFolders.Item(10) '这就是你找的桌面
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = App.Path & "\dzcset\dzc06.txt"
SHFileOp.pTo = a & "\dzc06.txt"'这里你忘了文件名
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)