.jpg dat. mit vb umbenennen

Question

Hallo zusammen,

im folgenden pfad:
"C:\Eigener Datein\Test\"
stehen über 100 fotos die ich gerne mit hilfe vb umbenennen möchte.

in einer excel mappe Spalte A stehen die alten Namen und in Spalte B stehen die Neuen namen der Fotos

Kann mit villeicht jemand zu diesem Problem tipp geben wie ich dies umsetzten kann

vielen dank vorab

Answer 1

Private Const OFS_MAXPATHNAME = 128

Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type

Private OF As OFSTRUCT

Private Declare Function mOpenFile Lib "kernel32" Alias "OpenFile" _
(ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

Private Const OF_EXIST = &H4000

Public Function FileExists(ByVal sFilename As String) As Boolean

On Error Resume Next
If Len(sFilename) > 0 Then
mOpenFile sFilename, OF, OF_EXIST
FileExists = OF.nErrCode <> 2
End If

End Function

Public Function umbenennen()
Dim strPfad As String
Dim lgZeilennummer As Long
Dim letzteZeile As Long
Dim altName As String
Dim neuName As String

Sheets("Tabelle1").Select
letzteZeile = Range("A65536").End(xlUp).Row
strPfad = "C:\Eigener Datein\Test\"
For lgZeilennummer = 1 To letzteZeile
altName = Cells(lgZeilennummer, 1)
neuName = Cells(lgZeilennummer, 2)
If FileExists(strPfad & altName) Then
Name strPfad & altName As strPfad & neuName
End If
Next

End Function

gruß marie

Answer 2

hi marie,

vielen dank klappt super!

viele grüsse