VBA 在 FSO 时"Path not found"获取错误。复制文件夹获取带空格的文件夹名称

Question

我得到一个"未找到路径"；当我试图复制一个名称中有空格的目录(strFolder(时出错。两个文件夹都存在。如何绕过这个限制？

Sub foldecopytest()
Dim objFSO, strFolder, strToPath
strFolder = "f:Logistics ManagerInvoice22000741 KlientID"
strToPath = "\10.224.73.57DatabaseLogisticsInvoice"
Set objFSO = CreateObject("Scripting.FileSystemObject")


objFSO.CopyFolder strFolder, strToPath
End Sub

Answer 1

从两个文件夹路径中删除结束的。

Sub foldecopytest()
Dim objFSO As Object, strFolder As String, strToPath As String
strFolder = "f:Logistics ManagerInvoice22000741 KlientID"
strToPath = "\10.224.73.57DatabaseLogisticsInvoice"
Set objFSO = CreateObject("Scripting.FileSystemObject")


objFSO.CopyFolder strFolder, strToPath
End Sub

如果你想复制整个文件夹，而不仅仅是内容：

Sub foldecopytest()
Dim objFSO As Object, strFolder As String, strToPath As String
strFolder = "f:Logistics ManagerInvoice22000741 KlientID"
strToPath = "\10.224.73.57DatabaseLogisticsInvoice"

Set objFSO = CreateObject("Scripting.FileSystemObject")

With objFSO.GetFolder(strFolder)
.Copy strToPath & "" & .Name
End With
End Sub