Hej!
Det finns ett antal filer på disken, filnamn tex 01022008-05-01.txt, 01022008-05-02.txt, 01032008-04-30.txt.
Dessa filers innehåll skall jag läsa in, inga problem så långt. Men! de skall läsaw in i datum ordning!
Så 01032008-04-30.txt skall läsas först edan 01022008-05-01.txt och sist 01022008-05-02.txt.
Jag har löst det så lång att jag läser in filnamnen i en listbox men de hamnar i fel ordning i boxen så jag måste på något vis sortera dom i datumordning. Men min arma skalle kommer inte på ngt vettigt sätt att göra det på, jag skyller på värmen, några förslag ?
/Bo

Du får nog börja med att förklara namnsättningen på filerna. Är det HHMMSSDD-MM-YY ? Eller vilket format skall filnamnen tolkas ut ifrån?

Sen när man vet problemet kan man föreslå lösning.

// Johan

I 01022008-05-01 är det ????ÅÅÅÅ-MM-DD

File System Object? Kan du stoppa upp där det hör hemma.

Problemmet löses med en genuina FileListBox .

Återkommer med en lösning.

Min lösning! Bara kom till mig :)

Inp tex 01012005-07-06
Listbox List1 Sorted Property =True

Inp = Dir(App.Path + "\*.txt")
If Inp = "" Then Exit Sub
Tempstr = Mid(Inp, 5, 10) & Left(Inp, 4)
List1.AddItem Tempstr
End If

Do
Inp = Dir
If Inp <> "" Then
List1.AddItem Mid(Inp, 5, 10) & Left(Inp, 4) '2005-07-060101
End If
End If
Loop While Inp <> ""

Det var inläsningen och List1 kommer att innehålla alla filnamn sorterade i datumordning.

När jag skall läsa in:

For i = 0 To List1.ListCount - 1
'** Tillbaka till filnamn
FilNamn = Right(List1.List(i), 4) & Left(List1.List(i), 10) & ".txt"
FileNumber = FreeFile
Open App.Path + "\" + FilNamn For Input As #FileNumber