none
データファイルの入出力が出来ない。 RRS feed

  • 質問

  • ファイルの入出力は初めて試みるのですが、パス 'c:\testfile.txt' へのアクセスが拒否されました。とエラーが出てできません。初歩的なことでしょうがご教示下さい。テストで書いたコードは下記のとおりです。

    Public Class Form1

        Dim fclub As String

           Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


                Dim file = My.Computer.FileSystem.OpenTextFileWriter(
            "c:\testfile.txt", True)
                Dim sDs As String

                sDs = TextBox1.Text + TextBox2.Text + TextBox3.Text

                file.WriteLine(sDs)
                file.Close()

                Dim fileReader =
                  My.Computer.FileSystem.OpenTextFileReader("C:\testfile.txt")
                Dim stringReader = fileReader.ReadLine()
                MsgBox("The first line of the file is " & stringReader)

                ' Dim fclub As String
                MsgBox(TextBox1.Text)
                FileOpen(1, fclub, OpenMode.Output, , , 1000)
                Write(TextBox1.Text, TextBox2.Text, TextBox3.Text)
            End Sub

        End Class

    2012年5月6日 2:30

回答

すべての返信

  • 実行環境は Windows 7 ですか?

    C:\以外の場所のファイルを読み込もうとするとどうなりますか?

    2012年5月6日 3:03
  • 早速返事ありがとうございます。D:で試したら「Thefirst line of the file is D4043」と帰ってきたので正常のようです。D:を調べたら「testfile.txt」が出来ていました。

    なぜC:では拒絶されるのでしょうか?ご教示下さい。

    OSはWindows7です。

    2012年5月6日 9:01
  • そういう仕様です。

    "windows 7" "cドライブ直下" で検索してみてください。

    • 回答としてマーク 山本春海 2012年5月10日 8:38
    2012年5月6日 9:09
  • 有難うございました。ディレクトリーをC:\Users\Owner\Documentsにしたらできました。

    これで前に進めます。

    2012年5月6日 11:49