用filecopy 复制文件的时候路径中有空格怎么处理?

[xfpiao]

如题! 忘解答.

[ningyong58]

debug.Print asc(" ")
32
chr(32)代替空格
我碰到"号时，常用chr(34)解决。

[还想懒够]

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

[of123]

SourceFile = Chr(34) & SourceFile & Chr(34)
DestFile = Chr(34) & DestFile & Chr(34)
FileCopy SourceFile, DestFile

[Sandrer]

用2楼的API函数或得该路径的DOS名称，再复制~

[lianxiangpanjin]

好像照样能复制过去

[HtSoft]

带空格可以复制
比如下面这样的

FileCopy "d:\1 1 1\1.txt", "d:\2.txt"

[cbm6666]

'在VB之下直接使用
Private Sub Command1_Click()
FileCopy "C:\Program Files\testa b\cmd.txt", "c:\cmd.txt"
End Sub

'********************************
'shell(DOS命令)时要将长文件名改为短文件名
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Sub Command1_Click()
FileCopy Getshortname("C:\Program Files\testa b") & "\cmd.txt", "c:\cmd.txt"
End Sub

Public Function Getshortname(ByVal sLongFileName As String) As String
Dim lRetVal&, sShortPathName$, iLen%
sShortPathName = Space(255)
iLen = Len(sShortPathName)
lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
Getshortname = Left(sShortPathName, lRetVal)
jj = InStr(Getshortname, Chr(0))
If jj > 0 Then Getshortname = Mid(Getshortname, 1, jj - 1)
End Function

[UltraBejing]

有问题请先GOOGLE,BAIDU