files函数提取文件名HTML,VB如何获得或提取文件名

'给你一个函数 根据文件地址获取文件名

Function fGetLast(ByVal originalString As String) As String

Dim tmps() As String

Dim delimeter As String

delimeter = "\" '分隔符

tmps = Split(originalString, delimeter)

fGetLast = tmps(UBound(tmps))

End Function

Private Sub Command1_Click()

Dim a As String

a = "C:\伟大无比的PLUMLEE啊.txt" '例如a 是 这个路径

Form1.Caption = fGetLast(a) & " - 记事本" '我调用A    fGetLast(文件的地址)

End Sub

VB 提取文件名(2011-04-26 14:16:31)

伟大的PLUMLEE

带扩展名的文件名

Private Sub Form_Load()

Dim nopath As String

nopath = TrimPath("C:\TXTFILES\JUSTFILE.TXT")

MsgBox nopath

End Sub

Public Function TrimPath(sPath As String) As String

Dim i As Integer, j As Integer

i = InStrRev(sPath, "\") + 1

TrimPath = Mid(sPath, i)

End Function

----------------------------------------------------------------------------------------------------------

'不带扩展名的文件名

Private Sub Form_Load()

Dim nopath As String

nopath$ = TrimPath("C:\TXTFILES\JUSTFILE.TXT")

MsgBox nopath

End Sub

Public Function TrimPath(sPath As String) As String

Dim i As Integer, j As Integer

i = InStrRev(sPath, "\") + 1

j = InStrRev(sPath, ".") - 1

TrimPath = Mid(sPath, i, j - i)

End Function

----------------------------------------------------------------------------------------------------------

'只返回扩展名

Private Sub Form_Load()

Dim nopath As String

nopath = TrimPath("C:\TXTFILES\JUSTFILE.TXT")

MsgBox nopath

End Sub

Public Function TrimPath(sPath As String) As String

Dim i As Integer

i = InStrRev(sPath, ".")+1

TrimPath = Mid(sPath, i)

End Function

----------------------------------------------------------------------------------------------------------

'托放操作得到文件扩展名

Private Sub Form_Load()

Me.OLEDropMode = 1

End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

Print TrimPath(Data.Files(1))

End Sub

Public Function TrimPath(sPath As String) As String

Dim i As Integer

i = InStrRev(sPath, ".") + 1

If i = 1 Then

TrimPath = "这可能是文件夹或没有扩展名的文件"

Exit Function

End If

TrimPath = Mid(sPath, i)

End Function