si alguien sabe como solucionarlo, mis agradecimientos de antemano
Aqui el codigo que uso:
Código PHP:
Option Compare Database
Option Explicit
Private Declare Function CopiaBase Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'Ahora supongamos que el boton de comando desde el que
'quieres llamar a la copia , se llama Comando0
'Bastaria con
Private Sub Comando0_Click()
If Len(Dir("C:\Temp\Base.mdb")) = 0 Then
MsgBox "No existe la MDB a copiar. No se puede realizar la copia.", vbCritical, "AVISO"
Exit Sub
End If
If Len(Dir("C:\Temp\Backup\", vbDirectory)) = 0 Then
MsgBox "No existe el directorio destino.", vbCritical, "AVISO"
'le creamos
MkDir "C:\Temp\Backup\"
End If
CopiaBase "C:TempBase.mdb", _
"C:TempBackupBase1.MDB", 0
End Sub
