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

[jinhailong]

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

[Cooly]

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

[生活真美好]

gz

[northwolves]

Function shortpath(ByVal longpath As String) As String
Dim temp
temp = Split(longpath, "\")
shortpath = temp(UBound(temp))
End Function

Private Sub Command1_Click()
MsgBox shortpath("c:\windows\command\cmd.com")
End Sub