请问：如何能获得当前目录的上一级目录？谢谢！

Question

当前目录是：app.path
但是如何能获得当前目录的上一级目录？

Answer 1

Private Sub Command1_Click()
    GetParentFolder ("D:\1334\falskdj\als")
End SubFunction GetParentFolder(ByVal pcurFolder As String) As String
    On Error Resume Next
    Dim arrstr() As String
    Dim i As Integer
    Dim curFolder As String
    If Right(pcurFolder, 1) = "\" Then
        curFolder = Left(pcurFolder, Len(pcurFolder))
    Else
        curFolder = pcurFolder
    End If
    arrstr = Split(curFolder, "\")
    i = UBound(arrstr)
    If Err.Number = 0 Then
    
        curFolder = Left(curFolder, Len(curFolder) - Len(arrstr(i)))
    Else
        curFolder = curFolder & "\"
    End If
    GetParentFolder = curFolder
End Function

Answer 2

这个除了上面的方法外用 fso对象也能实现

Answer 3

这样最简单～ ^ ^
一句：App.Path & "\..\"Private Sub Form_Load()
    Me.Show
    
    ChDir App.Path
    
    Me.Print "当前目录：" & CurDir
    
    ChDir App.Path & "\..\"
    
    Me.Print "上级目录：" & CurDir
End Sub

Answer 4

谢谢大家的帮助！^_^
AprilSong的方法最简单了，谢谢！