zip2exe.cmd
资源名称:unzip540.zip [点击查看]
上传用户:andy_li
上传日期:2007-01-06
资源大小:1019k
文件大小:2k
源码类别:
压缩解压
开发平台:
MultiPlatform
- /**** REXX ******** ZIP2EXE.CMD ************** 01/04/96 *********
- |** This exec will prepend the Info Zip unzipsfx.exe file to an **|
- |** existing ZIP file to create a self extracting zip. **|
- |** **|
- |** The exec requires 1 argument, the name of the zip file to be **|
- |** acted upon. **|
- |** **|
- |** Put this exec into the path that contains your Info Zip **|
- |** executables. **|
- |** **|
- *********************************************************************/
- rc = 0
- /** Start Argument processing ** End Initialization **/
- PARSE UPPER ARG zip_file
- IF zip_file = ""
- THEN
- DO
- SAY "You must specify the name of the file to be processed"
- SAY "Please try again"
- rc = 9
- SIGNAL FINI
- END
- IF POS(".ZIP",zip_file) = 0
- THEN
- DO
- sfx_file = zip_file||".EXE"
- zip_file = zip_file||".ZIP"
- END
- ELSE
- sfx_file = SUBSTR(zip_file,1,LASTPOS(".",zip_file))||"EXE"
- zip_file = STREAM(zip_file,"C","QUERY EXISTS")
- IF zip_file = ""
- THEN
- DO
- SAY "The file "||ARG(1)||" Does not exist"
- SAY "Processing terminated"
- rc = 9
- SIGNAL FINI
- END
- /** Start unzipsfx location ** End Argument processing **/
- PARSE UPPER SOURCE . . command_file
- unzipsfx = SUBSTR(command_file,1,LASTPOS("",command_file))||,
- "UNZIPSFX.EXE"
- IF STREAM(unzipsfx,"C","QUERY EXISTS") = ""
- THEN
- DO
- SAY "We are unable to locate the UNZIPSFX.EXE source"
- SAY "Ensure that the ZIP2EXE command is in the directory",
- "which contains UNZIPSFX.EXE"
- rc = 9
- SIGNAL FINI
- END
- /** Execute the command ** End Argument processing **/
- ADDRESS CMD "@COPY /b "||unzipsfx||"+"||zip_file,
- sfx_file||" > NUL"
- IF rc = 0
- THEN
- SAY sfx_file||" successfully created"
- ELSE
- SAY sfx_file||" creation failed"
- FINI:
- EXIT rc