Foto-Datein umbenennen ?
05.01.2005 10:07:50
Thomas_H
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.