VB中如何解决带空格的文件路径

来源：百度知道 编辑：UC知道 时间：2024/05/26 11:48:21
Set objShell = CreateObject("WScript.Shell")

objShell.Run ("D:\Program Files\ICO\源程序\QQ显IP版\GMenu.exe")
Unload Me

为什么这句运行会出错啊，```我我我急用呀，救各位大位帮忙呀
真对不起我也是初学VB的，请问何用trim(字符数组)将空格去掉啊，具体怎么样，是否能把代码贴出来呀，谢谢````

trim只能去掉字符串头尾的空格，你的问题可能是长文件名无法识别，
1) 在窗体模块声明GetShortPathName：
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

2）在事件中添加如下代码：
Dim strShort As String,fname$,l&,fname2$
fname="D:\Program Files\ICO\源程序\QQ显IP版\GMenu.exe"
strShort = String(LenB(fname), Chr(0))
l& = GetShortPathName(ByVal fname, ByVal strShort, ByVal Len(strShort))
fname2$ = Left(strShort, InStr(strShort, Chr(0)) - 1)
Set objShell = CreateObject("WScript.Shell")
objShell.Run (fname2)
Unload Me

用trim(字符数组)将空格去掉