加急!!怎样实现将按钮指向当前目录？？？？
我现在在用VB做一个driver的光盘界面，要用按钮指向光盘中的内容，怎么实现？？？就是说在任何系统中都能使用，就是说要指向当前的光盘路径。能明白我的意思吗？
各位大侠请帮帮小女子吧！！
问题点数：30、回复次数：7Top
1 楼zfl2k（风）回复于 2002-04-16 09:16:19 得分 1
app.pathTop
2 楼songyangk（小草）回复于 2002-04-16 09:16:48 得分 3
shell "explorer.exe " & "路径"Top
3 楼wxj_lake（蔚蓝的风）回复于 2002-04-16 09:21:06 得分 2
app.path 就是你的程序所在位置，只要把程序放在光盘上也就得到光盘路径了。Top
4 楼tanaya（唐博士http://blog.csdn.net/tanaya）回复于 2002-04-16 09:25:07 得分 7
用下面两个都可以:
shell "explorer.exe " & App.Path
Private Sub Command1_Click()
Shell "start " & App.Path
End Sub
Top
5 楼chenxyon（chenxyon）回复于 2002-04-16 09:37:02 得分 2
用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的盘符已找到以后就不用说了吧Top
6 楼Echogao（小糊仙）回复于 2002-04-16 09:51:52 得分 0
我刚开始时这样做的：
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 Label2_Click()
ShellExecute Me.hwnd, "open", "e:", vbNullString, vbNullString, 5
end sub
后来发现它只能打开指定盘符里的东西，而不能打开当前光驱里的东西。app.path 怎么用??
Top
7 楼load（不是东西）回复于 2002-04-16 13:51:06 得分 15
你把你的程序放到光盘上运行，然后这样调用就会打开光盘的内容了：
ShellExecute Me.hwnd, "open", app.path, vbNullString, vbNullString, 5
另：要调试的话先装一个虚拟光驱的软件。
Top
8 楼Echogao（小糊仙）回复于 2002-04-16 18:47:18 得分 0
thank you!
问题已结束！谢谢！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
