|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Fazer Backup do registro do windows e enviar para disquete
|
 |
|
|
|
Postada em 2/9/2004 por Josefh Hennyere
Private Sub Option1_Click()
Label1.Caption = "C:\WINDOWS\REGEDIT.EXE"
Label2.Caption = "A:\Backup do registro\REGEDIT.EXE"
End Sub
Private Sub Command1_Click()
On Error GoTo fim
Dim result As Long, fileop As SHFILEOPSTRUCT, Caminho As String
With fileop
.hwnd = Me.hwnd
.wFunc = FO_COPY
.pFrom = "C:\PROGRAM FILES\MICROSOFT VISUAL BASIC\VB.HLP" & vbNullChar & "C:\PROGRAM FILES\MICROSOFT VISUAL BASIC\README.HLP" & vbNullChar & vbNullChar
.pFrom = Label1.Caption & vbNullChar & vbNullChar
.pTo = Label2.Caption & vbNullChar & vbNullChar
.fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY
End With
result = SHFileOperation(fileop)
If result <> 0 Then
MsgBox "Erro! Arquivo não salvo!"
Else
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox "Operação falhou"
End If: End If
If result = 0 Then
MsgBox "Backup bem sucedido!!! :0)!!!"
End If
Unload Me
Exit Sub
fim:
MsgBox Err.Description
end sub
'Josefh Hennyere
|
|
|
|
|
