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

发布时间：2020-12-16 22:46:08 所属栏目：大数据来源：网络整理

导读：'带扩展名的文件名 Private Sub Form_Load() Dim nopath As String nopath = TrimPath("C:TXTFILESJUSTFILE.TXT") MsgBox nopath End Sub Public Function TrimPath(sPath As String) As String Dim i As Integer,j As Integer i = InStrRev(sPath,"") + 1

'带扩展名的文件名 Private Sub Form_Load() Dim nopath As String nopath = TrimPath("C:TXTFILESJUSTFILE.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:TXTFILESJUSTFILE.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:TXTFILESJUSTFILE.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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!