Unzip file

[jarty67]

Hi

If my zip file requires a password to be unzip would that give me a problem... would it keep alpha five from unziping the file...

Here is the script I have, it runs fine, but the file is not unziped

'Find the files to be unziped
dim file_names[250] as C

old_directory = dir_get()
DIR_put("c:\windows\JGN")
files = filefind.first("*.Zip")
i = 1
while .not. files.eof()
file_names[I] = files.name()
files.next()
i = i + 1
end while
dir_put(old_directory)
file_names.sort()
filename = ui_get_list_array("choose",1,"File_names")

'Unzip the files in the c:\windows\JGN directory
file.unzip("filename ", "*.*", "c:\windows\JGN")

'Import the files
import_destination_table = filename_decode("c:\windows\JGN\AlphaUno\ordenestbl.dbf")


import_filename = filename_decode("c:\windows\JGN\'"+lEFT(Filename,8)+"'.txt") this part of the code does not work also, don't know yest if it is because the zip file is not unziped

thanks

[jarty67]

RE: Unzip file

I have change the script to the following but i get an error, 0193920.zip not found

here is my scipt

dim file_names[250] as C

old_directory = dir_get()
DIR_put("c:\windows\JGN")
files = filefind.first("*.Zip")
i = 1
while .not. files.eof()
'file_names[I] = files.name()
'Unzip the files in the c:\windows\JGN directory
unzip_files("c:\windows\JGN\'"+ files.name()"'", "*.*", "c:\windows\JGN")
files.next()
i = i + 1
end while

[Stan Mathews]

RE: Unzip file

file.unzip("filename ", "*.*", "c:\windows\JGN")

should be

file.unzip(filename, "*.*", "c:\windows\JGN")

"filename" passes the name of the file to be unzipped as the character string "filename

filename passes the variable containing the name of the file to be unzipped

[CALocklin]

RE: Unzip file

First, if your zip files are password protected Alpha will NOT be able to unzip them. This is something I'd really like to see a solution to.

Second, your script could be significantly simplified with some of the newer functions:

zip_fldr = "c:\windows\JGN"
file_list = filefind.get( zip_fldr + "\*.Zip", "PN" )
FOR qx = 1 to line_count( file_list )
unzip_files( word(file_list,qx,crlf()), "*.*", zip_fldr)
NEXT

Cal Locklin
www.aimsdc.net

[jarty67]

RE: Unzip file

Thank you

Than I have to stick with access and not continue, because the person i am doing the program for receives these files with password protection...

Could I call winzip from alpha five and after that import the files that were extracted...

Is there a way to call an outside program like winzip to do the job...

J

[Lenny Forziati]

RE: Unzip file

Yes, you can call Winzip or any other external program. The Xbasic functions are sys_open(), sys_shell() and sys_shell_wait(). You can also do this through action scripting.

-Lenny

[jarty67]

RE: Unzip file

Thanks I tried that the sys_shell and sys_shell_wait, make winzip create and archive...

The sys_open is the one that comes closest to what i wan't...
But the user has to select extract and then put in the password, when there are a lot of zip files it will become a pain...
and also i have to tell alpha to wait using sleep(20) to give the user time to click on extract and then enter the password before continuing with the code

I wich alph had an unzip that worked with password protected zip files

[Lenny Forziati]

RE: Unzip file

The full WinZip client that you are trying to use is not really intended to be scripted. Take a look at the WinZip Command Line Support Add-on or other zip utilities.

-Lenny

[jarty67]

RE: Unzip file

Thanks will post when I have tried it

[jarty67]

RE: Unzip file

thank you it works fine now