Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

获取文件后缀

1970-1-1 08:00| 发布者: harsonliao| 查看: 2071| 评论: 0

Function GetFileSuffix(strFileName As String) As String

'返回文件后缀

Dim I As Integer

For I = Len(strFileName) To 1 Step -1
'文件名中不允许有"\"字符，如先返回"\"则此文件没有后缀

If Mid$(strFileName, I, 1) = "\" Then
GetFileSuffix = ""
Exit Function
End If

If Mid$(strFileName, I, 1) = "." Then
GetFileSuffix = Mid$(strFileName, I)
Exit Function
End If
Next I

End Function

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

获取文件后缀

最新评论

相关分类