Fortlaufende Nr. von Dateien in VZ

Hallo,
kann mir jemand vielleicht bezüglich einer fortlaufenden Nummerierung von Dateien innerhalb eines Verzeichnisses helfen.
Ich habe in einem Ordner Dateien vorliegen, die nach dem Muster (Bild_0001.jpg, Bild_0002.jpg) gespeichert sind. In diesem Ordner sollen immer wieder neue Bilder zugespeichert werden, die Nummerierung soll hierbei dann automatisch fortgeführt werden. (Also nächstes Bild Bild_0003.jpg usw).
Das mit dem Speichen klappt, allerdings bräuchte ich eine Nummerierungsfortführung.
Von Nepumuk habe ich mal einen Code gefunden, der sowas bewirken soll.
Leider funktioniert er nicht auf mein Beispiel:


Dim Dateiname As String, Nummer As Integer, Dateinummer As String
Dateiname = Dir(MeinVerzeichnis)
Do While Dateiname  ""
If Left(Dateiname, 5) = "Bild_" Then
If Nummer

Ist Dateinummer am Ende die Variable, die angehängt werden muss?
Wie muss ich den Code abändern, damit das bei mir funktioniert?
Vielleicht könnte mir jemand in der Angelegenheit kurz weiterhelfen.
Besten Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Nummer() 'Nummer je nach Endung wählen!! Nummer = Trim(Mid(dateiname, InStrRev(dateiname, "_") + 1)) 'für "_" Nummer = Trim(Mid(dateiname, InStrRev(dateiname, " ") + 1)) 'für Space End Sub

Sub Zaehlen () Dim Dateiname As String, Nummer As Integer, Dateinummer As String Dateiname = Dir("E:\Test\") Do While Dateiname "" Nummer = Trim(Mid(Dateiname, InStrRev(Dateiname, "_") + 1)) 'für "_" Dateiname = Dir Loop MsgBox Nummer end sub

naja, um dir zu sagen, was du ändern musst, müsstest du uns schon genauer sagen, wie sich das "funktioniert nicht" bemerkbar macht (also konkreter beschreiben, was genau passiert) und vielleicht auch konkreter beschreiben, wie die daten bei dir genau vorliegen.
also ob sie tatsächlich "Bild_0001" heißen, oder ob "Bild" auch mal was anderes sein kann.
der Code von Nempumuk ist halt genau auf "Bild_" ausgelegt, alle anderen Dateinamen werden ignoriert
und ja, Dateinummer ist die Variable, die du dann anhängen musst.
die Frage wäre auch, ob du die Variable MeinVerzeichnis im Vorfeld richtig belegt hast.
diese muss mindesten dem entprechen, dh mit dem Joker am Ende "LW-Buchstabe:\Ordner\...\*"
ich würde DIR sogar so befüllenwenn "Bild_" der tatsächliche Anfang ist: "LW-Buchstabe:\Ordner\...\Bild_?.jpb"
dann bekommst du von DIR automatisch nur Dateien ausgegeben, die diesem Schema entsprechen und du kannst dir weitere IF_Prüfungen sparen.
ebenso lässt sich die vierstellige Nummer einfacher erzeugen.
also als ganzes etwa so:


dim Nr as Long
dim Verzeichnis as String
dim SpeicherName as string
dim Datei as string
dim txt as string
Verzeichnis = "C:\Ordnername\" '--- anpassen
Datei = Dir(Verzeichnis & "Bild_?.jpg")
Do Until Datei = ""
txt = mid(Datei, 6, 4)
if Val(txt) > Nr Then Nr = Val(Txt)
Datei = Dir()
Loop
Nr = Nr + 1
Speichername = Verzeichnis & "Bild_" & Format(Nr, "0000") & .jpg

es gibt aber auch einen anderen Ansatz, die Aufgabe zu lösen:


dim Verzeichnis as String
dim SpeicherName as string
dim i as long
For i = 1 to 9999
SpeicherName = "C:\Ordner\Bild_" & Format(i, "0000") & ".jpg"
if Dir(SpeicherName) = "" Then Exit for
next
if i = 10000 then
Msgbox "alle Speichernamen vergeben"
Else
msgbox SpeicherName
end if

wenn die Schleife durchgelaufen ist, hast du deinen Speichernamen.
diese Methode würde allerdings bei Lücken zuerst die Lücken finden und füllen.
hast du also "Bild_0001" und "Bild_0003", dann würde die erste Methode "Bild_0004" ermitteln, die zweite "Bild_0002"
Dh du solltest die Entscheidung, welche Methode du verwendest, an Hand des gewünschten Verhaltens in diesem Fall fällen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Fortlaufende Nr. von Dateien in VZ

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread