Sub ReadTextFileTest()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, g, s As String, t As String, Datei1 As String, Datei2 As String
Set fs = CreateObject("Scripting.FileSystemObject")
Datei1 = "D:\Pfad\Testbild.JPG"
Datei2 = "D:\Pfad\Testbild2.JPG"
Set f = fs.OpenTextFile(Datei1, ForReading, False, TristateFalse)
s = f.readall
f.Close
WriteToFile Datei2, s
Set g = fs.OpenTextFile(Datei2, ForReading, False, TristateFalse)
t = g.readall
g.Close
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) <> Asc(Mid(t, i, 1)) Then
Debug.Print "Stelle " & i & ": " & Asc(Mid(s, i, 1)) & " <> " & Asc(Mid(t, i, 1))
End If
Next i
MsgBox "Fertig"
End Sub
Sub WriteToFile(Datei As String, s As String)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(Datei, ForWriting, True, TristateUseDefault)
f.Write s
f.Close
End Sub
Sub Schreibtest2(Datei As String, s As String)
Open Datei For Binary Access Write As #1
Put #1, , s
Close #1
End Sub