Amigos!, estou fazendo um backup do meu outlook pois trabalho atraves dele e recebo muito e-mails por dia, portanto não posso apagar estes e-mail, e por isso resolvi fazer um programinha de backup, para copiar as pastas do outlook para uma outra pasta do windows, pois caso meu micro de problema tenho uma copias das pastas com todas as mensagens, com isso estou precisando de um comando para listar esses arquivos.

ou seja. quando eu clicar no botao para fazer o backup tenho q informar quais arquivos para fazer o backup, então quero lista-los no codigo fonte, pois sempre serão as mesmas pasta para backup..

se alguem poder me ajudar ficarei grato..

Fiz essa rotina para um Banco de Dados, ve se serve.

 

Private Function BDBackup(vArquivo As String)
   
    Dim vArqOrigem, vArqDestino
    vArqOrigem = vArquivo
    '12/45/7890
    If Dir(Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2)) <> "" Then
        Kill Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2)
    End If
    vArqDestino = Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2) & ".bkp"
    FileCopy App.Path & "" & vArqOrigem, App.Path & "" & vArqDestino

End Function

Private Function BDRestore(vArqOrigem As String, vArqDestino As String)
   
    If Dir(vArqDestino) <> "" Then
        Kill App.Path & "" & vArqDestino
    End If
    FileCopy App.Path & "" & vArqOrigem, App.Path & "" & vArqDestino

End Function

 

T+

Rinaldo

Não sei porquê inventar a roda, quando ela já está inventada.

 

Também não sei onde, mas se procurar na NET encontra, de certeza, programas free, programavéis que fazem backup dos ficheiros do Outlook.

 

Em todo o caso dê uma vista de olhos:

 

 

 

 

português clássico é meio difíci né naum povedo? Mas mesmo assim, parece tão bonito... parece aqueles diálogos de filme antigo, tipo "E o vento levou"