VBでのプログラミングについて教えてください
- VBでのプログラミングを学んでいる初心者です。ファイル出入力の基礎を学んでいるところなのですが、実行時エラー53が発生しました。
- 実行時エラー53が表示されてしまいました。ファイルが見つかりませんというエラーです。
- ファイルが見つかりませんと表示された部分のコードは、「Open "sample.txt" For Input As #1」です。解決策が見つからず困っています。
- ベストアンサー
VBでのプログラミングについて教えてください。
VBでのプログラミングを学んでいる初心者です。 ファイル出入力の基礎を学んでいるところなのですが、 本に書いてある通りにコードを打ち込んで実行したら、 実行時エラー53 ファイルが見つかりません と表示されてしまいました。 エラーとされた部分のコードは以下の通りです。 Open "sample.txt" For Input As #1 本の指示通り、Windowsのメモ帳で作成したテキストファイルにsample.txtという名前を付けて保存しましたので、ファイルが存在しないということは無いはずなのですが…。 ネットで調べても解決策が見つからず困っています。 ご教授よろしくお願いいたします。
- zevym
- お礼率100% (1/1)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
> Windowsのメモ帳で作成したテキストファイルにsample.txtという名前を付けて保存しました 「どこに」保存しましたか? Open等で、ファイル名だけ指定した場合、「作業ディレクトリ」にあるファルを探します。作業ディレクトリに無ければ見つけることはできません。 作業ディレクトリは実行方法とかで変わります。 Visual Basicの「実行」や「デバッグ実行」からだ、と以下の方法でsample.txtの場所に設定するか、設定されている場所にsample.txtを置くかします。 http://msdn.microsoft.com/ja-jp/library/0a10ws2y%28v=vs.100%29.aspx 別は方法として、ファイル名をフルパスで指定します。
関連するQ&A
- プログラミング方法
先日javaのプログラミングをはじめました。 本を読みながらやっているのですが、コンパイルの段階でエラーがでてしまいます。自分がやった手順で何か間違っているところがあったら おしえてください。 1.CドライブにYJSampleという名前のディレクトリをつくる そのなかに01というディレクトリをつくる 2.環境変数のPATHの項を変数。SDKを保存した場所\binを入力 3.ソースファイルを作成。ここで作成したファイルの名前を Sample1.javaで登録したのですがメモ帳で開いてみるとSample1としか指示されません。 4.コマンド プロンプト起動。cd c:\YJSample1.java を入力して実行をしたのですが エラー:Sample1.javaを読み込めません エラー一個とでてしまいます。 エラーが出ないようにするにはどうすればいいのでしょうか? 環境変数が設定できてないとおもったのですが、SDKを保存した場所\binを入力すればいいんですよね?
- ベストアンサー
- Java
- VB6.0のOpenイベントでエラーがでます
VB6.0で以下のOpenコードの部分でエラーが出ます。 --------------------------------------------- Dim intFileNumber As Integer Dim intFreeFile As Integer intFileNumber = intFreeFile Open strDFpath & strDFname For Input As #intFileNumber Do Until EOF(intFileNumber) Line Input #intFileNumber, strData_in Loop Close #intFileNumber --------------------------------------------- エラー内容「実行時エラー52 ファイル名、または番号が不正です」 エラー時のintFileNumberを見ますと「0」です。 上記コードの「intFileNumber」を「1」に置換して実行するとエラーがでません。 変数の宣言が間違っているのでしょうか? 考えられる原因があれば教えていただけませんでしょうか。
- ベストアンサー
- その他(ソフトウェア)
- VB Input#でstringを読込む時の区切り
お世話になります。 VBのInput#でテキストファイルの中の単語をString型変数に読み込むときの、1項目の区切りを教えてください。 たとえば、テキストファイルsample.txtの中身が 1 aaa bbbb であったとします。 dim i1 as integer dim s1(2) as string に対して i1=1 s1(0)="aaa" s1(1)="bbbb" となるようにしたいのですが、 open "sample.txt" for input as #1 input #1,i1 input #1,s1(0) input #1,s1(1) で読み込もうとすると、 s1(0)="aaa bbb" のように、空白も文字列の一部とみなされて切り替えてくれません。 区切りを空白から改行にして、テキストファイルの中身を 1 aaa bbb のようにすれば、一応は思ったとおりに動いてくれますが、これはこれでテキストの見栄えが悪いので、最終の手段として。 上記の例は簡単にしていますが、本当は同じような読み込む内容を何行か書いており できたら読み込むグループは1行にまとめたいのですが、 何か方法はありませんでしょうか?
- ベストアンサー
- Visual Basic
- VB2008の自作アプリの配布について教えて下さい
VB2008の自作アプリの配布について教えて下さい 自作アプリを作成し、デバッグだと正常に作動するのですが、 ビルドだと、エラーが出てしまいます。 多分エラー内容はtxtが見当たらないんだと思います (txtを複数個呼び出してます) プログラム中の、呼び出してるのはこれです FileOpen(1, My.Application.Info.DirectoryPath & "\メモ.txt", OpenMode.Input) FileOpen(2, My.Application.Info.DirectoryPath & "\メモ2.txt", OpenMode.Input) メ = My.Application.Info.DirectoryPath & "\メモル.txt" FileOpen(3, メ, OpenMode.Input) FileOpen(4, My.Application.Info.DirectoryPath & "\攻撃1.txt", OpenMode.Input) FileOpen(5, My.Application.Info.DirectoryPath & "\攻撃2.txt", OpenMode.Input) FileOpen(6, My.Application.Info.DirectoryPath & "\攻撃3.txt", OpenMode.Input) FileOpen(7, My.Application.Info.DirectoryPath & "\攻撃4.txt", OpenMode.Input) FileOpen(8, My.Application.Info.DirectoryPath & "\攻撃5.txt", OpenMode.Input) FileOpen(9, My.Application.Info.DirectoryPath & "\攻撃6.txt", OpenMode.Input) 因みに今txtファイルはdebugフォルダに入っています。 txtファイルを含めたビルドを発行するにはどうすればいいのでしょうか?
- 締切済み
- Visual Basic
- VB4でパスが見つかりません
すみません、また教えて下さい。 VB4でプログラミングをしています。 VB4の入っているPCでは、期待通りに動くのですが、 セットアップウイザードで標準で配布されるファイルを付けて、 (次へ次へとクリックして)配布用ディスクを作り、 別のVB4の入っていないPCにセットアップして、 実行しようとすると、 「実行時エラー’76’パスが見つかりません」と出て動きません、 これは、何のパスが見つからないのでしょうか? PCは共にWin98seです。 単純な画面とやり取りして、ファイルを作るプログラムです。
- ベストアンサー
- Visual Basic
- VBでエディタ
こんにちは。Kakugariです。 今、VBでエディタを作っていますがファイル操作でつまずいてしまいました。Commondialogからファイル名を取得して、そのファイルをMaintxtに表示するプログラムですがMaintxtに表示されるとき、Tabを使用してスペースを空けた部分が、無視されて文字が前に詰めて表示されます。それ以外は正常です。下にコードを載せましたので、お分かりになられる方は、間違いを指摘していただけたらありがたいです。ちなみにVB6です。Commondialogのプロパティは、デザイン時に設定されています。 Private Sub mnuOpen_Click() On Error GoTo ErrCode With CommonDialog1 .DialogTitle = "開く" .ShowOpen End With Dim txt As String, Work As String Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Input #1, Work txt = txt & Work & vbCrLf Loop Close #1 Maintxt = txt Exit Sub ErrCode: Close #1 MsgBox "ファイルは開けませんでした。", vbCritical End Sub
- ベストアンサー
- Visual Basic
- VB教えてくださいm(__)m
VBでプログラミングしてるのですが、ある変数”A”には(パス+ファイル名)が入っているのですが、この中からファイル名だけを取得するにはどうすればよいのでしょうか? (d:\aaa\bbb\ccc\ddd.txt → ddd.txt)
- ベストアンサー
- Visual Basic
- 圧縮(lzh)を解凍するvbのサンプルありませんか?
圧縮(lzh)を解凍するvbのサンプルありませんか? インプットFILE aaa.lzh・・・lha形式の圧縮ファイル アウトプットFILE aaa.txt・・・aaa.lzhを解凍したファイル プログラム仕様 aaa.lzhを読み込み、解答してaaa.txtに出力する。
- ベストアンサー
- Visual Basic
- VBでファイルの関連付け
VBでファイルの関連付け(そのファイルをダブルクリックすると,EXEが起動して,そのファイルをいじれる状態になる) 例えば,txtファイルのアイコンをダブルクリックするとメモ帳が開き,テキストが開かれるみたいにするのを, プログラムからやるのはどうすればいいでしょうか? LhasaやLhacaの左下のほうにあるようなやつです。 できればサンプルとかお願いします
- ベストアンサー
- Visual Basic
お礼
ご回答ありがとうございます! ご指摘通り、ファイルの場所が間違っていました…。 場所を移したら上手く出来ました! ご教授ありがとうございました!