FilePut返回I / O异常

Question

嗨，我有这个问题与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异常文件未打开以进行写访问

请问如何修复此错误？

Answer 1

  

OpenAccess.Read

这会将文件I / O限制为只读，请尝试OpenAccess.ReadWrite