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

Question

ファイルの入出力は初めて試みるのですが、パス '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

Answer 1

実行環境は Windows 7 ですか？

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

Answer 2

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

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

OSはWindows7です。

Answer 3

そういう仕様です。

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

Answer 4

有難うございました。ディレクトリーをC:\Users\Owner\Documentsにしたらできました。

これで前に進めます。