ちょいとインチキ?(というか手抜き)な部分ありです。
#uselib "unzip32"
#func UnZipSetBackGroundMode "UnZipSetBackGroundMode"int//6
#cfunc UnZipGetFileCount "UnZipGetFileCount" str //17
#cfunc UnZipOpenArchive "UnZipOpenArchive" int,str,int //21
#func UnZipCloseArchive "UnZipCloseArchive" int //22
#func UnZipFindFirst "UnZipFindFirst" int,str,int //23
#func UnZipFindNext "UnZipFindNext" int,sptr //24
#func UnZipGetFileName "UnZipGetFileName" int,sptr,int //40
#define M_INIT_FILE_USE 0x00000001
#define M_REGARDLESS_INIT_FILE 0x00000002
#define M_BAR_WINDOW_OFF 0x02000000
#define M_ERROR_MESSAGE_OFF 0x00800000
#module
//フォルダの時は(/)が後ろについているっぽいのでそれを探す(手抜き)
#defcfunc is_folder str a
b=a
if "/"=strmid(b,-1,1):return 1 ;みっけ!
return 0
#global
fname="\\\\192.168.0.13\\f\\gshot294.zip" //ファイル名
hArc=UnZipOpenArchive(hwnd,fname,M_BAR_WINDOW_OFF|M_ERROR_MESSAGE_OFF)
if hArc=0:dialog "loaderr.":end //0のときはエラー
kazu=UnZipGetFileCount(fname) //ファイル数取得
buf=""
repeat kazu
if cnt=0{
UnZipFindFirst hArc,"*",0
UnZipGetFileName hArc,varptr(buf),64
mes buf
if is_folder(buf)=1:mes "↑フォルダっぽい"
continue
}
UnZipFindNext hArc,0
UnZipGetFileName hArc,varptr(buf),64
mes buf
if is_folder(buf)=1:mes "↑フォルダっぽい"
loop
UnZipCloseArchive hArc //ハンドル開放
ところで・・・どうやって実行結果のダイアログを非表示に出来るんだろ?