[VB] Datei wird gerade verwendet

[ZackBlack]

Hi,
ich hab hier n Problem, ich bin gerade dabei in VB.Net 2010 einen Installer für ein Programm von mir zu schreiben, hat nicht wirklich einen Sinn, eher so als Übung. Dabei prüfe ich ob man die Rechte dafür hat eine Datei im Zielverziechnis zu erstellen. Jetzt ist der Installer schon fast fertig, nur bekomme ich ne Fehlermeldung beim ausführen, ungefähr so: "Exception: Die Datei(...\test_acess) wird gerade von einem anderen Prozess verwendet." . Also ich kann die Datei nicht löschen.Ich vermute mal ich müsste die Datei irgentwie schliessen, oder so, aber andererseits hab ich ja keinen filestream dafür und einen erzeugen würd ja auch nicht gehen. Kann man sie trotzdem löschen, obwohl sie gerade verwendet wird, oder kann ich die irgentwie schliessen? Sonst könnte ich ja die Datei mit filestream erzeugen, aber es geht mir eher ums Prinzip, ob man die trotzdem löschen\schliessen kann.
Der Code sieht so aus:

 Spoiler

 Function chkInstalldir() As Boolean
        
        If Not Directory.Exists(installdir) Then
            result = Installer.Results.installdir_existens
            chkInstalldir = False
        Else
            Try
                File.Create(installdir & "\acess_test")
            Catch ex As Exception
                result = Installer.Results.installdir_acess_denied
                chkInstalldir = False
            End Try
            If File.Exists(installdir & "\acess_test") Then
                'Datei löschen
                File.Delete(installdir & "\acess_test")
                chkInstalldir = True
            Else
                result = Installer.Results.installdir_acess_denied
                chkInstalldir = False
            End If
        End If
        chkInstalldir = False

    End Function

Würde mich über Hilfe freuen, Danke.

[mrapc]

Die Datei wird von deinem eigenem Programm verwändert.
Schließe zuerst aus deinem Programm.

[ZackBlack]

Originally Posted by mrapc

Die Datei wird von deinem eigenem Programm verwändert.
Schließe zuerst aus deinem Programm.

Lol? Das ist mir schon klar... aber wie soll ich sie schliessen?

[b0npriXX.1337!]

STRG - ALT - ENTF, suche nach einem Task, der gerade dein Programm verwendet?

[ZackBlack]

Originally Posted by b0npriXX.1337!

STRG - ALT - ENTF, suche nach einem Task, der gerade dein Programm verwendet?

Wird schon mein eigenes Programm sein. Was sollte den irgent ein anderes Programm ständig damit wollen?
€: Ok, Problem gelöst, Filestream verwendet... Danke für die Hilfe.

 Spoiler

    Function chkInstalldir() As Boolean
        'Nochmal das Install Verzeichnis überprüfen...

        If Not Directory.Exists(installdir) Then
            result = Installer.Results.installdir_existens
            chkInstalldir = False
        Else
            Try
                Dim testfile As FileStream
                testfile = File.Create(installdir & "\acess_test")

                If File.Exists(installdir & "\acess_test") Then
                    testfile.Close()
                    Kill(installdir & "\acess_test")
                    chkInstalldir = True
                Else
                    result = Installer.Results.installdir_acess_denied
                    chkInstalldir = False
                End If
            Catch ex As Exception
                result = Installer.Results.installdir_acess_denied
                chkInstalldir = False
            End Try
        End If
        chkInstalldir = False
    End Function

[mrapc]

Probier mal das abzuändern:

If SaveFileDialog1.ShowDialog() = DialogResult.OK Then 'Savefiledialog Zeigen
'Neue Datei erstellen Anfang
Dim file As System.IO.FileStream
file = System.IO.File.Create(SaveFileDialog1.FileName)
file.Close()
'Ende

'Text in die neue Datei Schreiben
My.Computer.FileSystem.WriteAllText(SaveFileDialog 1.FileName, RichTextBox1.Text, True)
Else
MsgBox("Es wurde keine Datei Ausgewählt")
End If