Boa Noite,
Estou a utilizar o exemplo do JPaulo Bakup aqui disponibilizado que funciona corretamente, mas preciso que o mesmo seja salvo em outro pc da rede, mas nao consigo setar o caminho,
'elaborado por: JPaulo - 11/10/2006
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "PC da rede\C:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\BDCASTELO_be.mdb", Caminho & Format(Now, "_mmyyyy") & ".mdb"
Estou a utilizar o exemplo do JPaulo Bakup aqui disponibilizado que funciona corretamente, mas preciso que o mesmo seja salvo em outro pc da rede, mas nao consigo setar o caminho,
'elaborado por: JPaulo - 11/10/2006
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "PC da rede\C:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\BDCASTELO_be.mdb", Caminho & Format(Now, "_mmyyyy") & ".mdb"