Quickie!

[Zevlag]

I am feeling like an idiot today but...

I have a string which holds the path:
C:\WINNT\Media\Windows Logon Sound.wav
I just wanna be able to chop off the file name and put it in a listbox. I am just being stupid today and can't think of the best way to do it, just a function to chop off anything after the last " \" and return it as its own string.


Zevlag

[Skitchen8]

dim a as integer
filenam = split (strpath, "\")
a = ubound (filenam)
filename = filenam (a)

[Zevlag]

thanks, I totally spaced out the split function!

Zevlag

[chrisjk]

Another way if you want (VB5 friendly!):

Dim strFile As String
Dim strNew As String
Dim i As Long
 
strFile = Text1.Text
 
Do While Right(strFile, 1) <> "\"
    strNew = strNew & Right(strFile, 1)
    strFile = Left(strFile, Len(strFile) - 1)
Loop
 
strNew = StrReverse(strNew)
List1.AddItem strNew

[Skitchen8]

yeah i understand, happens to me all the time. You may have to clean my code up a lil cuz i was too lazy to open up VB to check it.

[MartinLiss]

Split is certainly one way to do it. Here's another

MyString = "C:\WINNT\Media\Windows Logon Sound.wav"

MsgBox Right$(MyString, Len(MyString) - (InStrRev(MyString, "\")))

[Skitchen8]

yeah i think that split is the easiest way though, less code

[Zevlag]

Oh, no big deal, it was just the function I was looking for! Just spaced me. Oh and thanks ChrisJK that looks like taht may work bettere anyways!

Zevlag