Visual Basic - vytvoření souboru

[IIwetKKa]

Ahoj,
předem se omlouvám za dotaz, protože se možná někomu bude zdát jako fatální, ale nejsem nějaký pokročilý programátor. Proto jsem sem také napsala, abych se něco nového naučila a příště už to věděla.

Potřebuji ve Visual Basicu 2008 odstranit soubor a poté ho znovu vytvořit, což se mi daří.

Kód: Vybrat vše

Kill("D:\ID.txt")
IO.File.Create("D:\ID.txt")

Chyba nastane, když chci nový soubor otevřít.

Kód: Vybrat vše

FileOpen(1, "D:\ID.txt", OpenMode.Input)

Program mi vypíše chybu, že je soubor již spuštěný v jiném programu.

Jak tedy docílím toho, aby šel soubor bez problémů otevřít a zapisovat do něj?

Předem děkuji za rady.

S přáním hezkého dne
IIwetKKa

[domitea]

Celý kód?

[IIwetKKa]

To je celý kód.

[domitea]

Myslel jsem kód programu, se vším všudy i zbytkem.

[IIwetKKa]

Kód: Vybrat vše

        Kill("D:\ID.txt")
        IO.File.Create("D:\ID.txt")

        pomocnas = MaskedTextBox1.Text
        kcas_cash = pomocnas.Length
        pomocnas = pomocnas.Remove((kcas_cash - 1), 1)
        pomocnas = pomocnas.Trim
        kcas_cash = Int(pomocnas)

        pomocnas = MaskedTextBox2.Text
        kcas_casm = pomocnas.Length
        pomocnas = pomocnas.Remove((kcas_casm - 1), 1)
        pomocnas = pomocnas.Trim
        kcas_casm = Int(pomocnas)

        pomocnas = MaskedTextBox3.Text
        pomocnas = pomocnas.Trim
        kcas_cass = Int(pomocnas)

        pomocnas = MaskedTextBox4.Text
        kcasgo_cas = Int(pomocnas)

        pomocnas = ComboBox3.SelectedItem.ToString()
        If pomocnas = "sekundy" Then
            kcasgo_jednotky = 1
        Else
            If pomocnas = "minuty" Then
                kcasgo_jednotky = 2
            End If
        End If
        If kcasgo_cas >= 5 Then
            pomocnai = pomocnas.Length
            pomocnas = pomocnas.Remove((pomocnai - 1), 1)
        End If

        kcas_ID = kcas_ID + 1

        FileOpen(1, "D:\ID.txt", OpenMode.Input)
        If Not (EOF(1)) Then
            ID = LineInput(1)
        Else
            ID = 0
        End If
        FileClose(1)

tak takhle je to celý ...