我该如何编写这段代码而没有错误

-3

我想编写写入文件的代码，但它说不能。我怎样才能解决这个问题？请帮忙。我该如何编写这段代码而没有错误

Imports System.IO 

Public Class Form1 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    yes.Visible = False 
    no.Visible = False 
    Label1.Visible = False 
    ProgressBar1.Visible = False 
    Label2.Visible = False 
    Label3.Visible = False 
    TextBox1.Visible = False 
    TextBox2.Visible = False 
    apply.Visible = False 
    back.Visible = False 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Button1.Visible = False 
    yes.Visible = True 
    no.Visible = True 
    Label1.Visible = True 
    setings.Visible = False 

End Sub 
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click 

End Sub 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles yes.Click 
    Label1.Text = "dowloading" 
    no.Visible = False 
    yes.Visible = False 

End Sub 

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles no.Click 
    yes.Visible = False 
    no.Visible = False 
    Label1.Visible = False 
    Button1.Visible = True 
    setings.Visible = True 
End Sub 

Private Sub setings_Click(sender As Object, e As EventArgs) Handles setings.Click 
    Label2.Visible = True 
    Label3.Visible = True 
    TextBox1.Visible = True 
    TextBox2.Visible = True 
    apply.Visible = True 
    back.Visible = True 
    Button1.Visible = False 
    setings.Visible = False 
End Sub 

Private Sub back_Click(sender As Object, e As EventArgs) Handles back.Click 
    Label2.Visible = False 
    Label3.Visible = False 
    TextBox1.Visible = False 
    TextBox2.Visible = False 
    apply.Visible = False 
    back.Visible = False 
    Button1.Visible = True 
    setings.Visible = True 
End Sub 

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 

End Sub 

Private Sub apply_Click(sender As Object, e As EventArgs) Handles apply.Click 
    Dim forgepath = TextBox1.Text 
    Dim savefolder = Path.Combine(TextBox2.Text, "crazydolphininstaller") 
    Directory.CreateDirectory(savefolder) 
    Dim configfolder = Path.Combine(savefolder, "config") 
    Directory.CreateDirectory(configfolder) 
    Dim configfile = Path.Combine(configfolder, "config.txt") 
    File.Create(configfile) 
    Using writer = New StreamWriter(configfile) 
     writer.WriteLine(forgepath) 
     writer.WriteLine(savefolder) 

    End Using 
End Sub 

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged 

End Sub 

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click 

End Sub 
End Class

来源

2016-02-07 yente paternotte

错误说的是什么？ – Webster

'“但它说它不能”' - 肯定有一个*更具体*表示的问题比。 “它不能”不是一个真正的标准错误信息。 – David

@David“它说”中的“它”并不清楚。 IDE？编译器？运行时？ –

File.Create创建文件并返回为您打开的FileStream。因此，以下StreamWriter会查找打开的文件，并且无法写入该文件。只需删除File.Create行并使用允许覆盖文件的StreamWriter构造函数（如果存在的话）

Private Sub apply_Click(sender As Object, e As EventArgs) Handles apply.Click 
    Dim forgepath = TextBox1.Text 
    Dim savefolder = Path.Combine(TextBox2.Text, "crazydolphininstaller") 
    Dim configfolder = Path.Combine(savefolder, "config") 
    ' Called just one time. All the folder missing will be created 
    Directory.CreateDirectory(configfolder) 
    Dim configfile = Path.Combine(configfolder, "config.txt") 
    ' Not needed 
    ' File.Create(configfile) 

    ' Pass False as second parameter to overwrite the file if it exists 
    Using writer = New StreamWriter(configfile, False) 
     writer.WriteLine(forgepath) 
     writer.WriteLine(savefolder) 
    End Using 
End Sub

来源

2016-02-07 18:03:27 Steve

thx帮助 –

我该如何编写这段代码而没有错误

回答

相关问题