求分解文件名和路径的代码，比如file_name_full = "c:\windows\command\cmd.com"如何得到file_path = "c:\windows\command\" file_name =

Question

Private Sub Form_Load()
file_name_full = "c:\windows\command\cmd.com"
file_path = Left(file_name_full, InStrRev(file_name_full, "\"))
file_name = Right(file_name_full, Len(file_name_full) - InStrRev(file_name_full, "\"))
MsgBox file_path
MsgBox file_name
End Sub

Answer 1

Function shortpath(ByVal longpath As String) As String
Dim temp
temp = Split(longpath, "\")
shortpath = temp(UBound(temp))
End FunctionPrivate Sub Command1_Click()
MsgBox shortpath("c:\windows\command\cmd.com")
End Sub