哈莉.奎茵邪恶本子:请问在VB中用APP.PATH得到当前目录,如果想要的是上一级目录名称应该怎么办???

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/11 03:47:31
请各位大虾们赐教!!

app.path中包含完整路径,你从路径字符串里取出来不就行了。
如下:

Dim ParentPath As String
If Len(App.Path) <> 3 Then
ParentPath = Mid(App.Path, 1, Len(App.Path) - InStr(App.Path, "\") - 2)
MsgBox "程序所在目录的上级目录是" & ParentPath
Else
MsgBox "程序位于分区根目录" & App.Path
End If