各位,我想在VB中弹出一选择文件夹的窗口来选择指定的文件夹,,并且可以在该窗口上创建新文件夹,但是不涉及文件..如何做?

谢谢

Private Sub Command1_Click()
C.ShowOpen
If C.FileName <> "" Then
a = InStrRev(C.FileName, "\", -1, 2)
Text1 = Left(C.FileName, a - 1)
End If
End Sub

谢谢,
但我还是想在提示的窗口中不要有出现与文件相关的信息,因为用户所要选择的目录与目录中的文件没有关系,在你的示例中用户还是要点击一下目录中的某一个文件的. 只点击目录名还是不行.

使用 SHBrowseForFolder 函數,

Private Sub Dir1_Change()
Text1 = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

这是API吗？

Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = &H1
Private pidl As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Sub command1_Click()
Dim bi As BROWSEINFO
Dim r As Long
Dim pidl As Long
Dim path As String
Dim pos As Integer
'句柄
bi.hOwner = Me.hWnd
'展开根目录
bi.pidlRoot = 0&
'列表框标题
bi.lpszTitle = "请选择软件安装路径："
'规定只能选择文件夹，其他无效
bi.ulFlags = BIF_RETURNONLYFSDIRS
'调用API函数显示列表框
pidl = SHBrowseForFolder(bi)
'利用API函数获取返回的路径
path = Space$(512)
r = SHGetPathFromIDList(ByVal pidl&, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
Text1 = Left(path, pos - 1)
Else: Text1 = ""
End If
End Sub

如果要加入 "新建文件夾" 這個按鈕, 還需要有
BIF_NEWFOLDERBUTTON 這個標志,
Const BIF_NEWFOLDERBUTTON = &H40

還可以 DIY 一下這個 對話框, lpfn 的值設置爲一個回調函數的地址就可以了 (AddressOf)
在系統顯示這個對話框的時候, 會先後産生值爲 1, 2, 5 的消息, 通常在 2 裏 DIY

=========
這個對話框的各個控件的 ID:
'信息 Static: 0x3742 (&H3742)
'TreeView: 0x64 (&H64)
'新建文件夾對話框 0x3467 (&H3467)
'確定按鈕: 1
'取消按鈕: 2
'右下角 Sizebox: 0x3747 (&H3747)
"文件夾" static: 0x3748 (&H3748)
'TextBox (Edit): 0x3744 (&H3744)
--------------------------- DIY 主要用到 SetDlg... 開頭的函數..
例如, 在資料管理器的工具欄上的 "複製到" 這個工具, 彈出的對話框中, "新建文件夾" 這個按鈕的文字變成了 "複製"
就是這個道理了