'文件名前缀
Function GetFileName(ByVal FileName As String) As String
Dim DotIndex As Long
DotIndex = InStrRev(FileName, ".")
If DotIndex = 0 Then
GetFileName = ""
Else
GetFileName = Left(FileName, DotIndex - 1)
End If
End Function
'文件名后缀
Function GetFileNameTail(ByVal FileName As String) As String
Dim DotIndex As Long
DotIndex = InStrRev(FileName, ".")
If DotIndex = 0 Then
GetFileNameTail = ""
Else
GetFileNameTail = mid(FileName, DotIndex+1)
End If
End Function
Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" _
(ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
Private Sub Form_Load()
Dim test As String
test = GetFileNameTitle("aaaaaaaaaa.exe")
End Sub
Function GetFileNameTitle(ByVal PathName As String)
Dim Buffer As String, Ret As Integer
Dim bb As Integer
'Create a buffer
Buffer = Space(255)
'Get the file title
Ret = GetFileTitle(PathName, Buffer, 255)
'Buffer left
Buffer = Left(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
'Get the result
If Ret = 0 Then
GetFileNameTitle = Buffer
Else
GetFileNameTitle = PathName
End If
'Show the result
MsgBox "文件名是: " & GetFileNameTitle, vbInformation
End Function
Private Sub Form_Load()
Dim Files As String
Dim FilesTail As String
Const tmFiles = "MyFiles.Txt"
Files = GetFileName(tmFiles)
FilesTail = GetFileNameTail(tmFiles)
Me.AutoRedraw = True
Me.Print
Me.Print " 原始文件名: "; tmFiles
Me.Print " 文件名为: "; Files
Me.Print " 后缀名为: "; FilesTail
End Sub
'文件名前缀
Function GetFileName(ByVal FileName As String) As String
Dim DotIndex As Long
DotIndex = InStr(1, FileName, ".")
If DotIndex = 0 Then
GetFileName = ""
Else
GetFileName = Left(FileName, DotIndex - 1)
End If
End Function
'文件名后缀
Function GetFileNameTail(ByVal FileName As String) As String
Dim DotIndex As Long
DotIndex = InStr(1, FileName, ".")
If DotIndex = 0 Then
GetFileNameTail = ""
Else
GetFileNameTail = Right(FileName, Len(FileName) - DotIndex)
End If
End Function