如何获取文件所在的文件夹
如题，如果知道文件所在的位置，如何获取文件所在的文件夹的位置？

[解决办法]
这个也可以,用MID函数从右边开始找,找到 "\ "后就可以了

'A 为文件路径
Dim I As Integer
Dim J As String
For I = 0 To 20
J = Mid(A, Len(A) - I, 1)
If J = "\ " Then
J = Left(A, Len(A) - I - 1)
Exit For
End If
Next I