This is something I have been using lately to save to A:\. You need Winzip
installed and you need to set the source path and source file to your setup
HTH
David b
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function BackupAndZipitToDriveA()
On Error GoTo Err_BackupAndZipitToDriveA
'This function will allow you to copy a db that is open,
'rename the copied db and zip it up to another folder.
'You must set a reference to the 'Microsoft Scripting Runtime' for the CopyFile
piece to work!
'Thanks to Ricky Hicks for the .CopyFile code
'Thanks to G Hudson for code
Dim fso As FileSystemObject
Dim sSourcePath As String
Dim sSourceFile As String
Dim sBackupPath As String
Dim sBackupFile As String
Dim Timer As Integer
sSourcePath = "C:\Stock\
sSourceFile = "Db.mdb"
sBackupPath = "A:\"
If Dir("C:\Temp", vbDirectory) = "" Then MkDir ("C:\Temp")
sBackupPath = "C:\Temp\"
sBackupFile = "Backupmydatabase_" & Format(Date, "mmddyyyy") & "_" &
Format(Time, "hhmmss") & ".mdb"
Timer = 10000
Set fso = New FileSystemObject
fso.CopyFile sSourcePath & sSourceFile, sBackupPath & sBackupFile, True
Set fso = Nothing
Timer = 10000
Dim intreply As Integer
Dim sWinZip As String
Dim sZipFile As String
Dim sZipFileName As String
Dim sFileToZip As String
sWinZip = "C:\Program Files\WinZip\WinZip32.exe" 'Location of the WinZip program
sZipFileName = Left(sBackupFile, InStr(1, sBackupFile, ".", vbTextCompare) - 1)
& ".zip"
sZipFile = sBackupPath & sZipFileName
sFileToZip = sBackupPath & sBackupFile
Call Shell(sWinZip & " -a " & sZipFile & " " & sFileToZip, vbHide)
intreply = MsgBox("Have you placed a floppy in drive A?" & vbNewLine & "This
routine may take 10 seconds to complete.", vbYesNo)
If intreply = vbYes Then
Sleep 5000
Name sZipFile As "A:\" & sZipFileName
Else
Exit Function
End If
If Dir(sBackupPath & sBackupFile) <> "" Then Kill (sBackupPath & sBackupFile)
Beep
MsgBox "Backup was successful and saved @ " & Chr(13) & Chr(13) & "A:\" &
Chr(13) & Chr(13) & "The backup file name is " & Chr(13) & Chr(13) &
sZipFileName, vbInformation, "Backup Completed"
Exit_BackupAndZipitToDriveA:
Exit Function
Err_BackupAndZipitToDriveA:
If Err = 5 Then 'Invalid procedure call or argument
Beep
MsgBox "Disk is full! Can not move the zip file to the A:\ drive.
Please move the " & sZipFile & " file to a safe location.", vbCritical
If Dir(sBackupPath & sBackupFile) <> "" Then Kill (sBackupPath &
sBackupFile)
Exit Function
ElseIf Err = 53 Then 'File not found
Beep
MsgBox "Source file can not be found!" & vbNewLine & vbNewLine &
sZipFileName, vbCritical
Exit Function
ElseIf Err = 71 Then 'Disk not ready
Beep
If Dir(sZipFile) <> "" Then Kill sZipFile
If Dir(sFileToZip) <> "" Then Kill sFileToZip
MsgBox "Please insert a diskette in drive A:\ and try again!",
vbCritical
Exit Function
ElseIf Err = -2147024784 Then 'Method 'CopyFile' of object 'IFileSystem3'
faild
Beep
MsgBox "File is to large to be zipped onto the A:\ drive!" & vbNewLine &
vbNewLine & sZipFile, vbCritical
Exit Function
Else
MsgBox Err.Number & " - " & Err.Description
Resume Exit_BackupAndZipitToDriveA
End If
End Function
Arno R <ar****************@tiscali.nl> wrote in message
news:3f**********************@dreader2.news.tiscal i.nl...
Peter,
Check the command FileCopy. (Filecopy SourceFile, DestinationFile )
Tables are linked but IMO when there is no recordset open there is no problem
copying the file. But: Will the mdb *fit* on a floppy ?
Maybe you also need to zip the file first?
--
Hope this helps
Arno R
"Peter D" <da*********@pandora.be> schreef in bericht
news:2f*************************@posting.google.co m... I have a WORK.mdb with tables linked from a FIGURES.mdb.
I would like to click a button in a form of WORK.mdb and copy the
entire FIGURES.mdb to the floppy drive a: (in code not a macro). I
tried but i can't find how it is done.
Then a second button must read the FIGURES.mdb from the a:\ and
insert the new records into the FIGURES.mdb on the hard drive.
Anyone, anywhere, anyway, anyhow TX TX
