请问在VB中用APP.PATH得到当前目录，如果想要的是上一级目录名称应该怎么办

apppath中包含完整路径，你从路径字符串里取出来不就行了。

如下：

Dim ParentPath As String

If Len(AppPath) <> 3 Then

ParentPath = Mid(AppPath, 1, Len(AppPath) - InStr(AppPath, "\") - 2)

MsgBox "程序所在目录的上级目录是" & ParentPath

Else

MsgBox "程序位于分区根目录" & AppPath

End If

有关文件和文件夹的 *** 作，我喜欢用FileSystemObject模型来 *** 作，特别简单！

1引用Microsoft Scripting Runtime

2 Dim parentPath As String

Dim fso As FileSystemObject

Set fso = New FileSystemObject

parentPath = fsoGetParentFolderName("C:\1\as\text\p")

3parentPath 就是你要的结果

很简单哦。

如果你给的路径是变量名为path

获取当前目录：

PathGetDirectoryName(path);

获取上一级目录

PathGetDirectoryName(PathGetDirectoryName(path));

注意，路径的后面有\\和没有\\是有区别的，也就是说"C:\\123"和"C:\\123\\"是有区别的，自己测试一下就知道了。

'程序代码 '遍历文件夹

Private Sub ShowFolderList(folderspec)

Dim fs, f, f1, s, sf

Dim hs, h, h1, hf

Set fs = CreateObject("ScriptingFileSystemObject")

Set f = fsGetFolder(folderspec)

Set sf = fSubFolders

For Each f1 In sf

List1AddItem folderspec & "\" & f1Name

Call ShowFolderList(folderspec & "\" & f1Name)

Next

End Sub

以上就是关于请问在VB中用APP.PATH得到当前目录，如果想要的是上一级目录名称应该怎么办全部的内容，包括:请问在VB中用APP.PATH得到当前目录，如果想要的是上一级目录名称应该怎么办、VB获取当前目录的上级目录名、asp.net中的Server.MapPath怎么获取上级目录找了网上的方法都不行等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！