ＶＢ４でパスが見つかりません

Question

すみません、また教えて下さい。
ＶＢ４でプログラミングをしています。
ＶＢ４の入っているＰＣでは、期待通りに動くのですが、
セットアップウイザードで標準で配布されるファイルを付けて、
(次へ次へとクリックして）配布用ディスクを作り、
別のＶＢ４の入っていないＰＣにセットアップして、
実行しようとすると、
「実行時エラー’76’パスが見つかりません」と出て動きません、
これは、何のパスが見つからないのでしょうか？

ＰＣは共にWin98seです。
単純な画面とやり取りして、ファイルを作るプログラムです。

yochi · Accepted Answer

#2の補足ですが、参考になるかどうか自信はありません　f(^_^)

ＡＰＩからのフォルダ参照によるフルパス取得です。
下記コードを御参考下さい。ＶＢ精通者から見ると ”なんじゃこりゃ” ってなお粗末なコードですがご勘弁下さい m(_ _)m
また、毎回指定を回避するには指定内容をレジストリに記録するか設定ファイル（iniファイル）に記録して参照する方法があります、いずれもやはりＡＰＩ使用により可能です。
お勧めは後者（設定ファイル作成方法）です・・・理由＞＞不必要になった場合レジストリにゴミを残さない為です。(レジストリ内容も削除はできますが）
レスが長くなりましたが参考になれば幸いです。

'API宣言
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Private Const MaxP = 260
Private Type yochi
Own As Long
Roo As Long
Nam As String
Tit As String
End Type
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal PointerToIdList As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBROWSEINFO As yochi) As Long
Private Declare Function CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long) As Long
Dim Z As Integer
'------------------------------------------------------------------------------------------------
Sub Folder()
'フォルダの選択
Dim Path As String
Dim Hw As Long
Dim Ro As Long
Dim Dr As String
Z = 0
Dr = "フォルダを指定して下さい．"
Ro = GetFo(Hw, Dr, Path)
If Ro = 0 Then
If Z = 1 Then
MsgBox "このフォルダは指定出来ません。"

Exit Sub
End If
MsgBox Path

ElseIf Ro = 1 Then
End 'Exit Sub
End If
End Sub
'------------------------------------------------------------------------------------------
Private Function GetFo(ByVal Hw As Long, ByVal Msg As String, ByRef Path As String) As Long
Dim bi As yochi
Dim pidl As Long
Dim iRo As Long

On Error GoTo ErrorHandler
bi.Tit = Msg
pidl = SHBrowseForFolder(bi)
If pidl = 0 Then
Exit Function
End If
Path = String$(MaxP + 1, Chr$(0))
If SHGetPathFromIDList(ByVal pidl, ByVal Path) = 0 Then
iRo = CoTaskMemFree(pidl)
Z = 1
Exit Function
End If
Path = Left(Path, InStr(Path, Chr$(0)) - 1)
iRo = CoTaskMemFree(pidl)
If iRo <> 0 Then
End If
Exit Function
ErrorHandler:
If pidl <> 0 Then CoTaskMemFree pidl
End Function

inoue64 · Answer

プログラムの中で、
作ったパソコンにあって、実行するパソコンにはない
ドライブやフォルダを指定していませんか？

それをチェックして、直してみてはどうですか。

yochi · Answer

おそらく先答者の言われる通り 実行ファイルまでのパスが合っていないのではないでしょうか？
このプログラムがどう言った趣旨のものかわかりませんが、任意でパスを通すのであればダイアログから取得するＡＰＩを使ってみてはいかがですかこれだとまず間違いなく当エラーは回避出来るはずですが・・・。

Good-S15 · Answer

こんにちは。
プログラマで６年程勤務した者です。
ご参考程度でありますが、情報を提供します。

質問内容として、以下でよろしいのでしょうか？
・インストールＦＤを作成し、ＶＢ４が入っていない
ＰＣにインストールを行う。

だとすると、ＤＡＯ等のＶＢで使用するファイルを
新規のＰＣにレジストリ登録しなければ、
このようなエラーが出たような気がします。

あと、参考になるかわかりませんが、ＵＲＬを添付します。

参考URL：http://www1.harenet.ne.jp/~unaap/

ＶＢ４でパスが見つかりません

プログラムの中で、

おそらく先答者の言われる通り 実行ファイルまでのパスが合っていないのではないでしょうか？

この回答への補足

こんにちは。

#2の補足ですが、参考になるかどうか自信はありません f(^_^)

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おそらく先答者の言われる通り実行ファイルまでのパスが合っていないのではないでしょうか？

#2の補足ですが、参考になるかどうか自信はありません　f(^_^)