[RESOLVED] Remove the last 4 letters from my list box list names.

[ZeBula8]

Sorry, a little late with the post but I thought I'd mention it to you anyway --

You could have just easily used the GetBaseName method of the FileSystemObject...

Dim fso As FileSystemObject
Dim sBaseName As String
 
Set fso = New FileSystemObject
 
' this will return the name of the file without the extension
sBaseName = fso.GetBaseName(sPathToFile)