VBA代码 上级文件夹2025年3月18日 14:28
Function 上级文件夹(path, Optional k = 1)
arr = Split(path, "\")
For i = 0 To UBound(arr) - k
s = s & "\" & arr(i)
Next
上级文件夹 = Mid(s, 2)
End FunctionFunction 上级文件夹(path, Optional k = 1)
arr = Split(path, "\")
For i = 0 To UBound(arr) - k
s = s & "\" & arr(i)
Next
上级文件夹 = Mid(s, 2)
End Function
全部回复（0）