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

最新推荐文章于 2022-03-04 14:13:56 发布

动感星空

最新推荐文章于 2022-03-04 14:13:56 发布

阅读量1.2k

点赞数

文章标签：扩展 vb api integer string function

本文介绍了一个使用VBA编写的实用程序，该程序可以从完整的文件路径中提取文件名、去除扩展名或仅获取扩展名。通过不同的函数实现，适用于多种文件管理和处理需求。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'带扩展名的文件名
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