Bilder kopieren und umbennen

[AndreasRoe]

Das ist der Quellcode:


Sub BildCopy()

Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim SourceFolder As String
Dim DestinationFolder As String
Dim MyFolder As Folder
Dim MySubFolder As Folder

SourceFolder = ActiveWorkbook.Path & "\Rohdaten\Fotos1\"
DestinationFolder = ActiveWorkbook.Path & "\Standort_XYZ\Fotos2\"

Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder(SourceFolder)

For Each MyFile In MyFolder.Files
    MyFSO.CopyFile Source:=MyFSO.GetFile(MyFile), _
    Destination:=DestinationFolder & "\" & MyFile.Name, Overwritefiles:=True
Next MyFile

'Umbenennen der Dateien

End Sub


PS: Wenn ich das Script auf einem anderen Rechner "installiere", muss dann auch immer der Verweis auf die "Microsoft Scripting Runtime" gegeben sein?