[Resolvido] Rotina de Backup

[milaaulait 0]

Olá, galera, estou criando uma rotina para fazer backup do sistema mas quando eu clico no botão "backup" o programa trava por causa dessa linha em negrito

 

 

Private Sub Btnbackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbackup.Click
        'limpando a label de messagens
        LblMsg.Text = ""
        'Verica se usuário selecionou um diretório
        If Txtdestino.Text = "" Then
            LblMsg.Text = "Selecione um diretório para que o backup seja feito"
            Btnprocurar.Focus()
        Else
            'fazendo backup
            Lblendereço.Text = My.Computer.FileSystem.CurrentDirectory + "\BancoEHS.mdb"
            [b]My.Computer.FileSystem.CopyFile(Lblendereço.Text, SDbackup.FileName)[/b]
            Timer1.Start()
            processo.Visible = True
        End If
    End Sub

Alguém poderia me ajudar?

[scorpio 7]

Tenta usar o FileCopy(src,dst).

[milaaulait 0]

Obrigada pela dica, scorpio, mas acabei resolvendo o problema colocando a linha: "Lblendereço.Text = My.Computer.FileSystem.CurrentDirectory & "/BancoEHS.mdb"" no evento load do form