Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Daten / Dateien / Speichern

Beliebigen Text speichern

Historie
02.02.2001Vergleich beschleunigt, ob Datei eventuell unverändert ist
07.05.2000Erste Version
Folgende Prozedur speichert den Inhalt einer String-Variablen in einem Rutsch in eine Datei:
Sub WriteFile(ByRef Path As String, ByRef Text As String)
  Dim FileNr As Long
  
  'Wenn Datei unverändert, dann abbrechen (ggf. weglassen):
  If FileExists(Path) Then _
      If FileLen(Path) = Len(Text) Then _
          If ReadFile(Path) = Text Then Exit Sub
  
  'Text speichern:
  FileNr = FreeFile
  Open Path For Output As #FileNr
  Print #FileNr, Text;
  Close #FileNr
End Sub

© Jost Schwider, 07.05.2000-02.02.2001 - http://vb-tec.de/speicher.htm