Question

VB获取当前目录的上级目录名

比如现在一个VBS文件在"C:\1\as\text\p"这个目录下，我想用代码获取目录p的上一级目录也就是text（text内有若干个下级目录），有什么代码可以实现？

Answer 1

有关文件和文件夹的操作，我喜欢用FileSystemObject模型来操作，特别简单！
1.引用Microsoft Scripting Runtime
2. Dim parentPath As String
Dim fso As FileSystemObject
Set fso = New FileSystemObject
parentPath = fso.GetParentFolderName("C:\1\as\text\p")
3.parentPath 就是你要的结果

Answer 2

Dim ParentPath As String
Dim s As String
Dim i As Integer
Do Until s = "\"
s = Mid(App.Path, Len(App.Path) - i, 1)
i = i + 1
Loop
If Len(App.Path) <> 3 Then
ParentPath = Mid(App.Path, 1, Len(App.Path) - i)

MsgBox "上级目录是" & ParentPath
Else
MsgBox "程序位于根目录"
End If

Answer 3

比如可以用 a =split("C:\1\as\text\p" ,"\") 生存数组,从而把目录名每个节点名分解在数组中了。