VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Historie
02.02.2001	Vergleich beschleunigt, ob Datei eventuell unverändert ist
07.05.2000	Erste 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