Hallo Ulrich!
Hallo Leute!
Ich hab jetzt mal Code-Teile aus diversen Foren zusammengebastelt, und es geht in die richtige Richtung:
Mit folgendem Code wird der Original-Ordner und sein Inhalt kopiert, und auch die Datei darin wird richtig umbenannt:
________________________________________________________________________________
Option Explicit
Const strFolderPath As String = "C:\tmp\VBA_Test\"
Const strFolderQ As String = "Test_01\"
Const strFolderZ As String = "C:\tmp\VBA_Test\"
Const strFolderZNew As String = "Test_02\"
Public Sub Main()
Dim objFolder As Object
Dim objFSO As Object
On Error GoTo Fin
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.Getfolder(strFolderPath & strFolderQ)
objFolder.Copy (strFolderZ)
Name strFolderZ & strFolderQ & "Test_01.pdf" As _
strFolderZ & strFolderQ & "Test_02.pdf"
Name strFolderZ & strFolderQ As strFolderZ & strFolderZNew
Fin:
If Err.Number <> 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
Set objFolder = Nothing
Set objFSO = Nothing
End Sub
________________________________________________________________________________
Leider wird dabei der Original-Ordner "Test_01\" gelöscht...
(den würde ich aber noch unverändert brauchen...)
Kann mir bitte jemand helfen?
LG
Reinhard
|