HSPTV!掲示板

unzip32.dllで書庫内のフォルダ名のみを取得したいのですが、
UnZip -l等で情報取得を行うと、それ以外の情報も取得されてしまいます。(CRC,Date,Time...)
何か良い方法はございませんか?

>>unzip32.dllで書庫内のフォルダ名のみを取得したいのですが、
>>UnZip -l等で情報取得を行うと、それ以外の情報も取得されてしまいます。(CRC,Date,Time...)
>>何か良い方法はございませんか?

ＨＳＰに関する質問なのかスルーしたいところですが、一応答えます。

「それ以外の情報をＨＳＰで消すスクリプトを作ってください。」

以上です。

ちょいとインチキ？(というか手抜き)な部分ありです。

#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		//ハンドル開放

ところで・・・どうやって実行結果のダイアログを非表示に出来るんだろ？

>ところで・・・どうやって実行結果のダイアログを非表示に出来るんだろ？

デバッグビルド版のDLLを使用していると実行結果のダイアログが出るようです。
レジストリ追加でも非表示に出来る模様。

HKCU\Software\ArchiverDll\UNZIP32\Settings\
ShowResult=0

お騒がせしました<(_ _)>

KAさん
すいません。情報取得後の処理をHSPで行う方法を尋ねたつもりなのですが、当方の文章力不足のため、
誤解を招いてしまいました。申し訳ございません。

inoviaさん
ありがとうございます。希望通りの動作を確認しました。