VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/02(Wed) 17:07 |
| 投稿者 | ： Killer |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 再度教えてください |
> お疲れ様です。
> まだ ファイル操作について問題です。
> App.Pathは ”C:\Program Files\Microsoft Visual Studio\VB98”です。
> readme.txtが”C:\Program Files\Microsoft Visual Studio\VB98”の下に配置します。
> しかし、「実行時エラー’53’、ファイルが見つかりません。」と言います。
> なぜですか？どうも ありがとう。
>
> Private Sub Form_Load()
> Dim DirPath As String
> Dim DATA As String
>
> DirPath = App.Path
> If Right(DirPath, 1) <> "\" Then DirPath = DirPath & "\"
> Open DirPath & "readme.txt" For Input As #1
> Line Input #1, DATA
> Close #1
> Label1.Caption = DATA
>
> End Sub
答えは１つ！
readme.txtが”C:\Program Files\Microsoft Visual Studio\VB98”に存在しないからです。
あとopenの前にdir関数でファイルの存在チェックしたほうがいいですよ！
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）