home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 13
/
mediashare_13.zip
/
mediashare_13
/
ZIPPED
/
OTHER
/
WB_41E.ZIP
/
PKUNZIP.WB_
< prev
next >
Wrap
Text File
|
1992-02-26
|
914b
|
36 lines
; PKUNZIP Window Setup "Front End" Extract
Debug(@OFF)
FileSpec="*.ZIP";
OrigDir=DirGet()
Extract="*.*"
DestDir=""
OPER=1
XDir=1
Password=""
:Retry
DialogBox("PKUNZIP SETUP","%OrigDir%pkunzip.wdg")
FileSpec=StrUpper(FileSpec)
if DestDir == '' then goto Next
DestDir=StrUpper(DestDir)
if (strlen(DestDir)>3 && StrSub(DestDir,strlen(DestDir),1)!='\') then DestDir = strcat(DestDir,"\")
:Next
OptLine=''
if OPER == 1 then OptLine = ""
if OPER == 2 then OptLine = strcat(OptLine,"-v ")
if OPER == 3 then OptLine = strcat(OptLine,"-t ")
if XDir == 1 then OptLine = strcat(OptLine,"-d ")
if Password!="" then OptLine=strcat(Optline,"-s%Password% ")
OptLine = strcat(OptLine,' ',FileSpec,' ',DestDir,' ',Extract)
if FileExtension(FileSpec)=="ZIP" then goto Process
Display(6,"Error","Extension of file is not ZIP")
goto Retry
:Process
Run("PKUNZIP.EXE",OptLine)