不用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,"\") + 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