Ändern der Dateizugriffsberechtigung für Textdatei beim Öffnen VB

Question

Ich möchte die Zugriffsberechtigung der Textdatei von Input auf Append ändern, je nachdem, welche Operation im Code ausgeführt werden muss. Es wird auf Input gesetzt, wenn es geöffnet wird, da die erste Operation das Lesen der Daten ist, aber wie kann ich es in Append ändern, ohne die Datei zu schließen?

Mein Code:

FileOpen(1, username & DateTime.Now.ToString(" hh-mm dd-MM-yyyy") & ".txt", OpenMode.Input) 
    'y = senArray.Count 

    For Each x In senArray 
      If LineInput(1) = senArray(x) Then 
       lineTemp = LineInput(1) 
       PrintLine(1, lineTemp & " " & j) 
       If LineInput(1) = "" Then 
        PrintLine(1, senArray(x) & " " & j) 
       End If 
      Else 
      End If 
      j += 1 
    Next 
    FileClose(1) 

Answer 1

Die Eigenschaften einer kann die Datei nicht während modifiziert werden, es ist offen, ich schlage vor, mit etwas wie File.AppendAllText oder etwas besser geeignet für das, was Sie tun müssen, die Fileopen grundsätzlich implementiert und all das Zeug aber behandelt es besser und es ist wahrscheinlich schneller.