游客

标题:VB API选择文件夹
正文:
Declare Function SHGetPathFromIDList Lib "shell32.dll" _Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _ByVal pszPath As String) As LongDeclare Function SHBrowseForFolder Lib "shell32.dll" _Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As LongType BROWSEINFOhOwner As LongpidlRoot As LongpszDisplayName As StringlpszTitle As StringulFlags As Longlpfn As LonglParam As LongiImage As LongEnd TypeFunction GetDirectory(Optional Msg) As StringDim bInfo As BROWSEINFODim path As StringDim r As Long, x As Long, pos As Integer' Root folder = DesktopbInfo.pidlRoot = 0&' Title in the dialogIf IsMissing(Msg) ThenbInfo.lpszTitle = "Select a folder."ElsebInfo.lpszTitle = MsgEnd If' Type of directory to returnbInfo.ulFlags = &H1' Display the dialogx = SHBrowseForFolder(bInfo)' Parse the resultpath = Space$(512)r = SHGetPathFromIDList(ByVal x, ByVal path)If r Thenpos = InStr(path, Chr$(0))GetDirectory = Left(path, pos - 1)ElseGetDirec
[<<][[1]][2][>>]

查看评论(0)
发表评论



首页