怎么利用List1进入系统某文件夹

Question

我想利用一个List1文本和COMMAND按钮来做一个这样的程序比如我在List1里输入C:\WINDOWS按一下命令按钮就能直接进入。WINDOWS文件里。这代码应该怎么写？

Answer 1

Private Sub Command1_Click()
On Error GoTo L1
Shell "C:\WINDOWS\explorer.exe " & Text1, vbNormalFocus
Exit Sub
L1:
MsgBox Err.Description
End Sub文本框内输入 C:\WINDOWS  单击命令按钮 打开 文本夹

Answer 2

或者添加 一个  file 控件 一个 dir 控件 一个Drive 控件
然后在窗体里添加
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Answer 3

tmd007(学而时习之，不亦乐乎。姓菜名了字灌之号蹭之。) 的才是lz想要的吧？

Answer 4

To: “...点运行就能进入某文件夹 ”是“打开文件夹吧”，如果是这样，“tmd007(学而时习之，不亦乐乎。姓菜名了字灌之号蹭之。) ”给出的答案就是你想要的。