加急!!怎样实现将按钮指向当前目录？？？？

Question

shell "explorer.exe " & "路径"

Answer 1

app.path 就是你的程序所在位置，只要把程序放在光盘上也就得到光盘路径了。

Answer 2

用下面两个都可以:shell "explorer.exe " & App.PathPrivate Sub Command1_Click()
 Shell "start " & App.Path
End Sub

Answer 3

用API
Public Const DRIVE_CDROM = 5
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
 主要代码为
    For i = asc("a") To asc("z")
        If GetDriveType(Chr(i) & ":\") = DRIVE_CDROM Then
            driverrom = Chr(i) & ":\"
        End If
    Next
CD-ROM的盘符已找到以后就不用说了吧

Answer 4

我刚开始时这样做的：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 LongPrivate Sub Label2_Click()
ShellExecute Me.hwnd, "open", "e:", vbNullString, vbNullString, 5
end sub
后来发现它只能打开指定盘符里的东西，而不能打开当前光驱里的东西。app.path 怎么用??

Answer 5

你把你的程序放到光盘上运行，然后这样调用就会打开光盘的内容了：ShellExecute Me.hwnd, "open", app.path, vbNullString, vbNullString, 5另：要调试的话先装一个虚拟光驱的软件。

Answer 6

thank you!
问题已结束！谢谢！