Är det möjligt att se filerna utan filnamnstillägget i en FileListBox. T.ex visar FileListBoxen:
"Namn på filen.jpg"

Jag skulle då bara vilja se "Namn på filen"

Jag laddar boxen med koden: File1.Path = "C:\Katalog"

Du kan ju göra detta trix.
Lägg en vanlig ListBox över din FileListBox och läs in filnamnet i ListBoxen enl denna kod.
<code>
Dim i As Long, tmpStr As String
For i = 0 To File1.ListCount - 1
tmpStr = File1.List(i)
tmpStr = Left$(tmpStr, Len(tmpStr) - 4)
List1.AddItem tmpStr
Next 'i
</code>

Perfekt. Tack så hemskt mycket

Inte bra. Vad händer för filer med annat än 3 teckens filändelse?

Bättre i så fall att köra med instrrev och leta reda på sista ".".
Och ännu bättre om det finns något sätt att fråga operativsystemet om det.

Can´t win them all ;-)

Självklart finns det som vanlig fiffigare sätt att lösa ett problem,detta var ett.

Niklas har ju en poäng där.Märkligt att jag måste gå över StrReverse och en ny varaiabel rev As String.
Får inte InStrRev att vända på tmpStr.
<code>
Dim i As Long, tmpStr As String, pos As Long, rev As String
For i = 0 To File1.ListCount - 1
tmpStr = File1.List(i)
rev = StrReverse(tmpStr)
pos = InStr(rev, ".")
tmpStr = Left$(tmpStr, Len(tmpStr) - pos)
List1.AddItem tmpStr
Next 'i
</code>