例如，创建一文本文件a.txt，地址为c:\a.txt,如何编写程序获取文件名“a.txt”
參考答案:Function fGetLast(ByVal originalString As String)As String
Dim tmps() As String
Dim delimeter As String
Delimeter="\" '分隔符
tmps=Split(originalString,delimeter)
fGetLast=tmps(UBound(tmps))
End Function
调用:
ls = fGetLast("C:\a.txt")
