關於封包的問題(編號:8415)

如果我的程式需要使用子資料夾的檔案(如圖片、音效等),
如果封包以後,再安裝程式時,我希望這些子資料夾和裡面
的檔案能全部安裝到指定的資料夾內,請問程式要如何寫呢? 謝謝啦!! 我的程式碼如下!
(假如我的圖片(1.jpg)放在子資料夾(123)裡面)
Dim dir as string
-----------------------
Private sub form_load()
dir = APP.path
End Sub
-----------------------
Private sub form_Click()
dim temp as String
temp=dir + "\123"
Pic.Picture=loadpicture(temp+"1.jpg")
End Sub
雖然程式譯成執行檔以後,使用上是沒問題的。
不過把程式封包後,在安裝時只會把 1.JPG 安裝到
你所希望放這軟體的主資料夾,而不是安裝到123的
子資料夾內,所以造成執行時找不到圖片的錯誤!