Är det möjligt att se filerna utan filnamnstillägget i en FileListBox. T.ex visar FileListBoxen: Du kan ju göra detta trix. Inte bra. Vad händer för filer med annat än 3 teckens filändelse? Can´t win them all ;-) Niklas har ju en poäng där.Märkligt att jag måste gå över StrReverse och en ny varaiabel rev As String.FileListBox
"Namn på filen.jpg"
Jag skulle då bara vilja se "Namn på filen"
Jag laddar boxen med koden: File1.Path = "C:\Katalog"Sv: FileListBox
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>Sv: FileListBox
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.Sv:FileListBox
Självklart finns det som vanlig fiffigare sätt att lösa ett problem,detta var ett.Sv: FileListBox
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>