Question

vb6.0怎么打开跟程序在同一个目录下的文件夹？

我这个目录随便放那里随便放什么地方或者其他电脑.U盘.光盘都能打开文件夹，求这代码怎么写，我是小白，麻烦说清楚一点啊。谢谢了

Answer 1

Private Sub Form_Load()
    Text1 = ""
    On Error GoTo Err
    Dim strSj As String
    '打开文件
    Open App.Path & "\wenjian.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, strSj
        Text1 = Text1 & strSj & vbCrLf
    Loop
    Close #1
Err:
End Sub

追问

我要是的打开文件夹啊，大哥，我是菜鸟，能说清楚一点吗？

追答

打开文件夹干吗用？

追问

看里面的文档，几个文档

追答

Option Explicit
   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()
   Call ShellExecute(0, "Open", "explorer.exe", App.Path & "\mulujia", vbNullString, 1)
End Sub

以上代码是打开名称为mulujia的目录夹的。

追问

这代码我也看到过，就是弄半天不会用，一直弄不对。我是真的很菜，刚开始学的。

追答

给个实例工程。

追问

怎么打开程序所在的目录呢？

追答

Private Sub Command2_Click()
    Call ShellExecute(0, "Open", "explorer.exe", App.Path & "", vbNullString, 1)
End Sub

Answer 2

哦，很容易啊：

Private Sub Form_Load()
    '打开文件夹
    Shell "explorer """ & App.Path & """ "
End Sub