Copia de Segurança - URGENTE!

motunning

motunning

Power Member
Boas Novamente!
Estou com Um problema grave e preciso muito da vossa ajuda!!
Tenho que entregar o Meu Projecto de Final de Curso, mas preciso que ele faça Copias de Seguranca! tenho Codigo dos meus colegas das copias de Segurança, mas esta a dar-me um erro!!

Código: 
Dim Fsys As New FileSystemObject
Dim seguranca As File
Private Sub cmdCancela_Click()
    Unload Me
    Mdi_backup.Visible = False
    
End Sub
Private Sub cmdsalva_click()

On Error GoTo trata_erro

    cmdSalva.Enabled = False
    lbl_Status.Caption = "Por favor aguarde , Copia de segurança em operação..."
        
    'define as variaveis para o backup
    Dim Destino As String
    Dim Origem As String
    Dim DataAtual, HoraAtual As String
    
    'formata da hora e a data
    DataAtual = Format$(Now, "dd, mmm, yyyy")
    HoraAtual = Format$(Now, "hh:mm:ss AM/PM")
    
    'obtem o destino e a origem
    Destino = Dir1.Path & "\" & "clinisoure.mdb"
    Origem = App.Path & "\clinisoure.mdb"
   
   'retorna um objeto File associado ao arquivo
    'Set seguranca = Fsys.GetFile(Destino)
    'define o atributo do arquivo como compressed
    'seguranca.Attributes = Compressed
    
   'Usa o FileSystemObject para efetuar a copia do arquivo
    Fsys.CopyFile Origem, Destino, True
    
    'salva informações no registro do backup atual
    SaveSetting App.Title, "Settings", "BackupPath", Destino
    SaveSetting App.Title, "Settings", "BackupDate", DataAtual
    SaveSetting App.Title, "Settings", "BackupTime", HoraAtual
    
    lbl_Status.Caption = "Backup realizado com sucesso."
    
    cmdSalva.Enabled = True
    
    MsgBox "Todos os dados foram Copiados com Sucesso", vbInformation, "Backup"
    
    Unload Me
    Exit Sub
    
    
trata_erro:
     If Err.Number = 53 Then
         MsgBox " Erro no. " & Err.Number & " - Não foi encontrada nenhuma Base de dados na pasta de origem do Programa"
     Else
         MsgBox Err.Number & " - " & Err.Description
    End If



End Sub
Private Sub Drive1_Change()
  On Error GoTo trata_erro
      Dir1.Path = Drive1.Drive
trata_erro:
     
     If Err.Number = 68 Then
         MsgBox " Erro no. " & Err.Number & " - A drive selecionada não está preparada"
     Else
         MsgBox Err.Number & " - " & Err.Description
    End If

End Sub
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Form_Load()
   
    'define as variáveis
    Dim ultimoDestino As String
    Dim ultimaData As String
    Dim ultimaHora As String
    File1.Visible = False

    'posiciona o formulário
    Me.Top = 50
    Me.Left = 50
      
    'le o registro para obter valores armazeandos
    ultimoDestino = GetSetting(App.Title, "Settings", "BackupPath")
    ultimaData = GetSetting(App.Title, "Settings", "BackupDate")
    ultimaHora = GetSetting(App.Title, "Settings", "BackupTime")
    
    lbl_Status.Caption = "Selecione o caminho de destino e pressione o botão : Inicia Backup"

    If ultimoDestino = "" Then
        lbl_destino.Caption = "Nenhum backup feito anteriormente"
        lbl_ultimaData.Caption = " "
        lbl_ultimaHora.Caption = " "
    Else
        lbl_destino.Caption = ultimoDestino
        lbl_ultimaData.Caption = ultimaData
        lbl_ultimaHora.Caption = ultimaHora
    End If
    
End Sub


o erro que me da e logo na primeira variavel! nao carrega o programa e dame esse erro! se me puderem ajudar agradecia!!

se souberem outra maneira de fazer as Copias de Seguranca tambem nao recuso!!

P.s - Programo em Visual basic 6.0

Cumprimentos
motunning
 
Última edição pelo moderador:
Inicie sessão ou registe-se para poder participar.
Back
Topo