1

こんにちは、私はVBでこの問題を抱えています

    FileOpen(1, Application.StartupPath & "\" & TextBox8.Text & ".exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
    Dim all As String = ""
    For i = 0 To settings.Length - 1
        all = all & Filesplit & settings(i)
    Next
    FilePut(1, stub & all)

I/O 例外ファイルが書き込みアクセス用に開かれていません

このエラーを修正するにはどうすればよいですか?

4

1 に答える 1

3

OpenAccess.Read

これにより、ファイル I/O が読み取り専用に制限されます。OpenAccess.ReadWrite

于 2013-10-06T01:23:40.937 に答える