수다닷컴

중복구문 오류나서
Playlist.AddItem Right(Left(a$, InStrRev(a$, \.\) - 1), Len(Left(a$, InStrRev(a$, \.\) - 1)) - InStrRev(Left(a$, InStrRev(a$, \.\) - 1), \\\\))

로 해결봤습니다 ㅋㅋ 감사합니다

도움 많이되었습니다..행복하세요

Function GetFileName(ByRef FilePath As String) As String
Dim Temp As String
Temp = Left(FilePath, InStrRev(FilePath, \.\) - 1)
GetFileName = Right(Temp, Len(Temp) - InStrRev(Temp, \\\\))
End Function

사용법
MsgBox GetFileName(\C:\\다운로드\\aaa.txt\)

유닉스계열은 파일