hallo,
mit diesem code aus diesem forum kann ich den ordner "Test_A" aus dem pfad c:/beispiel_A
in den pfad c:/beispiel_B als ordner "Test_B" kopieren:
nun ist das problem, wenn es den pfad c:/beispiel_B nicht gibt, bricht der code ab.
könnt ihr mir bitte helfen, den code so zu erweitern, dass der zielpfad, sofern nicht vorhanden, erstellt wird.
der code:

Private Sub CommandButton1_Click()



Unload Me



Dim strSourceFolder As String, strTargetFolder As String

Dim objFSO As Object



strSourceFolder = "C:\Beispiel_A\Test_A"

strTargetFolder = "C:\Beispiel_B\Test_B"



Set objFSO = CreateObject("Scripting.FileSystemObject")



objFSO.CopyFolder strSourceFolder, strTargetFolder



Set objFSO = Nothing



frmProgress.Show



End Sub


vielen lieben dank
gruss Bernd