Vb.net 不使用'；t工作…杀死进程，搜索文件，流写文件搜索文件

你能帮我查一下密码吗

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x As String = "C:\Users\Andy\Documents\Visual Studio 2008\Projects\minecraft srv\"

    For Each app As Process In Process.GetProcesses
        If app.ProcessName = "notepad" Then
            app.Kill()
        End If
    Next

    Dim result As String
    Dim servprop() As String
    servprop = System.IO.Directory.GetFiles(x, "server.*")

    For Each file In servprop
        result = Path.GetFileName(file)
    Next

    Dim z As String = "C:\Users\Andy\Documents\Visual Studio 2008\Projects\minecraft srv\" & result.ToString
    Dim t As StreamWriter = New StreamWriter(z)
    t.WriteLine(TextBox1.Text.ToString)
    t.Close()
End Sub

所以。。。我有一个按钮（button1），可以确定记事本是否打开并关闭。 然后在“x”位置搜索“server.Properties” 如果找到server.properties，则“result”将获得其名称（server） “z”是streamwriter必须从textbox1写入文本的文件位置

但它不起作用。。。streamwirter未在服务器上写入。属性。。。为什么？

---

提及：我只是个孩子：D，我正在尝试自学visual basic。

如果只有一个名为“server.properties”的文件，则可以删除搜索此文件的所有代码并直接编写

Dim z As String
z = System.IO.Path.Combine(x, "server.properties")

Using t = New StreamWriter(z)
    t.WriteLine(TextBox1.Text.ToString)
    t.Flush()
End Using

---

关于错误，使用正确的using语句封装编写代码可以确保完全清除错误。另外，添加对的调用可能不是必需的，但不会造成伤害。

太多的

在
和
下一步
时结束。代码缺失？您是否收到任何错误消息？只有1条警告…：变量“result”在赋值之前被使用。运行时可能会出现空引用异常。我确信不会丢失任何内容。只是我对校长的理解不好。。你是对的。。。我有太多的结局如果和下一个。。。现在，如果目录包含多个名称以“Server.”开头的文件，则循环结束时将变量result设置为一个文件名，而该文件名可能不是您希望写入的文件名，则应该是正确的。检查您的目录是否只包含您正在搜索的“server.properties”文件。在MSDNWorks verry fine上添加了指向Flush（）的链接。。再次感谢！