directory opslaan naar....

[bonnowagt]

Hallo,

Ik wil mijn map ECS2 automatisch opslaan naar een door mij zelf gekozen plaats op de PC. Ik heb daarvoor de volgende code:

        Dim FolderBrowserDialog1 As New FolderBrowserDialog
        With FolderBrowserDialog1
                    .RootFolder = Environment.SpecialFolder.Desktop
                     .SelectedPath = "c:\windows"
                       .Description = "Kies waar u naar toe wilt kopieren"
            If .ShowDialog = DialogResult.OK Then
                ' Display the selected folder if the user clicked on the OK button.
                MessageBox.Show(.SelectedPath)
                Dim FSO As Object
                Dim FromPath As String
                Dim ToPath As String
                FromPath = "C:\ECS2" 
                ToPath = ".selectedpath" Change
                FSO = CreateObject("scripting.filesystemobject")
                If FSO.FolderExists(FromPath) = False Then
                Exit Sub
                End If
                FSO.CopyFolder(Source:=FromPath, Destination:=ToPath)
                End If
        End With
    End Sub

Dit werkt prima. Ik krijg vervolgens de keuze waarheen ik de map wil copieren en welke naam enz. geen probleem dus.

Mijn vraag is hoe kopieer ik vervolgens map c:\ECS2 naar het opgegegen doel, doel is bijvoorbeeld E:\ESC2Backup

 

[bonnowagt]

Ik heb inmiddels zelf de oplossing, voor degene die belangstelling hebben hier volgt de code:

FSO.CopyFolder(Source:="c:\ecs2", Destination:=.SelectedPath)