前端之家收集整理的这篇文章主要介绍了
不用api，vb自带函数得到文件名或扩展名，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
'带扩展名的
文件名 Private Sub Form_Load() Dim nopath As String nopath = TrimPath("C:\TXTFILES\JUSTFILE.TXT") Msg
Box 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") Msg
Box nopath End Sub Public Function TrimPath(sPath As String) As String Dim i As Integer,"\") + 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") Msg
Box 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
