Tam Yolu Verilmiş Dosyanın Adını Bulmak

Function StripPath(ref3$) As String
Dim ref1%, ref2%
StripPath$ = ref3$
ref1% = InStr(ref3$, "\")
Do While ref1%
ref2% = ref1%
ref1% = InStr(ref2% + 1, ref3$, "\")
Loop
If ref2% > 0 Then StripPath$ = Mid$(ref3$, ref2% + 1)
End Function

Private Sub Command1_Click()
Label1.Caption = StripPath("c:\windows\media\tada.wav")
End Sub