Search results

At last I`ve got it to work. Not very tidy but I put a message box in which stops the code until the yes button is pressed Call Shell(sWinZip & " -a " & sZipFile & " " & sFileToZip, vbHide) DoEvents intreply = MsgBox("Waiting?", vbYesNo) If intreply = vbYes Then Name sZipFile As "A:\" &...

Yep, tried your latest code, still the same. David b

Someone suggested this could be the problem. What do you think ? David b > Call Shell(sWinZip & " -a " & sZipFile & " " & sFileToZip, vbHide) > Name sZipFile As "A:\" & sZipFileName >I guess this is what's causing the error, is it? The shell is >running in a >separate process and not reporting...

Still got the same prob. The 2 files (backup and backup.zip) are sitting in C:\temp as expected when I check. David b

Ok tried the code you kindly sent. Error saying Source file can not be found -BackupDB (date ref) zip. Could it be that because I am backing up a 2mb file the zipping routine has not finished when the code tries to copy to A:\ ? Maybe it needs a pause put in to allow time for the zipping to...

That`s great. Thanks again. BTW still can not get that save and zip to A:\ routine from last week to run. David b

Next question is what if the txt file does not exist. Instead of "#error" I could do with an explaination displayed in the text box David b

That`s brilliant. Thanks David b

I download a text file and save it on the desktop. My app imports the data from the text file and compares it with data already stored and advises of discrepancys. Is it possible to get the date created from the text file so that the user can see when the last download was ? David b

Sounds like you need a form which displays all the addresses you have. A check box would alllow you to select the ones you wanted. Then the record source for your email routine would be a query picking up addresses you had previously marked. HTH David b

Got it now. Thanks for your help DB

I have a form with 2 listboxes side by side. By double clicking a record in the first lb that record appears in the 2nd lb by way of a table. The record id field in the table is set to no duplicates to prevent the same record being sent twice. If a duplicate is selected the access error box...

Further to my last post I happened to look in C:\temp and the copy and zip files were sitting there. Any Ideas ? David b

Ok tried the code. It says source file can not be found. I copied and pasted from the previous code, which seemed to find it OK - sSourcePath = "C:\Data\adata\Stock record\Hoofprint\" sSourceFile = "Stock _be.mdb" Any reason for this ? I accept your comments on floppys but this app is a...

So that is sending the backup file to a zip drive rather than a floppy in A:\. Is that correct ? David b

Problem was getting a db of more than floppy size zipped and onto a floppy . This works but I guess it could be made neater. Any suggestions David b Public Function BackupAndZipit() 'This function will allow you to copy a db that is open, 'rename the copied db and zip it up to anther...

Having slept on the problem. I think we need to do the zip bit on C:\ then copy the zipped file to A:\. Todays challenge ! David b

But the zipped file should fit easily. Could it be "seeing" the big unzipped file first and that causes the error. Maybe the code needs a delay between the zipping and copying bits. Just a suggestion David b

Could size be the problem ? The b_e end am trying to save is 1.8mb. - 350zipped. Just tried with a 400 file and it went no problem David b

Thanks for the reply. Still getting the same problem Runtime error 2147024784 (80070070) Using W95 & A97 David b