VB文件路径分割

Dim txturl As String

'函数一（方法一）
Public Function PathIntegral(ByVal URL As String, ByVal N As Integer) As String
Set fso = CreateObject(“Scripting.FileSystemObject”)
Select Case N
Case 0 '路径目录
PathIntegral = fso.GetParentFolderName(URL)
Case 1 '文件名
PathIntegral = fso.GetBaseName(URL)
Case 2 '文件后缀名
PathIntegral = fso.GetExtensionName(URL)
End Select
End Function

'函数二（方法二）
Public Function PathIntegral(ByVal URL As String, ByVal N As Integer) As String
Dim urlP(1) As String
If InStrRev(URL, “”) <= 0 Or InStrRev(URL, “.”) <= 0 Then Exit Function
Select Case N
Case 0 '路径目录
PathIntegral = Mid(URL, 1, InStrRev(URL, “”) - 1)
Case 1 '文件名
urlP(0) = Mid(URL, InStrRev(URL, “”) + 1, Len(URL))
urlP(1) = Mid(urlP(0), 1, InStrRev(urlP(0), “.”) - 1)
PathIntegral = urlP(1)
Case 2 '文件后缀名
PathIntegral = Mid(URL, InStrRev(URL, “.”) + 1, Len(URL))
Case 3 '文件名+后缀名
PathIntegral = Mid(URL, InStrRev(URL, “”) + 1, Len(URL))
End Select
End Function

Private Sub Form_Load()
txturl = “C:\jksdfk\jdertl\uiyer.txt”
End Sub

Private Sub Form_Resize()
Me.Cls
Print vbCrLf & vbCrLf & “文件路径：” & txturl & vbCrLf & vbCrLf & “路径名：” & PathIntegral(txturl, 0) & vbCrLf & vbCrLf & “文件名：” & PathIntegral(txturl, 1) & vbCrLf & vbCrLf & “后缀名：” & PathIntegral(txturl, 2)
End Sub