Question

vb 如何打开一个路径为变量的文件夹

比如有个路径是有"E:\lao\" & text1.text
text1.text是我输放的文件夹名称
那么怎么用shell ("explorer.exe")来打开这个变量的路径

Answer 1

Private Sub Command1_Click()
Dim p As String
Open "e:\lao\text1.txt" For Input As #1
Input #1, p
Close #1
Shell "explorer.exe " & p
End Sub

先将text1.txt里的文件夹路径字符串取出给p
再通过explorer打开，"explorer.exe "里面有个空格不要看错了
简单写写，没有处理异常错误，比如文件夹不存在，或者文本没有内容，或者文本内容不正确等情况没有处理。

Answer 2

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

Private Sub Command1_Click()
Dim r As Long
r = ShellExecute(0, "open", "c:\", 0, 0, 1)
End Sub

'上面的c:\ 就是你需要制定的路径

Answer 3

shell "explorer.exe " & "E:\lao\" & text1.text
当然你也可以带上窗口参数，比如最大化并有焦点
Shell "explorer.exe " & "E:\www\" & Text1.Text, vbMaximizedFocus