|
设置好后该窗体的界面如图2所示：
图2
下面为窗体加入如下一些声明和代码：
‘用于显示选择文件夹浏览窗口的常数、类型和API
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private LastFileName As String
‘以下为具体的实现代码
Private Sub CommandBrowse_Click() '选择保存文件的路径
TS= SelectedDir()
If TS<>”” then
TextLocation.Text =TS
endif
End Sub
Private Function SelectedDir() As String '自定义函数，显示文件夹选择对话框并返回用户的选择
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "选择文件的保存位置"
With tBrowseInfo
.hWndOwner = Me.hWnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
|
