いつも勉強させていただいてます。
圧縮ソフト +Lhaca に C:\TEST　というホルダーを貼り付けて、圧縮したいのですが可能でしょう
か？
下記のようなプログラムを作成したのですが、うまくいきません。
分かれば教えてください。

Private Sub Command1_Click()
        FileCopy "C:\TEST", "C:\Program Files\Lhaca\Lhaca.exe"
End Sub

ん〜、タイトルと内容の関係が不明ですが、、、

> 圧縮ソフト +Lhaca に C:\TEST　というホルダーを貼り付けて、圧縮したいのですが可能でしょう
> か？

表記法に難アリです。
#これでは、一般人は圧縮ソフトとLhacaが別物と捕らえられてしまいます。

　圧縮ソフト+Lhaca⇒圧縮ソフト(=Lhaca)

>圧縮したいのですが可能でしょうか？
　可能です。詳細は下記参照。
　hhttp://tinyurl.com/84vf8
　

+Lhacaというのもあります先生！(orz

ちなみにスレ元の人の質問は不明。

> +Lhacaというのもあります先生！(orz

明日から夏休みだから、頭が働いてないなぁ〜。
#金・土・日の３日間だけど(orz

>ちなみにスレ元の人の質問は不明。
いな 的 超日本語訳にすると

VBで表示されるFormに"C:\TEST"のフォルダを「ドラッグ and ドロップ」した時、
圧縮ソフト(= +Lhaca)を利用し、
???形式(Lzh,Zip etc...)のファイルに圧縮したいのですが、可能でしょうか？

だと思われ...ふぃ〜。ここまで訳すの大変だった

> > +Lhacaというのもあります先生！(orz

hhttp://park8.wakwak.com/~app/Lhaca/
このソフトは、デスクトップ上にあるアイコンに対して、
対象ファイルをドラッグ＆ドロップすることで圧縮／解凍を行います。

質問者は、C:\TEMPフォルダを圧縮する意図で、+Lhacaの動作をVBでシミュレートする
という手段を選択し、GUI操作からの連想でFileCopyを行ってみた　と推測しました。

どうしても+Lhacaでないと困るということでなければ、
UNLHA32.DLL等をVBから呼び出すのが目的を達する手段の一つと思われます。
hhttp://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_t23.htm

　ディスクトップ上のショートカットにファイルやフォルダをドラッグ＆ドロップ
すると、Explorerは、そのショートカットのリンク先のプログラムを、ドロップ
したファイルやフォルダをパラメータに指定して起動します。

　ということは、ＶＢで、+Lhaca を使って、C:\TEST　というホルダーを圧縮したいなら、
Shell関数でLhaca.exeを起動するときにパラメータとして「C:\TEST」をつけてやれば
OKです。

Private Sub Command1_Click()
Dim varReturnValue

    varReturnValue = Shell("""C:\Program Files\Lhaca\Lhaca.exe"" C:\TEST")

End Sub

　ということでいいんですよね？

皆様、表現力が甘く大変ご迷惑をお掛けしました。
Starfishさんの言う通りです。

うまく行きました。申し訳ありませんでした。
これからも宜しくお願いします。