hvordan finder jeg "største" filnavn

opret en status.fil som indeholder sidste anvendte fakt-nr, og vedligeholde denne hver gang du laver en ny fil.

Hej.

Jeg kan forstå at det drejer sig om fakturaer.

Hvis det er det program du arbejder på, der står for oprettelsen af fakture-numre, ville jeg ligesom ndbth foreslå at du gemmer det senest anvendte i en lille fil.  Så slipper du for at læse biblioteket igennem hver gang.

Men ellers:

Dim lbnr, nytnr, a as Long, b as Integer

For a = 0 To Filelist.ListCount - 1
  b = Len(fileList.FileName)
  lbnr = val(Mid(FileList.FileName, 4, b-8))
  If lbnr > nytnr Then nytnr = lbnr
Next a

nytnr = nytnr + 1

Håber det er uden fejl, ellers er det vel til at gennemskue alligevel.

M.v.h.  Jørn

ndbth: en fil kan slettes hvis man finder ud af at der er noget galt med den, og for ikke at gentage fortidens synder med huller i fakturanummereringen vil jeg finde det aktuelt største nummer - ellers er ideen ok.
joern: tja sådan ville jeg have lavet det i fortran (programmeringssprog fra den sene middelalder) så det ser rimeligt ud.
Jeg vil prøve det i morgen aften.

Joern:
Dit forslag virkede ikke da der var nogle erklæringer der ikke var lavet omkring filelist.
Da nummeret skal findes uden at der bliver defineret nogen grafisk filelist er løsningen som denne: (hugget delvist fra andre svar her + lidt VB hjælp + lidt af dit program + lidt egen tankevirksomhed !!)

mypath = "c:\dokumenter\tilbud\"
MyName = Dir(mypath, vbNormal)
nytnr = 0
Do While MyName <> ""
 
  If MyName <> ".\" And MyName <> "..\" Then
        If (GetAttr(mypath & MyName) And vbNormal) = vbNormal Then

        b = Len(MyName)
        lbnr = Val(Mid(MyName, 4, b - 8))
        lbnr = Val(Mid(MyName, 1, b - 4))
        If lbnr > nytnr Then nytnr = lbnr

      End If
  End If
MyName = Dir

Loop

nytnr = nytnr + 1

Men du får nu pointene alligevel da jeg har hugget lidt af din kode.

Og lige DIM'erne hvis der skulle være andre der kan bruge denne kode:
Dim lbnr, nytnr, a As Long, b As Integer
Dim myfile, mypath, MyName

Tak for point, det glæder mig at det kunne inspirere.

M.v.h. Jørn