another unzip problem

[richarddsmith]

What am I doing wrong? I have read the board and tried everything I can think of (which is aparently too limited to solve this problem). The ZIP works fine. The Unzip always fails. The line of code in question is:
flg=File.Unzip("D:\DDC\dealer code\backup.zip","DDC\dealer code\*.*","D:\DDC\dealer code")
I would very much appreciate some help.

Rick Smith

[fairviewcomputing]

RE: another unzip problem

Could it be related to the problems I am having with the space in the names instead of an underline?
Howard

[richarddsmith]

RE: another unzip problem

I'll change the directory name and try it. This could take a little while.

[richarddsmith]

RE: another unzip problem

BINGO! The unzip can't take names with spaces. I changed "D:\DDC\dealer code" to "D:\DDC\dealer_code" and it works fine. I now have a fully automatic backup and restore that automatically finds it's path. If anyone is interested, let me know and I'll post them.

Rick Smith

[drgarytraub]

RE: another unzip problem

I would love to see it.

Gary Traub

[richarddsmith]

RE: another unzip problem

Backup and Restore routines by Richard D. Smith, P.E.
This keeps one previous backup as CYA.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
'BACKUP ROUTINE (contains path data)
dim pth as c

'-------------------------------------------------------------------------------
' Make a new ZIP backup file. If existing backup file is used, only files
' already in the backup are refreshed, and new files are not backed up (added).
' The existing backup file is renamed to "backup.old".
'-------------------------------------------------------------------------------
StatusBar.Show()
StatusBar.Enable()
StatusBar.Set_Text("backing up...")
'find out if backup exiusts
if file.exists("backup.zip")
'find out if backup of backup exiusts
if file.exists("backup.old")
file.remove("backup.old")
end if
file.rename("backup.zip","backup.old") 'make backup of backup
end if
pth=dir_get()
File.Zip(pth+"\backup.zip",pth+"\*.*","d")
ui_msg_box("Backup Process","Backup DONE",UI_OK)
END
++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'SYSTEM RESTORE
dim pth as c
dim flg as l
dim p2 as c

StatusBar.Show()
StatusBar.Enable()
StatusBar.Set_Text("fuzzywampusswinniefoo")
Status("restoring system...")
'find out if backup exiusts
if .NOT. file.exists("backup.zip")
'backup does not exist
ui_msg_box("Restore Process","Can't Restore - No Backup File Found",UI_STOP_SYMBOL+UI_OK)
end
end if
pth=dir_get()
p2=pth+"\*.*"
p2= RIGHT( p2, len(p2)-3 ) 'everything bu the drive info
debug(1)
flg=File.Unzip(pth+"\backup.zip",p2,pth)
if flg=.F.
ui_msg_box("Restore Process","ERROR: Can't unzip backup",UI_STOP_SYMBOL+UI_OK)
end
end if
ui_msg_box("Restore Process","Restore DONE",UI_OK)
end
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
This works while the main form is active (vectored to a dummy table) and has no problems backing up the open dummy table. It also has no problems restoring while the dummy table is open (it never changes). Hope this helps someone else.

Rick Smith

[richarddsmith]

RE: another unzip problem

I forgot to take out the Status() call- that's an internal call to my home brewed status bar. The {StatusBar.Set_Text("fuzzywampusswinniefoo")} was there to put something on the old status bar to provwe it is working (in case there is a problem). In the normal operatiopn, the regular status bar is disabled.

[drgarytraub]

RE: another unzip problem

Richard:

Thanks for sharing. I will try it out. I also created a backup and restore utility and will let you know the differences. If you would like to see what I did, let me know.

Gary

[[email protected]]

RE: another unzip problem

I pasted this code into a button on my main menu and it didn't work properly. It created a file called backup.zip on the desktop and all that was in was the shortcuts on the desktop, ie outlink.ink, etc.

What did I do wrong?

Thanks

[richarddsmith]

RE: another unzip problem

It creates a "backup.zip" file in the default directory, whatever that is. You can use the "Dir_Put()" Xbasic command to change the default directory, or you can change the variable "pth" to whatever you want. **IMPORTANT NOTE: By the way, the backup file grows each time you use it because it also backs up "backup.old". Each "backup.old" has the previous "backup.old". This means the file doubles each time. If the growing archive with all versions isn't what you want (it seemed like a good idea at the time, but...), move "backup.old" out of the default directory before you back up, then move it back in when you're done.
Hope this helps

Rick Smith