TESTESTさん、おはようございます。

無事解決したようで、久しぶりに発言してよかったと思います＾＾

＞aceさん、こんにちは。
＞
＞回答していただき、本当にありがとうございます。
＞
＞すごく丁寧にスクリプトの記述までしていただき、おかげさまで無事できました！
＞感動ものですね！
＞
＞＜同じ壁？にぶち当たった方へ＞
＞UNLHA32.dllはどこからか持ってこなければならないと思います。
＞(実際自分はWeb上からDownLoadしてきました)
＞コーディングですが、aceさんの記述で問題なく動作致します。
＞
＞最後に。
＞改めてありがとうございました。
＞また機会がありましたら、是非とも宜しくお願い致しますm(_ _)m
＞
＞
＞＞TESTESTさん、こんにちは。
＞＞
＞＞LHAの場合かつPB11
＞＞(11未満は alias for の;Ansiを除く)
＞＞
＞＞外部関数宣言
＞＞
＞＞function integer Unlha(integer hWnd,String szCmdLine,ref String szOutput,integer dwSize) 
＞＞library \"UNLHA32.dll\" alias for \"Unlha;Ansi\"
＞＞
＞＞
＞＞圧縮ボタン（cb_compress)を作成したとして、その中のスクリプト
＞＞
＞＞
＞＞String StCmd,WkBuff
＞＞Long Ret
＞＞
＞＞stCmd = \"a 圧縮先ファイル名.LZH -gb圧縮したいファイル\"
＞＞// ※StCmd内の内容はLhaのコマンドパラメタを参照してください。
＞＞WkBuf = SPACE(255)
＞＞//ボタンに組み込んだとして、Handle(parent)を使用
＞＞Ret = Unlha(Handle(parent), stCmd,WkBuf,255)
＞＞IF Ret <> 0 THEN
＞＞　MessageBox(\"ERROR\",\"圧縮失敗\")
＞＞END IF
＞＞
＞＞こんな感じかな？
＞＞
＞＞
＞＞
＞＞＞こんにちは。
＞＞＞
＞＞＞PB初心者で申し訳ありませんが、ご教授願います。
＞＞＞
＞＞＞やりたいことなのですが、題名通りの、
＞＞＞「SAVEASで出力したファイルを圧縮したい」という事なのですが、
＞＞＞DOS窓を使用せずにやり方を知っていらっしゃる方、もし教えていただけると嬉しいです。
＞＞＞
＞＞＞
＞＞＞宜しくお願いします。
＞＞＞
＞＞
＞＞
＞
＞