1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Copia de Segurança - URGENTE!

Discussão em 'Programação' iniciada por motunning, 30 de Junho de 2008. (Respostas: 2; Visualizações: 707)

  1. 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: 30 de Junho de 2008
  2. jpaulino

    jpaulino Power Member

    Tens de adicionar referências ao Windows Script Object Model
     
  3. motunning

    motunning Power Member

    ja consegui!!
    mas obrigado na mesma!!
    CUmprimentos
     

Partilhar esta Página