欢迎各位IT精英的光临!

不用api,vb自带函数得到文件名或扩展名

'带扩展名的文件名
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
阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭