vb 取文件名、后缀名、文件名+后缀名的例子

Private Sub Command1_Click()
Dim cmm
cmm = App.Path
Dim fifeName
fifeName = "C:\Documents and Settings\Administrator\桌面\eg.bat"
If Right(cmm, 1) <> "\" Then
cmm = cmm & "\" & fifeName
End If

'取文件名
Dim ce
Dim cm
ce = InStrRev(cmm, ".", Len(cmm))
If ce <> 0 Then '找到了文件的后缀名位置
cm = InStrRev(cmm, "\", Len(cmm))
If cm <> 0 Then '找到了文件名的位置
    fifeName = Right(cmm, Len(cmm) - cm)
End If
End If
MsgBox (fifeName)    '文件名 ＋ 后缀名
MsgBox (Mid(cmm, cm + 1, ce - cm - 1)) '文件名
MsgBox (Mid(cmm, ce + 1)) '后缀名
End Sub

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: VBVB 文件名文件名 后缀名后缀名
相关日志: