投稿日 | : 2003/04/02(Wed) 16:58 |
投稿者 | : zkei |
Eメール | : |
URL | : |
タイトル | : 再度教えてください |
お疲れ様です。
まだ ファイル操作について問題です。
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