这是回答问题的那位大哥写的只获得文件名的代码写个函数来取不含路径的文件名嘛,比如下面的函数:
Function zyFileName(xqxq As String) As String '取不含路径的文件全名
xqxq = Trim(xqxq)
Dim p As Integer
If InStrRev(xqxq, "\") <> 0 Then
p = InStrRev(xqxq, "\")zyFileName = Mid(xqxq, p + 1)
Else
zyFileName = ""
End If
End Function################################################
zyfilename(ss)就可以实现你程序里的要求了那位大哥还在吗?我想要除文件名以外的所有字符,是不是把上面的代码改一改就OK了?
刚才忘说谢谢了,"谢谢啊~~"