Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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?
Carregando comentários...