None (I refer to the Win API). You have to write some code. I know Delphi implements that function. And the name is SelectDirectory
解决方案 »
- 求高手将下面的VB代码翻译成C#,谢了!
- 其它文件里调用宏,怎么会有问题——————————?
- 组建温州计算机开发俱乐部
- Combobox和text中显示的的值,如何让他们右对齐
- 数据库记录的批量添加
- 经过摸索和想象,俺这只菜鸟终于找到解决仿 QQ头像闪烁的问题
- 问Circle函数中参数的问题
- 请问大家,在MSHFlexGrid上显示记录,能不能指定某个列的宽度,我想让字段包含有“记录”两个字的列显示特定的宽度,能不能实现?
- 小问题:请教如何在form之间传递数据?
- 我冤枉你了:tommychim(阿布洛迪)。再给你一道,答对了给你分!
- 如何在ADO判断一个表存在,再把其删除,建立新表?
- 如何知道上网帐号
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260Private Declare Function SHBrowseForFolder Lib _
"shell32" (lpbi As BrowseInfo) As LongPrivate Declare Function SHGetPathFromIDList Lib _
"shell32" (ByVal pidList As Long, ByVal lpBuffer _
As String) As LongPrivate Declare Function lstrcat Lib "kernel32" _
Alias "lstrcatA" (ByVal lpString1 As String, ByVal _
lpString2 As String) As LongPrivate 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 Sub Command1_Click()
'显示对话框
Dim lpIDList As Long 'Declare Varibles
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfoszTitle = "See it?"With tBrowseInfo
.hWndOwner = Me.hWnd 'Owner Form
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End WithlpIDList = SHBrowseForFolder(tBrowseInfo)If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
MsgBox sBuffer
End IfEnd Sub运行该程序,点击按钮将弹出选择目录对话框,选择一个目录后点ok将跳出一个msgbox说明你所选的目录。Cheers?