[ 本帖最后由 cuxun 于 2007-12-22 07:13 编辑 ]作者: andymark 时间: 2007-12-13 21:00
参考split的用法
也可以参考下面的例子,里面有从一个文件夹读取所有文件名的方法 http://www.office-cn.net/forum.p ... ghlight=%2Bandymark作者: Victor_Duane 时间: 2007-12-13 22:16
Function uf_GetFileName(strFileAddress As String, Optional filename As Integer = -1) As String
'===============================================================================
'-函数名称: uf_GetFileName
'-功能描述: 从文件的地址中取出文件名
'-输入参数说明: 参数1:strFileAddress 文件的地址
' 参数2:filename 取出文件名还是地址,-1为文件名,0为文件地址
'-返回参数说明: 返回文件名
'-使用语法示例: uf_GetFileName("c:\myfile\a.mdb")
'-参考:
'-使用注意:
'-兼容性: 2000,XP,2003
'-作者: Victor Duane
'-更新日期: 2007-12-13
'===============================================================================
If Len(strFileAddress) > 0 Then
Dim X As Integer
X = InStrRev(strFileAddress, "\", -1)
Debug.Print X
Select Case filename
Case -1
uf_GetFileName = Right$(strFileAddress, Len(strFileAddress) - X)
Case 0
uf_GetFileName = Left$(strFileAddress, X)
End Select
Else
uf_GetFileName = "<Null>"
End If
End Function作者: andymark 时间: 2007-12-13 22:28
用SPLIT的方法
Public Function GetFileName(FullName As String) As String
Dim vArr As Variant
Dim astr(10) As String
vArr = astr
vArr = Split(FullName, "\")
GetFileName = vArr(UBound(vArr))
End Function作者: Victor_Duane 时间: 2007-12-13 22:38
呵呵,方法多多