Estou tentando usar a rotina existente no site do Osmar (http://geocities.yahoo.com.br/jrosmar/index.htm)

mas estou esbarrando em um problema:

O meu banco está dividido em bck-end e front-end e a rotina copia o front-end. Como as tabelas estão no back-end não consigo copiá-las.

Tentei altera a instrução strAppName = Application.CurrentProject.FullName para strAppName = "meubanco_be"

mas ele não acha o arquivo e sai por erro.

ALLguem pode me ajudar?

Crie uma variável para receber o nome do arquivo:

Dim strArqName as String

strArqName = "SeuArquivo_BE.MDB"

Para o backup diário:

If boolMakeDailyBackup Then fs.CopyFile strArqName, strDailyBackup

Para o backup semanal:

If boolMakeWeeklyBackup Then fs.CopyFile strArqName, strWeeklyBackup

Você me enviou a sugestão abaixo para que pudesse fazer o backup do banco back-end mas a rotina nunca acha o arquivo. Posso garantir-lhe que o nome está rigorosamente certo e a única alteração na rotina foi a sugerida por você.
Eliminei o backup semanal da mesma.

As alterações estão marcadas em vermelho.

Fico muito grato pela ajuda.



Código:


'---------------------------------------------------------------------------------------
' Procedimento : FazBackUp
' Data/Hora : 20/10/05 15:31
' Autor : Win Vermeer/ Adaptação: OsmarJr
' Objetivo : Faz backup diário do banco de dados. Se já existe, não faz nova cópia.
'
'---------------------------------------------------------------------------------------
'


Dim fs As Object
Dim strAppPath As String
Dim strAppName As String
Dim strDay As String
Dim strWeek As String
Dim strDailyBackup As String
Dim strWeeklyBackup As String
Dim boolMakeDailyBackup As Boolean
Dim boolMakeWeeklyBackup As Boolean
Dim strArqName As String


strArqName = "Sifiger_be.mdb"
strAppName = Application.CurrentProject.FullName
strAppPath = Application.CurrentProject.Path
strBackupPath = strAppPath & "\backup\"
Set fs = CreateObject("Scripting.FileSystemObject")
If Not (fs.FolderExists(strBackupPath)) Then fs.CreateFolder (strBackupPath)

' Vamos fazer um backup diário
' Se o arquivo de backup já existe, verificar se tem a data atual.
' Se for, não faz a cópia. Se não for a data atual, exclui o arquivo.
' Copia.

boolMakeDailyBackup = True
strDay = Format(Now(), "dddd")
strDailyBackup = strBackupPath & strDay & ".MDB"

If fs.FileExists(strDailyBackup) Then
Set F = fs.GetFile(strDailyBackup)
If F.DateCreated = Date Then
boolMakeDailyBackup = False
Else
fs.deletefile strDailyBackup
End If
End If

' Faz um backup semanal (podem dizer que sou paranóico mas durmo tranquilo)

If boolMakeDailyBackup Then fs.CopyFile strArqName, strDailyBackup
' boolMakeWeeklyBackup = True
' strWeek = Format(Now(), "yyyy-ww") ' Pega o ano e o número da semana
' strWeeklyBackup = strBackupPath & strWeek & ".MDB"
' If fs.FileExists(strWeeklyBackup) Then
' boolMakeWeeklyBackup = False
' End If



FazBackUp_Erro:
MsgBox "Erro: " & vbCrLf & vbCrLf & Err.Description & vbCrLf & _
" no procedimento FazBackUp", vbExclamation + vbOKOnly, _
"Erro: " & CStr(Err.Number)

#If DESENV Then
Stop
Resume
#End If


'

Exit_Comando7_Click:
Exit Sub

Err_Comando7_Click:
MsgBox Err.Description
Resume Exit_Comando7_Click

End Sub

quote:

If boolMakeDailyBackup Then fs.CopyFile strArqName, strDailyBackup

Não estou podendo testar. Tente:

If boolMakeDailyBackup Then fs.CopyFile strAppPath & strArqName, strDailyBackup

Veja no conteúdo de strAppPath se existe a "\" no final. Se não existir, insira.

OsmarJr. Boa tarde, desculpe por usar o tópico, mas estou com o mesmo problema do poy, toda vez que o frm principal abre da a mensagem "Erro: 53 O arquivo não foi localizado no procedimento FazBackUP

Funcionou ! Sintaxe final do comando:

If boolMakeDailyBackup Then fs.CopyFile strAppPath & "/" & strArqName, strDailyBackup

Valeu !

Poy, bom dia! tem como vc me passar o código completo da forma que esta funcionando. Agradeceria muito.
adr.cunha@zipmail.com.br

On Error GoTo Err_Comando7_Click

'---------------------------------------------------------------------------------------
' Procedimento : FazBackUp
' Data/Hora : 20/10/05 15:31
' Autor : Win Vermeer/ Adaptação: OsmarJr
' Objetivo : Faz backup diário do banco de dados. Se já existe, não faz nova cópia.
'
'---------------------------------------------------------------------------------------
'
On Error GoTo FazBackUp_Erro
Dim strarqname As String
Dim fs As Object
Dim strAppPath As String
Dim strAppName As String
Dim strDay As String
Dim strWeek As String
Dim strDailyBackup As String
Dim strWeeklyBackup As String
Dim boolMakeDailyBackup As Boolean
Dim boolMakeWeeklyBackup As Boolean



strarqname = "meubanco_be_mdb"
strAppName = Application.CurrentProject.FullName
strAppPath = Application.CurrentProject.Path
strBackupPath = strAppPath & "\backup\"
Set fs = CreateObject("Scripting.FileSystemObject")
If Not (fs.FolderExists(strBackupPath)) Then fs.CreateFolder (strBackupPath)

' Vamos fazer um backup diário
' Se o arquivo de backup já existe, verificar se tem a data atual.
' Se for, não faz a cópia. Se não for a data atual, exclui o arquivo.
' Copia.

boolMakeDailyBackup = True
strDay = Format(Now(), "dddd")
strDailyBackup = strBackupPath & strDay & ".MDB"

If fs.FileExists(strDailyBackup) Then
Set F = fs.GetFile(strDailyBackup)
If F.DateCreated = Date Then
boolMakeDailyBackup = False
Else
fs.deletefile strDailyBackup
End If
End If

' Faz um backup semanal (podem dizer que sou paranóico mas durmo tranquilo)

If boolMakeDailyBackup Then fs.CopyFile strAppPath & "/" & strarqname, strDailyBackup
' boolMakeWeeklyBackup = True
' strWeek = Format(Now(), "yyyy-ww") ' Pega o ano e o número da semana
' strWeeklyBackup = strBackupPath & strWeek & ".MDB"
' If fs.FileExists(strWeeklyBackup) Then
' boolMakeWeeklyBackup = False
' End If
'If boolMakeWeeklyBackup Then fs.CopyFile strAppName, strWeeklyBackup

FazBackUp_Erro:
MsgBox "Erro: " & vbCrLf & vbCrLf & Err.Description & vbCrLf & _
" no procedimento FazBackUp", vbExclamation + vbOKOnly, _
"Erro: " & CStr(Err.Number)



'

Exit_Comando7_Click:
Exit Sub

Err_Comando7_Click:
MsgBox Err.Description
Resume Exit_Comando7_Click

Poy;

Valeu pela contribuição. Esteja certo que estas atitudes melhoram o FA.

Sucesso ...