HSPTV!掲示板

ZIP32Jを使ってディレクトリの圧縮をしようとしているのですが

#uselib "ZIP32J.DLL"
#cfunc Zip "Zip" sptr, sptr, var, sptr	
sdim zipdata, 20000
zipstat=Zip( hwnd, "-r file.zip G:\\Desktop\\file", zipdata, 1024*1024 )
if zipstat != 0 : dialog "Error":end

このソースだと、圧縮した際に
Desktopというディレクトリの中にfileというディレクトリがあるという形になってしまいます。

作業ディレクトリを指定する -bかとおもいきやそうでもありませんでした。

どうすれば、この現象を回避できるでしょうか？

●コマンドラインの形式

　 [-<options>...] <archive_file_name>[.zip] [<directory_name>\] [<filespec>...]

●オプション

　-b dir
　　　　作業ディレクトリを指定する。

>>この現象を回避できるでしょうか？

「この現象」が、どうなれば「回避」に成りますか。

>>KAさん

uselib "ZIP32J.DLL"
	#cfunc Zip "Zip" sptr, sptr, var, sptr	
sdim zipdata, 20000
	zipstat=Zip( hwnd, "-r -b G:\\Desktop file.zip file", zipdata, 1024*1024 )
	if zipstat != 0 : dialog "Error":end

このように指定したのですが、エラーが出てしまいます。

>>KAさん
この状態で解凍すると、Desktopというディレクトリの中にfilesができてしまいます。
なので、Desktopというディレクトリの中ではなく解凍したらfilesが出てきて欲しいのです。

G:\Desktop\file
のfileフォルダ名もサブフォルダ名も無くて良いなら（サブフォルダも全て展開された状態で圧縮される）

　-j
　　　　ファイル名のパスを保存しない。


fileフォルダ名とサブフォルダは残したいなら

	dir_cur_bak=dir_cur
	chdir "G:\\Desktop"
	zipstat=Zip( hwnd, "-r "+dir_cur_bak+"\\file.zip file", zipdata, 1024*1024 )

Desktop\fileフォルダ名は無くしたいけどサブフォルダは残したいなら

	dir_cur_bak=dir_cur
	chdir "G:\\Desktop\\file" 
	zipstat=Zip( hwnd, "-r "+dir_cur_bak+"\\file.zip *", zipdata, 1024*1024 )

>>暇人さん
ありがとうございます！
ディレクトリ移動が解決の鍵だったんですね！