;If you use Command Post by Morrie Wilson, try adding this to your
;CMDUSER.CPM file!
; "Test" creates a subdir beneath the current one with the root
; name of the file to be tested. It then unzips the file in that
; dir (with WinUnZip of course) so you can test the file out with-
; out cluttering up another directory.

;-------------------------------------------------------------------------
&Zip
 &Test... \ ^T
    f=CurrentFile()
    r=FileRoot(f)
    e=strupper(FileExtension(f))
	
	DirMake("%r%")
	FileCopy("%f%", "%r%", @TRUE)
	DirChange("%r%")
	
	IF e=="ZIP" then Run("WinUnZip.exe"," %f%")
	If e=="EXE" then Run("%f%","")

	FileDelete("%f%")
	SetDisplay("","","")
    OtherUpdate()
    drop(f,r,e)

 &UnZip a file
    ErrMs="Not a ZIP file!"
    CFile=CurrentFile()
    CFRoot=FileRoot(CFile)
    CFExt=FileExtension(CFile)
    Terminate(CFExt != "ZIP","",ErrMs)
    Run("WinUnZip.exe"," %CFile%")
    SetDisplay("","","")                    ;Re-read dir.
    drop(CFile,ErrMs,CFRoot,CFExt)

 &WinUnZip
    Run("WinUnZip.exe","")
    SetDisplay("","","")                    ;Re-read dir.