终于有二个角了，庆祝！再问个问题散点分。

[zhouqi66]

怎样最快从带路径的字串中取出文件名。
如从"C:\aaa\aaa.txt"中取出"aaa.txt"

[water_j]

用COMMONDAILOG控件就行,里面有一个FILE...属性可以取得文件名

[bob008]

接分！CSDN2001微软版光盘上有详细说明，如果你没买！呵呵！

[bob008]

从字符串中分离出文件路径,文件名及其扩展名
此函数从字符串中分离出路径
Function ParsePath (sPathIn As String) As String
　Dim I As Integer
　For I = Len(sPathIn) To 1 Step -1
　　If InStr(":\", Mid$(sPathIn, I, 1)) Then Exit For
　Next
　ParsePath = Left$(sPathIn, I)
End Function
此函数从字符串中分离出文件名
Function ParseFileName (sFileIn As String) As String
　Dim I As Integer
　For I = Len(sFileIn) To 1 Step -1
　　If InStr("\", Mid$(sFileIn, I, 1)) Then Exit For
　Next
　ParseFileName = Mid$(sFileIn, I + 1, Len(sFileIn) - I)
End Function
此函数从字符串中分离出文件扩展名
Function GetFileExt (sFileName As String) As String
　Dim P As Integer
　For P = Len(sFileName) To 1 Step -1
　　If InStr(".", Mid$(sFileName, P, 1)) Then Exit For
　Next
　GetFileExt = Right$(sFileName, Len(sFileName) - P)
End Function

[miaoweijun]

MsgBox Mid(sfullpath, InStrRev(sfullpath, "\") + 1)