Dim longName as string
Dim shortName as string
Dim parts() as string
parts = split(longName, "\")
shortName = parts(UBound(parts))
Dim noExt, dummy As String
For Each dummy In TheListOfFilesArray
noExt = dummy.Split(".")(0)
noExt contains the file w/o extension so do something with it here
Next