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