Setupさせるとファイルを認識しないのですが・・・

解決

初心者プログラマ 2004-07-02 18:33:44 No: 114433

[VB6]

ディストリビューションパッケージを作るときに
プログラムで使う写真が200枚くらい入っているフォルダを
(フォルダ名：写真(JPG画像のみ)）
ディストリビューションウィザードではパッケージせず
出来上がったパッケージの『Support』フォルダに
自分でその"写真"フォルダを置き、
その後インストールしてみたのですが、ソフト稼動中に
うまく写真フォルダを開くことができません。
どのようにすれば、良いのでしょうか？

--------------------------------
Private Sub Form_Load()
〜
ChDir App.Path
〜
End Sub
--------------------------------
Private Sub PictureChange()
    'ランダムに写真を出す
    Photo = Int((42 * Rnd) + 100)
    Image1.Picture = LoadPicture(App.Path & "\写真\" & Photo & ".jpg")
End Sub
--------------------------------

という感じのプログラムです。

nanashi 2004-07-02 19:55:03 No: 114434

ディストリビューションに含まれてないなら、そのフォルダはインストールされません。
配布時に別にして配る、とかしないと無理です。

初心者プログラマ 2004-07-02 20:00:13 No: 114435

> ディストリビューションに含まれてないなら、そのフォルダはインストールされません。
> 配布時に別にして配る、とかしないと無理です。

その場合、
Image1.Picture = LoadPicture(App.Path & "\写真\" & Photo & ".jpg")
のところはどのように記述するべきなのでしょうか？
教えてください。

nanashi 2004-07-02 20:15:51 No: 114436

どういう風に配布するかによると思いますが。

初心者プログラマ 2004-07-02 20:33:07 No: 114437

> どういう風に配布するかによると思いますが。

配布はCDに焼いて、各自にインストールしてもらうことになりますが、
そのCDをそのままPCに残して使う形にはしたくありません。
その場合、この"写真"フォルダを
こちらで指定する任意の場所に格納してもらうことが
出来るのでしょうか？

nanashi 2004-07-02 20:48:08 No: 114438

ディストリビューションに含めない限り、ユーザーが手作業でコピーすることになります。
不特定多数のユーザーが対象の場合、私はあまりおすすめ出来ません。

初心者プログラマ 2004-07-02 21:06:49 No: 114439

ディストリビューションでフォルダを作って格納したほうが
よさそうですね。
200枚くらいあり、ちょっと手間がかかるかなって思っていたのですが、
頑張ってみます。

ありがとうございました。

（ちなみにCAB書庫ファイルは自分では、触れないものでしょうか？）