VB中CommonDialog的问题

显示全部楼层 · 2010-5-8 14:51:49

我主要是想做个音乐播放器。。
CommonDialog1.ShowOpen
我用这句话老不能选整个文件夹，它一定要我选文件
我要打开整个文件夹的名字，不是文件夹里面的东西。。
怎么能成弹出打开那对话框可以打开整个文件的

千问 · 2010-5-8 14:51:49

窗体：Private Sub Form_Click() Dim TempStr
As String
If ShowDir(Me.hWnd, TempStr, "提示文字") Then
MsgBox TempStr
Else
'不成功
End IfEnd Sub'写在模块中Public Declare Function SHBrowseForFolder _
Lib "shell32.dll" Alias "SHBrowseForFolderA" _
(lpBr

千问 · 2010-5-8 14:51:49

CommonDialog控件不能选整个文件夹用DriveListBox和DirListBox吧。