backup

[bonnowagt]

Ik gebruik onderstaande code om een backup te maken. In deze code wordt eerst gevraagd fivia dialog waar de backup naar toe moet/cq nieuwe map hiervoor maken.
Het werkt prima, alleen als ik op annuleren druk loopt het programma toch door en maakt de backup. Wat dien ik te veranderen?

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
                     Dim FSO As Object
                    Dim FromPath As String
                    Dim ToPath As String
                    FromPath = "C:\ECS2"
                    ToPath = ".selectedpath"
                    FSO = CreateObject("scripting.filesystemobject")
                    If FSO.FolderExists(FromPath) = False Then
                        ' MsgBox(FromPath & " doesn't exist")
                        Exit Sub
                    End If
                  '  FSO.CopyFolder(Source:=FromPath, Destination:=ToPath)
                    FSO.CopyFolder(Source:="c:\ecs2", Destination:=.SelectedPath)
                End If
            End With
     Timer1.Enabled = True

 

[MartinJM]

Werkt dit:

If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
     'code
End If

Succes! :thumb: