Text 如何创建10个空白文本文件，并将特定名称作为输入文本框中给定的名称？

我目前正在使用

Vb code

创建一个空白文本文件，该文件在

textbox1=

指定人名和

textbox2=

指定当前日期中以

Name

作为文本输入

代码：

---

我有一个10个人的列表，想要创建10个空白文本文件，其中包含一个特定的名称和日期作为文本框的输入

例如：

人名和日期=创建的文本文件Person name Date.txt

ross 13Oct2016=ross13Oct2016.txt

Sam 13Oct2016=sam13Oct2016.txt

Ben 13Oct2016=Ben13Oct2016.txt

人名是固定不变的，我每天都要更改日期

---

我无法百分之百地理解您想要做什么，但我认为这应该会有所帮助

Dim txt As TextBox
    For i = 1 To 10
        txt = New TextBox
        txt.Location = New Point(25 * i, 50)
        txt.Name = filepath
    Next

---

我用myStreamWriter解决了这个问题。 代码是-

---

`

谢谢您的回复。为了更好地理解，我添加了图像-“例如图像”。请看图片！

Dim txt As TextBox
    For i = 1 To 10
        txt = New TextBox
        txt.Location = New Point(25 * i, 50)
        txt.Name = filepath
    Next

    Dim Save As New SaveFileDialog()
    Dim myStreamWriter As System.IO.StreamWriter
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label3.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label4.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label5.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label7.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label8.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label9.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label10.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label15.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label16.Text & TextBox1.Text & ".txt", True)
    myStreamWriter = New System.IO.StreamWriter("C:\Users\Desktop\ABC\" & Label17.Text & TextBox1.Text & ".txt", True)

    myStreamWriter.Close()

End Sub