Bilder kopieren und umbennen

[thowe]

Gut Andreas,

poste mal den Code den du bisher hast, dann gucken wir mal, wie wir dir beim umbenennen "in deinem Code" helfen können....

EDIT:

also wenn du diesen Code hast, dann gebe ich dir ein paar Hinweise. Selbst zu coden und einzubauen, das schaffst du sicher

Code:

Sub CopyAllFiles()
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 = "C:\Users\sumit\Desktop\Source"
DestinationFolder = "C:\Users\sumit\Desktop\Destination"

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:=False
Next MyFile

In der "For Each Schleife" kopierst du mit:

Code:

Destination:=DestinationFolder & "\" & MyFile.Name, Overwritefiles:=False

Tipp:

weise der Eigenschaft MyFile.Name vor "Destination:= …" den Wert zu den du gerne hättest nämlich "Standort_XYZ"


lg