Question

VB6.0做的应用 点击按钮打开应用所在目录

vb6.0做得应用 窗口中有一个按钮 点击按钮则打开本应用所在目录或者可移动磁盘 通常只插一个优盘
调用explorer.exe不能用 运行时错误 53 文件未找到
麻烦你帮我看看这段代码 第四个单选控件密码输入正确与否都没有任何反应！我主要是If End If 不会用！
Private Sub Command1_Click()
If Option1.Value Then
If Text1 = "111"
LoginSucceeded = True
Me.Hide
Unload Me
Form2.Show
Else
MsgBox "无效的密码，请重试!", , "登录"
Text1.SetFocus
SendKeys "{Home}+{End}"
End If
End If
If Option2.Value Then
If Text1 = "222" Then
LoginSucceeded = True
Me.Hide
Unload Me
Form5.Show
Else

Answer 1

Shell "C:\windows\explorer.exe " & App.Path, vbNormalFocus 打开软件自身所在目录。这里的shell需要绝对的explorer.exe文件路径，可能系统不是安装在C盘就出问题了，你可以使用API函数来获得windows的安装路径来替换C:\windows\。 百度 VB WINDOWS目录
U盘的问题需要你使用FileObjectSystem来获得盘符及其属性并进行相关的编程。百度 VB FSO 盘符
希望对你有帮助。

VB fso盘符

Answer 2

ShellExecute hwnd, "Open", App.Path, "", App.Path, 1
ShellExecute是个API函数

Answer 3

用这个:
app.path