FAZER BACKUP

USUARIO.EXCLUIDOS 15/07/2005 11:03:05
#94292
tipo... queria fazer um sistemazinho de backup... simplesmente o programa selecionar um arquivo... fazer uma copia dele e colocar esta copia em outro diretorio ou mesmo em um disket =] como faço isto? =]
ALEXANDRE.SANTO 15/07/2005 11:21:28
#94293
Olha tem um exemplinho legal pra zipa os arquivos......da pra vc usar como backup da uma olhada nesse link

http://www.macoratti.net/pac_arq.htm
WEBMASTER 15/07/2005 11:58:40
#94307
Basicamente use o FileSystemObject.
USUARIO.EXCLUIDOS 15/07/2005 12:05:50
#94309
Amigo este o codigo do projeto q fiz, para fazer exatamente isso q vc falow, copir o arquivo de um lugar para o outro.

Tem um form chamado de frmBackup , e dois command

Ele faz o seguinte guarda em um arquivo o caminho ate a pasta q vai ser salvo o backup, e quando for salvar pede o nome da subpasta para colocar o arquivo


Dim sDados As String

Public Sub CriarArquivo(sTexto As String)
If sTexto <> "" Then
Open "c:\PROGERCOM.dat" For Output As #1
Print #1, sTexto
sDados = sTexto
Close #1
Else
Unload Me
Exit Sub
End If
End Sub

Public Sub AbrirArquivo()
On Error GoTo trataErro
Dim sd As String
Open "c:\PROGERCOM.dat" For Input As #1
Input #1, sd
sDados = sd
Close #1

trataErro:

If Err <> "0" Then
MsgBox "Não foi possivel localizar o banco de dados, por favor selecione o caminho", vbInformation, "PROGERCOM"
Dim scaminho As String
frmBackup.cd.ShowOpen
scaminho = frmBackup.cd.FileName

Dim sc As String
sc = Right(scaminho, 15)

If UCase(sc) <> "BDPROGERCOM.MDB" Then
MsgBox "O arquivo selecionado não corresponde ao banco de dados (BDPROGERCOM.mdb), selecione o correto"
Unload Me
Exit Sub
Else
Call CriarArquivo(scaminho)
End If
End If
End Sub

Private Sub cmdBackup_Click()
Call BACKUP
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Call AbrirArquivo
End Sub
Sub BACKUP()
On Error GoTo TRATABackup
Dim sR As Variant
sR = MsgBox("Deseja efetuar um backup dos seus dados.", vbYesNo + vbDefaultButton2, "PROGERCOM")

If sR = vbNo Then Exit Sub
Dim xCBackup As String
xCBackup = AbrirArquivoTexto("Backup")

Dim sPasta As String
sPasta = InputBox("Digite o nome da pasta que será salvo seu backup. Ex. BK11.05.05", "PROGERCOM")

If sPasta = "" Then
MsgBox "Não foi digitado o nome da pasta. O BACKUP NÃO FOI REALIZADO.", vbCritical, "PROGERCOM"
Exit Sub
End If

Dim sDestinop As String
sDestinop = xCBackup & "\" & sPasta

Call MkDir(sDestinop)

sDestinop = sDestinop & "\BDProgercom.mdb"
Call FileCopy(sDados, sDestinop)

MsgBox "O backup foi efetuado com sucesso em " & sdestino & "\BDProgercom.mdb.", vbInformation, "PROGERCOM"

TRATABackup:
If Err <> "0" Then
MsgBox "Erro ao fazer o backup. A pasta já deve existir ou o nome digitado não é valido ( verifique se todos os terminais e o servidor, estão com o programa fechado.", vbCritical, "PROGERCOM"
Exit Sub
End If


End Sub

Public Function CriarArquivoTexto(sTexto As String, sNome As String) As String

If sTexto <> "" Then
Open "c:\" & sNome & ".dat" For Output As #1

Print #1, sTexto
CriarArquivoTexto = sTexto

Close #1

Else
MsgBox "Erro ao criar arquivo", vbInformation, "PROGERCOM"
Exit Function
End If

End Function

Public Function AbrirArquivoTexto(sNome As String) As String
On Error GoTo trataErro
Dim sd As String

Open "c:\" & sNome & ".dat" For Input As #1

Input #1, sd

AbrirArquivoTexto = sd
Close #1

trataErro:

If Err <> "0" Then
MsgBox "Não foi possivel localizar o arquivo > " & sNome & ".dat ", vbInformation, "PROGERCOM"
Dim scaminho As String
scaminho = InputBox("Digite o conteudo que guardara no arquivo.", "PROGERCOM")


If scaminho = "" Then
MsgBox "o Conteudo não pode ser vazio", vbInformation, "PROGERCOM"
Exit Function
Else
Call CriarArquivoTexto(scaminho, sNome)
End If
End If
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar