《VB6数据库开发指南》所有的例程的源码

				Attribute VB_Name = "basAttach"
				Option Explicit
				
				Public Function GetFileName(ByVal strFullPath As String) As String
				    Dim I As Integer, strTemp As String
				    
				    If Len(strFullPath) Then
				        For I = Len(strFullPath) To 1 Step -1
				            If Mid(strFullPath, I) = "\" Then strTemp = Right(strFullPath, Len(strFullPath) - I)
				        Next
				        If strTemp = "" Then strTemp = strFullPath
				    End If
				    
				    GetFileName = strTemp
				End Function