vb.net - 为什么它说文件正在使用VB

Question

我不知道为什么说文件已打开。错误大约进行了一半。

Dim worldWriter As New System.IO.StreamWriter(cmbworldsave) (this is the line that i am having trouble with)



Imports System.IO
Imports System.Text

Public Class frmindex
    'Variables
    Dim vcmbworld As ComboBox
    Dim addworld As String
    Dim root As String
    Dim hellworld As String
    Dim pvp As String
    Dim whitelist As String
    Dim spawnmonsters As String
    Dim onlinemode As String
    Dim spawnanimals As String
    Dim bit As String
    Private Sub frmindex_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If cmbserverapplication.Text = "Jar File" Then
            lblram.Visible = True
            txbram.Visible = True
        Else
            lblram.Visible = False
            txbram.Visible = False
        End If

        'Set Default Root
        root = CurDir()
        'finds load files
        txbroot.Text = root
        'Checks if save folder exists if not creates one
        If (Not System.IO.Directory.Exists(root + "\setting")) Then
            System.IO.Directory.CreateDirectory(root + "\setting")
        End If
        'loads world settings
        If File.Exists(root + "\setting\world.txt") Then
            For Each line As String In File.ReadLines(root + "\setting\world.txt")
                If line.Length <> 0 Then
                    cmbworld.Items.Add(line)
                End If
            Next line
        End If
        'loads ip
        If File.Exists(root + "\setting\ip.txt") Then
            For Each line As String In File.ReadLines(root + "\setting\ip.txt")
                If line.Length <> 0 Then
                    cmbip.Items.Add(line)
                End If
            Next line
        End If

        'loads levelseed
        If File.Exists(root + "\setting\levelseed.txt") Then
            For Each line As String In File.ReadLines(root + "\setting\levelseed.txt")
                If line.Length <> 0 Then
                    cmblevelseed.Items.Add(line)
                End If
            Next line
        End If

        txbseverport.Text = My.Settings.sseverport
        txbmaxplayers.Text = My.Settings.smaxplayers
        txbspawnprotection.Text = My.Settings.sspawnprotection
        txbroot.Text = My.Settings.sroot
        cmbworld.Text = My.Settings.sworld
        cmbip.Text = My.Settings.sseverip
        cmblevelseed.Text = My.Settings.slevelseed
        cmbserverapplication.Text = My.Settings.sseverapplication
        txbram.text = My.Settings.sram
        hellworld = My.Settings.shellworld
        pvp = My.Settings.spvp
        whitelist = My.Settings.swhitelist
        spawnmonsters = My.Settings.sspawnmonsters
        onlinemode = My.Settings.sonlinemode
        spawnanimals = My.Settings.sspawnanimals
        cbxhellworld.Checked = hellworld
        cbxpvp.Checked = pvp
        cbxwhitelist.Checked = whitelist
        cbxspawnmonsters.Checked = spawnmonsters
        cbxonlinemode.Checked = onlinemode
        cbxspawnanimals.Checked = spawnanimals
    End Sub

    Private Sub btnrootbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrootbwse.Click
        ' Creates a FolderBrowserDialog object
        Dim fbdroot As New FolderBrowserDialog
        'Dialog
        With fbdroot
            ' Desktop is the root folder in the dialog.
            .RootFolder = Environment.SpecialFolder.Desktop
            ' Select the C:\Windows directory on entry.
            .SelectedPath = CurDir()
            ' Prompt the user with a custom message.
            .Description = "Please Select Root Of Sever"
            root = .SelectedPath
            If .ShowDialog = DialogResult.OK Then
                root = .SelectedPath
                txbroot.Text = root
            End If
        End With
    End Sub

    Private Sub btnbwsworld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnworld.Click
        If Not cmbworld.Text = "" Then
            cmbworld.Items.Add(cmbworld.Text)
            cmbworld.Text = ""
        End If
    End Sub

    Private Sub btnaddip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddip.Click
        If Not cmbip.Text = "" Then
            cmbip.Items.Add(cmbip.Text)
            cmbip.Text = ""
        End If
    End Sub
    Private Sub btnlaunch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlaunch.Click
        If System.IO.Directory.Exists(root + "\setting") = True Then
        Else
            System.IO.Directory.CreateDirectory(root + "\setting")
        End If
        Dim sbcmbworld As New StringBuilder()

        For Each item As Object In cmbworld.Items
            sbcmbworld.AppendFormat("{0} {1}", item, Environment.NewLine)
        Next
        Dim cmbworldsave As String = root + "\setting\world.txt"
        If System.IO.File.Exists(cmbworldsave) = True Then
        Else
            System.IO.File.Create(root + "\setting\world.txt")
        End If
        Dim worldWriter As New System.IO.StreamWriter(cmbworldsave) **<---- ERROR HERE!**
        worldWriter.Write(sbcmbworld.ToString()) 'Use the stringbuilder here
        worldWriter.WriteLine()
        worldWriter.Close()

        Dim sbcmbip As New StringBuilder()

        For Each item As Object In cmbworld.Items
            sbcmbip.AppendFormat("{0} {1}", item, Environment.NewLine)
        Next
        Dim cmbipsave As String = root + "\setting\ip.txt"
        If System.IO.File.Exists(cmbworldsave) = True Then
        Else
            System.IO.File.Create(root + "\setting\ip.txt")
        End If

        Dim ipwriter As New System.IO.StreamWriter(cmbipsave)
        ipwriter.Write(sbcmbip.ToString()) 'Use the stringbuilder here
        ipwriter.WriteLine()
        ipwriter.Close()

        Dim sbcmblevelseed As New StringBuilder()

        For Each item As Object In cmbworld.Items
            sbcmbip.AppendFormat("{0} {1}", item, Environment.NewLine)
        Next
        Dim cmblevelseedsave As String = root + "\setting\levelseed.txt"
        If System.IO.File.Exists(cmbworldsave) = True Then
        Else
            System.IO.File.Create(root + "\setting\levelseed.txt")
        End If
        Dim levelseedWriter As New System.IO.StreamWriter(cmbipsave)
        levelseedWriter.Write(sbcmblevelseed.ToString()) 'Use the stringbuilder here
        levelseedWriter.WriteLine()
        levelseedWriter.Close()

        If cbxhellworld.Checked Then
            hellworld = "true"
        Else
            hellworld = "false"
        End If

        If cbxpvp.Checked Then
            pvp = "true"
        Else
            pvp = "false"
        End If

        If cbxwhitelist.Checked Then
            whitelist = "true"
        Else
            whitelist = "false"
        End If

        If cbxspawnmonsters.Checked Then
            spawnmonsters = "true"
        Else
            spawnmonsters = "false"
        End If

        If cbxonlinemode.Checked Then
            onlinemode = "true"
        Else
            onlinemode = "false"
        End If

        If cbxspawnanimals.Checked Then
            spawnanimals = "true"
        Else
            spawnanimals = "false"
        End If

        My.Settings.sseverport = txbseverport.Text
        My.Settings.smaxplayers = txbmaxplayers.Text
        My.Settings.sspawnprotection = txbspawnprotection.Text
        My.Settings.sroot = txbroot.Text
        My.Settings.sworld = cmbworld.Text
        My.Settings.sseverip = cmbip.Text
        My.Settings.slevelseed = cmblevelseed.Text
        My.Settings.sseverapplication = cmbserverapplication.Text
        My.Settings.sram = txbram.text
        My.Settings.shellworld = hellworld
        My.Settings.spvp = pvp
        My.Settings.swhitelist = whitelist
        My.Settings.sspawnmonsters = spawnmonsters
        My.Settings.sonlinemode = onlinemode
        My.Settings.sspawnanimals = spawnanimals
        My.Settings.Save()

        If System.IO.File.Exists(root + "\server.properties") = True Then
        Else
            System.IO.File.Create(root + "\server.properties")
        End If

        Dim propertyWriter As New System.IO.StreamWriter(root + "\server.properties")
        propertyWriter.Write("level-name=" + cmbworld.Text)
        propertyWriter.WriteLine("")
        propertyWriter.Write("hellworld=" + hellworld)
        propertyWriter.Write("spawn-monsters=" + spawnmonsters)
        propertyWriter.WriteLine("")
        propertyWriter.Write("online-mode=" + onlinemode)
        propertyWriter.WriteLine("")
        propertyWriter.Write("max-players=" + txbmaxplayers.Text)
        propertyWriter.WriteLine("")
        propertyWriter.Write("server-ip=" + cmbip.Text)
        propertyWriter.WriteLine("")
        propertyWriter.Write("pvp=" + pvp)
        propertyWriter.WriteLine("")
        propertyWriter.Write("level-speed=" + cmblevelseed.Text)
        propertyWriter.WriteLine("")
        propertyWriter.Write("sever-port=" + txbseverport.Text)
        propertyWriter.WriteLine("")
        propertyWriter.Write("spawn-monsters=" + spawnmonsters)
        propertyWriter.WriteLine("")
        propertyWriter.Close()
        Dim serverpath As String

        If cmbserverapplication.Text = "Jar File" Then
            If System.IO.File.Exists(root + "\minecraft_server.jar") = True Then
                If Environment.Is64BitOperatingSystem = True Then
                    bit = "64"
                Else
                    bit = "32"
                End If
                serverpath = root + "\minecraft_server.jar"
                Dim javapath As String
                Dim launchcode As String

                If bit = 64 Then
                    javapath = "C:\Program Files (x86)\Java\jre6\bin\java"
                Else
                    javapath = "C:\Program Files\Java\jre6\bin\java"
                End If
                launchcode = "-Xmx" + txbram.Text + "M -Xms" + txbram.Text + "M -jar " + serverpath + " nogui"
                Dim pi As New ProcessStartInfo(javapath)
                pi.Arguments = launchcode

                Process.Start(pi)
            Else
                MsgBox("The server file does not exist. Please make sure that you have select the right file type and that it has not been renamed.")
            End If

        Else


            If System.IO.File.Exists(root + "\minecraft_server.exe") = True Then
                serverpath = root + "\minecraft_server.exe"
                Dim startInfo As System.Diagnostics.ProcessStartInfo
                Dim pStart As New System.Diagnostics.Process
                startInfo = New System.Diagnostics.ProcessStartInfo(serverpath)

                pStart.StartInfo = startInfo
                pStart.Start()
            Else
                MsgBox("The server file does not exist. Please make sure that you have select the right file type and that it has not been renamed.")
            End If
        End If

    End Sub

    Private Sub btnremoveworld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremoveworld.Click
        cmbworld.Items.RemoveAt(cmbworld.SelectedIndex)
    End Sub

    Private Sub btnremoveip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremoveip.Click
        cmbip.Items.RemoveAt(cmbip.SelectedIndex)
    End Sub

    Private Sub btnaddlevelseed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddlevelseed.Click
        cmblevelseed.Items.Add(cmblevelseed.Text)
        cmblevelseed.Text = ""
    End Sub

    Private Sub btnremovelevelseed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremovelevelseed.Click
        cmblevelseed.Items.RemoveAt(cmblevelseed.SelectedIndex)
    End Sub

    Private Sub cmbserverapplication_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbserverapplication.SelectedIndexChanged
        If cmbserverapplication.Text = "Jar File" Then
            lblram.Visible = True
            txbram.Visible = True
        Else
            lblram.Visible = False
            txbram.Visible = False
        End If
    End Sub
End Class

Answer 1

它说文件正在使用中，因为 File.Create返回您需要关闭/处理的流对象。

来自 documentation :

Return Value

Type: System.IO.FileStream
A FileStream that provides read/write access to the file specified in path.

至少，更改对方法的每次调用，例如这两个:

System.IO.File.Create(root + "\setting\world.txt")
System.IO.File.Create(root + "\setting\levelseed.txt")

对此:

System.IO.File.Create(root + "\setting\world.txt").Dispose()
System.IO.File.Create(root + "\setting\levelseed.txt").Dispose()

或者，您可以使用 File 的不同方法。类(class)， File.WriteAllText :

System.IO.File.WriteAllText(root + "\setting\world.txt", "")
System.IO.File.WriteAllText(root + "\setting\levelseed.txt", "")