Mensaje enviado por Hernán Lucas Pereira <myriapo@infovia.com.ar>

Estimado Carlos.

Te mando un saludo desde Argentina y te dejo en este mail como hago para hacer la copia.

Saludos
Hernán Pereira

Te recomiendo que veas este mail en la resolución grafica más alta que tu computadora soporte.

Este código pertenece a Module1:
Sub Main()
a = "C:\WINDOWS\Escritorio\outlook.pst"
b = "C:\WINDOWS\Local Settings\Application Data\Microsoft\Outlook\outlook.pst"
If Not Dir(a) = "outlook.pst" Then GoTo c
If FileDateTime(a) = FileDateTime(b) Then End
If FileDateTime(a) > FileDateTime(b) Then End
c:
frmSplash.Show
End Sub

Este código pertenece a frmSplash:
Private Sub Form_Load()
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
Unload Me
Form1.Show
End Sub
Y por ultimo el y el que realiza la copia Form1:
Private Sub Form_Load()
Timer1.Interval = 5000
End Sub
Private Sub Command1_Click()
On Error Resume Next
a:
e = "C:\WINDOWS\Local Settings\Application Data\Microsoft\Outlook\outlook.pst"
d = "C:\WINDOWS\Escritorio\outlook.pst"
FileCopy e, d
Unload Me
If FileDateTime(e) = FileDateTime(d) Then e = MsgBox("Copia de seguridad realizada con éxito.", vbOKOnly + vbInformation, "Pereira Works Outlook Backuper")
If FileDateTime(e) = FileDateTime(d) Then Exit Sub
If Not FileDateTime(e) = FileDateTime(d) Then Unload Me
If FileDateTime(e) < FileDateTime(d) Then e = MsgBox("Copia de seguridad realizada con éxito.", vbOKOnly + vbInformation, "Pereira Works Outlook Backuper")
If FileDateTime(e) < FileDateTime(d) Then Exit Sub
c = Chr$(10) & Chr$(10)
a = "No se pudo realizar la copia de seguridad de los e-mail del Microsoft Outlook 2000."
a = a & c & "Probablemente sea porque Microsoft Outlook 2000 este abierto."
b = MsgBox(a, vbRetryCancel + vbExclamation + vbDefaultButton1, "Pereira Works Outlook Backuper")
If b = vbRetry Then GoTo a
End
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
End
End Sub