如何用vb6来开文件夹？解决

kslim_84

我在网上找到了这些程式
Private Sub cmdBrowse_Click()
Dim strResFolder As String
strResFolder = BrowseForFolder(hWnd, "Please select a folder.")
If strResFolder = "" Then
    Call MsgBox("The Cancel button was pressed.", vbExclamation)
Else
    Call MsgBox("The folder " & strResFolder & " was selected.", vbExclamation)
End If
End Sub

如果我的D drive里有个文件夹名ABC11（D：\ABC11)，那我要怎样更改以上的程式呢？

kslim_84

我用这种方法来代替以上的程式

Shell ("explorer.exe D:\ABC11")

可是folder不会pop上来，只是在task bar那里。
要如何让它显示出来呢？