如何在vb中用dir命令打开某个文件夹？详细例子！！

[xiaoyi1979]

如何在vb中用dir命令打开某个文件夹？详细例子！！

[northwolves]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub opendir(ByVal dirpath As String)
ShellExecute hwnd, "open", dirpath, vbNullString, vbNullString, 5
End Sub
Private Sub Command1_Click()
Call opendir("c:\jonia")
End Sub

[jinesc]

On Error Resume Next
Dim MyName
MyName = Dir(App.Path & "\PIC\*.jpg")
Do While MyName <> "" ' 开始循环。

List1.AddItem App.Path & "\PIC\" & MyName
MyName = Dir '(App.Path & "\PIC\*.jpg")
Loop
Dim MyValue
If List1.ListCount > 0 Then
Randomize
MyValue = Int((List1.ListCount * Rnd) + 1)
Me.Picture = LoadPicture(List1.List(MyValue - 1))
End If

[射天狼]

打开文件夹,什么意思~~

[射天狼]

如果是设置当前文件夹,可以用
ChDir "D:\aa"

[高高兴兴的晶晶]

不太明白楼主想问什么？

UP

[jonia]

比如
文件夹c:\jonia文件夹
我点击按钮就能把把文件夹的窗体在打开
相当于在WINDOWS下的双击文件夹操作

[CrazyHosptial]

不用那么麻烦的.....
这样:例如你准备打开d:\吧....
Private Sub Command1_Click()
Shell "Explorer /s, D:\"
End Sub

[tanyx]

漂亮，这是程序员。