Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/hadoop/6.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 如何将Textboxt.Text保存为文件名?_Vb.net - Fatal编程技术网

Vb.net 如何将Textboxt.Text保存为文件名?

Vb.net 如何将Textboxt.Text保存为文件名?,vb.net,Vb.net,这个代码怎么了 我需要添加textbox13.text(它的值以数字表示)作为文件名,如何添加一个选项来检查文件是否已经存在,如果已经存在,则在按下保存按钮时显示一个选项,称为“替换”或“取消” 到目前为止,代码如下: Dim i As Integer = 0 Dim filepath As String = IO.Path.Combine("D:\Logs", Textbox13.Text + i.ToString() + ".txt") Using sw As New Str

这个代码怎么了

我需要添加
textbox13.text
(它的值以数字表示)作为文件名,如何添加一个选项来检查文件是否已经存在,如果已经存在,则在按下保存按钮时显示一个选项,称为“替换”或“取消”

到目前为止,代码如下:

Dim i As Integer = 0
Dim filepath As String = IO.Path.Combine("D:\Logs", Textbox13.Text + i.ToString() + ".txt")        
Using sw As New StreamWriter(filepath)
sw.WriteLine(TextBox13.Text)
sw.WriteLine(TextBox1.Text)
sw.WriteLine(TextBox2.Text)
sw.WriteLine(TextBox3.Text)
sw.WriteLine(TextBox4.Text)
sw.WriteLine(TextBox5.Text)

sw.WriteLine(TextBox7.Text)

sw.WriteLine(TextBox9.Text)
sw.WriteLine(TextBox10.Text)
sw.WriteLine(TextBox11.Text)
sw.WriteLine(TextBox12.Text)
这是表格一

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Form2.WriteTextBoxTextToLabel(TextBox1.Text)
    Form2.WriteTextBoxTextToTextbox(TextBox1.Text)
End Sub
这是表格2

Public Sub WriteTextBoxTextToLabel(ByVal Txt As String)
    lblPD.Text = Txt
End Sub
Public Sub WriteTextBoxTextToTextbox(ByVal Txt As String)
    TextBox13.Text = Txt
End Sub

Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles TextBox13.TextChanged
    TextBox13.Text = lblPD.Text

End Sub

您可以在创建
StreamWriter
之前添加以下逻辑:

if system.io.file.exists(filepath) then
   ' The file exists
else
   ' The file does not exist
end if

谢谢,但是如何将我的文件另存为textbox13.text中的文本?您已经在文件路径中包含了
textbox13.text
的值,否?是的,但它没有另存为textboxt文本错误消息(System.ArgumentException:“路径中的非法字符”。)顺便说一句,textbox13.text是从另一个textboxits from form1 textbox生成的,并生成form2 lable,然后lable.text生成textbox13.text,它是在form 2I中。我已经恢复了上次编辑,因为我们在这里不使用[solved]标题破解,也不添加解决方案材料作为附录。基于现有答案的自我回答非常受欢迎-请在下面添加答案(即不在问题或评论中)。谢谢