NOPAD的VB6原碼,寫的還蠻齊全的,請參考

				
				Function ReturnFileName (F As String) As String
				
				Dim Temp As String
				Dim StartPos As Long
				
				StartPos = InStr(F, "\")
				
				If StartPos = 0 Then
				    ReturnFileName = F
				    Exit Function
				End If
				
				F = Right$(F, Len(F) - StartPos)
				Temp = ReturnFileName(F)
				ReturnFileName = Temp
				
				End Function