Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: nächste Nummer II
Autor: LordOfTrance
Datum: 18.05.02 01:12
Hallo Chrisz Versuch es mal so: Dim lNumber As Long Public Function GetNextFile(ByVal sPath As String) As String Dim sFile As String Do lNumber = lNumber + 1 sFile = sPath & "a" & Format$(lNumber, "02###") & ".dat" If Dir$(sFile) = "" Then Exit Do If Dir$(sFile) = sFile Then lNumber = lNumber + 1 Loop GetNextFile = sFile End Function Also "Dim lNumber As Long" aus der Funktion nehmen und anstatt "02006" entweder durch "02000" bzw. "02###" ersetzen. Desweiteren hab ich "lNumber = lNumber + 1" vor "sfile = ..." gestellt und "If Dir$(sFile) = sFile Then lNumber = lNumber + 1" hinzugefügt, falls die Datei schon besteht. CU Lord Of Trance

nächste Nummer II	43	Chrisz	17.05.02 16:58
Re: nächste Nummer II	20	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