Leider ist es schon 100 Jahre her, dass ich mit VB was gemacht habe, Vielleicht kann mir jemand helfen.
Ich möchte meine .JPG – Bilder automatisch umbenennen, damit ich beim Brennen nicht immer an gleichen Namen scheitere.
Ich habe VB 6 oder halt VBA für Word/Excel. Hat schon mal jemand so was entwickelt und kann mir Source-Code – Tipps geben ???
Gruss
Carmen
Hallo Carmen,
ich weiss zwar net wie du die 100 Files einliesst und was im ende der autmatisierung herauskommen soll. Also welcher Name.
Der Befehl zum Umbenennen von Files nennt sich name und wird folgendermassen aufgerufen
Name strOldFile As strNewFile
Nehmen wir an du hast eine liste (list1)wo die 100 Filenamen drinne stehen. dann waere eine möglichkeit folgende Beim klick auf Command1 werden sie umbenannt
Private Sub Command1\_Click()
on error resume next
dim i as byte ' Koennen ja max. nur 100 sein
if list1.listcount=0 then exit sub 'Keine Eintraege vorhanden
for i=0 to list1.listcount-1 'Liste der Eintraege durchlaufen
'Datei umbenennen aus Bild1.jpg wird Bild 0.jpg danach Bild 1.jpg
Name List1.List(i) \_
As Mid(List1.List(i), 1, Len(List1.List(i)) - 4) + Str(i) + ".jpg"
next i
end sub
Achte aber darauf das die Datei auch exisitiert 
MFG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Alex,
danke für die Hilfe.
Der Präfix ist überall gleich (PB z.B.). Ich werde
den Pfad in dem die Fotos stehen öffnen und dann nach
dem 1. File mit diesem Präfix suchen.
Dies möchte ich dann mit einer laufenden Nummer z.B. Afrika03_001.jpg
(wie Du beschrieben hast; (str(i))) umbenennen.
Dann mit do while oder so weiter .
Wiedermal einen lieben Gruss von Carmen
ich weiss zwar net wie du die 100 Files einliesst und was im
ende der autmatisierung herauskommen soll. Also welcher Name.Der Befehl zum Umbenennen von Files nennt sich name und wird
folgendermassen aufgerufenName strOldFile As strNewFile
Nehmen wir an du hast eine liste (list1)wo die 100 Filenamen
drinne stehen. dann waere eine möglichkeit folgende Beim klick
auf Command1 werden sie umbenanntPrivate Sub Command1_Click()
on error resume next
dim i as byte ’ Koennen ja max. nur 100 sein
if list1.listcount=0 then exit sub 'Keine Eintraege vorhanden
for i=0 to list1.listcount-1 'Liste der Eintraege durchlaufen
'Datei umbenennen aus Bild1.jpg wird Bild 0.jpg danach Bild
1.jpg
Name List1.List(i) _
As Mid(List1.List(i), 1, Len(List1.List(i)) - 4) + Str(i) +
„.jpg“
next i
end subAchte aber darauf das die Datei auch exisitiert
MFG Alex
Wie alte bist du??? wenn das 100 Jahre her ist.
hallo roger,
sowas gibt es schon – zum beispiel IrfanView kann das- und nicht nur das
grüße
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Alex,
danke für die Hilfe.
Der Präfix ist überall gleich (PB z.B.). Ich werde
den Pfad in dem die Fotos stehen öffnen und dann nach
dem 1. File mit diesem Präfix suchen.
Dies möchte ich dann mit einer laufenden Nummer z.B.
Afrika03_001.jpg
(wie Du beschrieben hast; (str(i))) umbenennen.Dann mit do while oder so weiter .
Wiedermal einen lieben Gruss von Carmen
Hallo Carmen,
ok wenn du das programmieren willst, ist rel. schnell gemacht
Wenn du weitere hilfe brauchst dann melde dich einfach nochmal.
ich kann dir das dann schnell tipseln und dir zukommen lassen
Liebe Gruesse zurueck Alex
ich weiss zwar net wie du die 100 Files einliesst und was im
ende der autmatisierung herauskommen soll. Also welcher Name.Der Befehl zum Umbenennen von Files nennt sich name und wird
folgendermassen aufgerufenName strOldFile As strNewFile
Nehmen wir an du hast eine liste (list1)wo die 100 Filenamen
drinne stehen. dann waere eine möglichkeit folgende Beim klick
auf Command1 werden sie umbenanntPrivate Sub Command1_Click()
on error resume next
dim i as byte ’ Koennen ja max. nur 100 sein
if list1.listcount=0 then exit sub 'Keine Eintraege vorhanden
for i=0 to list1.listcount-1 'Liste der Eintraege durchlaufen
'Datei umbenennen aus Bild1.jpg wird Bild 0.jpg danach Bild
1.jpg
Name List1.List(i) _
As Mid(List1.List(i), 1, Len(List1.List(i)) - 4) + Str(i) +
„.jpg“
next i
end subAchte aber darauf das die Datei auch exisitiert
MFG Alex
Hi all,
danke für den Tipp mit Irfan, werde es ausprobieren.
Aber um meine alten Kenntnisse (BTW: bin 28 ) wieder aufleben zu lassen würde ich es gerne selbst schreiben (abschreiben ? )
Alex: wäre nett das mit dem Source ich glaub ich hab noch genug
damit zu tun mich wieder an die Oberfläche zu gewöhnen …
Liebe Grüsse an alle von
Carmen
Hallo Carmen,
also ich muss nun nochmal schnell nach EB :s und bin erst heute Abend wieder daheim. Mal sehen wie ich dann zeit finde, bastel ich dir was zusammen und sende es dir dann auf deine email adresse
Dann kannst du dir den Source Code anschauen und im debugmodus auch, wie was passiert
Das sollte dann deine kenntnisse auffrischen
LG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Carmen, dann schau mal unter [email protected] im Postfach nach. dort solltest du post haben. Habe es dir auf die Addy geschickt. Ich hoffe das ist das was du wolltest. Wenn nicht dann melde dich einfach per mail wieder
VLG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Alex,
hab ich bekommen und archiviert. VIELEN LIEBEN DANK.
Fahre nun aber erstmal in Urlaub nach Florida und
hol die Sonne nach hier.
Melde mich dann …
Liebe Grüsse von
Carmen
Hallo Carmen, dann schau mal unter [email protected]
im Postfach nach. dort solltest du post haben. Habe es dir auf
die Addy geschickt. Ich hoffe das ist das was du wolltest.
Wenn nicht dann melde dich einfach per mail wiederVLG Alex
HGallo Carmen,
na denn wünsche ich dir viel spass dort Ich werd mich dann weiter hier im kalten langweilen :-s
LG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]