[小问题求助]为啥在不同版本里面执行不一样

zixuan203344

2. Public Function Browse() As Long
   
3. 
   
4.     ' Displays the Browse For Folder dialog
   
5.     Dim Path As String * MAX_PATH
   
6.     Dim retval As Long, bi As BROWSEINFO
   
7.    
   
8.     bi.ulFlags = BIF_RETURNONLYFSDIRS
   
9.     bi.lpszTitle = mvarDialogTitle
   
10.     retval = SHBrowseForFolder(bi)
    
11.     If retval Then
    
12.         Call SHGetPathFromIDList(retval, Path)
    
13.         mvarPath = Left(Path, InStr(Path, Chr(0)))
    
14.     End If
    
15.     Call CoTaskMemFree(retval)
    
16.     Browse = retval
    
17. 
    
18. End Function

Public Function Browse() As Long<br /> <br />     ' Displays the Browse For Folder dialog<br />     Dim Path As String * MAX_PATH<br />     Dim retval As Long, bi As BROWSEINFO<br />     <br />     bi.ulFlags = BIF_RETURNONLYFSDIRS<br />     bi.lpszTitle = mvarDialogTitle<br />     retval = SHBrowseForFolder(bi)<br />     If retval Then<br />         Call SHGetPathFromIDList(retval, Path)<br />         mvarPath = Left(Path, InStr(Path, Chr(0)))<br />     End If<br />     Call CoTaskMemFree(retval)<br />     Browse = retval<br /> <br /> End Function

函数功能是：浏览文件或者文件夹对象。在08-10版本中，正常执行，但是在14版本上执行就崩溃或者点不动。

逐步调试，我发现问题出在 retval = SHBrowseForFolder(bi) 这句。


因为平时玩lisp，对VBA不是太熟，请教如何修改，才能在14版上正常使用

xinxirong

mvarDialogTitle变量未定义

zixuan203344

xinxirong 发表于 2017-8-3 19:10
mvarDialogTitle变量未定义

前面定义过了
Private mvarDialogTitle As String