Re: fortlaufende nummer in dateiname
03.12.2002 02:47:51
Nepumuk
Hallo Jojo,
ein Beispiel, wie du nach schon vorhandenen Nummern suchen kannst und die nächsthöhere in der Variablen "Dateinummer" zur Verfügung gestellt bekommst. Die Dateinamen bestehen aus: "Mappe" plus einer vierstelligen Nummer.Public Sub Speichern()
Dim Dateiname As String, Nummer As Integer, Dateinummer As String
Dateiname = Dir("D:\Eigene Dateien\Test\")
Do While Dateiname <> ""
If Left(Dateiname, 5) = "Mappe" Then
If Nummer < CInt(Mid(Dateiname, 6, 4)) Then Nummer = CInt(Mid(Dateiname, 6, 4))
End If
Dateiname = Dir
Loop
Dateinummer = String(4 - Len(CStr(Nummer + 1)), "0") & CStr(Nummer + 1)
End Sub
Code eingefügt mit Syntaxhighlighter 1.14
Gruß
Nepumuk
PS. In deinem Code ist ein gravierender Fehler. Du darfst keine Punkte im Dateinamen (dein Datum) verwenden. Siehe Dateinamenkonvention.