AW: Bilder umbenennen
14.07.2008 13:36:56
Hajo_Zi
Hallo Mustafa,
Du wolltest ja nur ein Ansatz.
Option Explicit
Public Sub JPG_B_Name()
Dim strVerzeichnis$, strDatei$, strZahl$
Dim I As Integer
strVerzeichnis = "D:\Eigene Dateien\Eigene Bilder\Serie 4"
strDatei = Dir(strVerzeichnis & "\*.jpg")
On Error GoTo Weiter
I = Range("A2")
Name strVerzeichnis & "\" & strDatei As strVerzeichnis & "\" & I & ".JPG"
Do While strDatei ""
strDatei = Dir()
If strDatei "" And Mid(strDatei, 1, Len(strDatei) - 4) CStr(Range("A2")) Then
I = I + 1
Name strVerzeichnis & "\" & strDatei As strVerzeichnis & "\" & I & ".jpg"
Application.StatusBar = I
Else
MsgBox "Bilder wurden umbennant!!" & Chr(10) & "2. Zeile", , "Bilder"
Range("A2") = I + 1
End If
Loop
Weiter:
End Sub