Olá pessoal,boa noite.
Estou começando a mexer com divisão de banco de dados em front end e back end.Tive a necessidade de criar um backup do meu back end e tentei usar o código do João Paulo,mas algo está dando errado.Já tetei varias vezes descobrir aonde estou errando mas não consegui achar.Por favor,será que alguém teria um exemplo prático a partir deste código para que eu pudesse entender melhor?
Desde já grato.
Ative a referencia:
Microsoft Scripting Runtime
Function BackupDireto()
'Elaborado por JPaulo 2008-03-21
Dim xs As Object
Dim PathInicial As String, PathFinal As String
PathInicial = CurrentProject.Path
PathFinal = "C:\NovaPasta" 'Letra do Drive e pasta
Set xs = CreateObject("Scripting.FileSystemObject")
MkDir "C:\NovaPasta"
xs.CopyFile PathInicial & "\" & "MeuBanco.mdb", PathFinal & "\" &"MeuBanco.mdb"
xs.CopyFile PathInicial & "\" & "MeuIcon.ico", PathFinal & "\" & "Icon.ico"
xs.CopyFile PathInicial & "\" & "MeuLogotipo.jpeg", PathFinal & "\" & "Logotipo.jpeg"
xs.CopyFile PathInicial & "\" & "MeuFundo.bmp", PathFinal & "\" & "Fundo.bmp"
Set xs = Nothing
End Function
Estou começando a mexer com divisão de banco de dados em front end e back end.Tive a necessidade de criar um backup do meu back end e tentei usar o código do João Paulo,mas algo está dando errado.Já tetei varias vezes descobrir aonde estou errando mas não consegui achar.Por favor,será que alguém teria um exemplo prático a partir deste código para que eu pudesse entender melhor?
Desde já grato.
Ative a referencia:
Microsoft Scripting Runtime
Function BackupDireto()
'Elaborado por JPaulo 2008-03-21
Dim xs As Object
Dim PathInicial As String, PathFinal As String
PathInicial = CurrentProject.Path
PathFinal = "C:\NovaPasta" 'Letra do Drive e pasta
Set xs = CreateObject("Scripting.FileSystemObject")
MkDir "C:\NovaPasta"
xs.CopyFile PathInicial & "\" & "MeuBanco.mdb", PathFinal & "\" &"MeuBanco.mdb"
xs.CopyFile PathInicial & "\" & "MeuIcon.ico", PathFinal & "\" & "Icon.ico"
xs.CopyFile PathInicial & "\" & "MeuLogotipo.jpeg", PathFinal & "\" & "Logotipo.jpeg"
xs.CopyFile PathInicial & "\" & "MeuFundo.bmp", PathFinal & "\" & "Fundo.bmp"
Set xs = Nothing
End Function