| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3272363
建立时间:2005年6月6日 |
| |
|
 [delpih编程]vba中文件名常用函数
软件技术
吕向阳 发表于 2010/11/7 20:19:19 |
| Function GetFileName(strFileName As Variant) As String'得到无路径的文件名，但含扩展名 Dim i As Integer For i = Len(strFileName) To 1 Step -1 If Mid$(strFileName, i, 1) = "\" Then GetFileName = Mid$(strFileName, i + 1) Exit Function End If Next i GetFileName = strFileNameEnd FunctionFunction GetFileName_no_ext(strFileName As Variant) As String'得到无扩展名，无路径的文件名 Dim filename_noext As String Dim pos1 As Integer filename_noext = GetFileName(strFileName) pos1 = InStr(filename_noext, ".") If pos1 > 0 Then filename_noext = Mid(filename_noext, 1, pos1 - 1) End If GetFileName_no_ext = filename_noextEnd FunctionFunction GetFilePath(strFileName) As String'得到文件路径名 Dim i As Integer For i = Len(strFileName) To 1 Step -1 If Mid$(strFileName, i, 1) = "\" Then GetFilePath = Mid$(strFileName, 1, i) Exit Function End If Next i GetFilePath = strFileNameEnd Function |
|
|