Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

nächste Nummer II
Autor: Chrisz
Datum: 17.05.02 16:58
Hallo zusammen, Hallo Dieter, ich habe da nochmal ein problem zu meinem Thread, vielleicht kannst du dich erinnern. Ich habe mich geirrt, die Dateien, werden nicht unter a001, sondern unter a02001 abgespeichert (02 steht halt für 2002) . Ich habe jetzt folgendes gemacht: Habe Vier Dateien auf Laufwerk D:Angebote a02001.dat a02002.dat a02006.dat a02007.dat >> letztes gespeichertes Angebot (Es kann nämlich seien, das Nr. a02003,a02004,a02005 ausgelassen worden sind, als beispiel). Ich möchte aber jetzt nach a02007 mit der richtigen Nummerierung beginnen (Wirklich fortlaufend.) Mein folgender Code: Public Function GetNextFile(ByVal sPath As String) As String Dim sFile As String Dim lNumber As Long Do sFile = sPath & "a" & Format$(lNumber, "02006") & ".dat" If Dir$(sFile) = "" Then Exit Do lNumber = lNumber + 1 Loop GetNextFile = sFile End Function Private Sub Timer1_Timer() sfilename = GetNextFile("d:Angebote\") Label1.Caption = sfilename End Sub >> Als ergebnis (Label1.caption) Kommt aber A02016.dat herraus, wieso?? Die nächste freie nummer währe doch a02008.?? Was habe ich da falsch gemacht?? Danke .......Chrisz

nächste Nummer II	42	Chrisz	17.05.02 16:58
Re: nächste Nummer II	19	LordOfTrance	18.05.02 01:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen