Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Foto-Datein umbenennen ????

Foto-Datein umbenennen ?
05.01.2005 10:07:50
Thomas_H
Hallo NG!
Versuche gerade für meine neue Digitalkammera ein Programm zu erstellen mit dem ich leicht alle Fotos auf einmal umbenenn kann. Leider funktioniert der Code nicht wirklich. Hoffe ihr könne mir helfen und mir sagen was nicht stimmt.

Sub Fotos_umbenennen()
Dim altN$, neuN$, Pfad$, FName$
FName = InputBox("Neuen Namen der Fotos eingeben")
With Application.FileSearch
For i = 1 To .FoundFiles.Count
altN = .FoundFiles(i)
neuN = FName & "_" & i & ".jpg"
Pfad = "C:\Test"
ChDir "C:\"
Name Pfad & altN As Pfad & neuN
Next i
End With
End Sub

Danke für eure Hilfe.
Thomas H.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Foto-Datein umbenennen ?
05.01.2005 10:23:03
Thomas_H
Hallo Peter!
Danke für deine Hilfe. Wenn es so funkioniert dann erspar ich mir die Arbeit! :-)
Schönen Tag noch,
Thomas
Danke für die Rückmeldung o.T.
=Peter=
Hallo Thomas,
freut mich wenn dir der Tip geholfen hat.
Gruss
Peter
AW: Foto-Datein umbenennen ?
UweD
Hallo
So gehts:

Sub Fotos_umbenennen()
Dim altN$, neuN$, Pfad$, FName$
FName = InputBox("Neuen Namen der Fotos eingeben")
With Application.FileSearch
.LookIn = "c:\Temp" ' Bitte anpassen
.Filename = "*.jpg"
.Execute
For i = 1 To .FoundFiles.Count
altN = .FoundFiles(i) 'enthält bereits den Pfad
neuN = FName & "_" & i & ".jpg"
Pfad = "C:\Test"
ChDir "C:\"
Name altN As Pfad & neuN
Next i
End With
End Sub

Gruß UweD
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige