Hi Leute—
mal eine etwas andere Frage… ich suche eine Möglichkeit eine Datei im irgendeinem Wirren Inhalt zu erzeugen, die mehere hundert MB groß ist ( definierbare Größe ).
Hat jemand ne Idee?
Dank, Sascha
Eine zufällige Folge von Bytes erhältst du so:
Public Function CreateRandomFile(FName As String, Optional Size As Long = 2000)
Const BufLen = 1024
Dim Buf As String, I As Long, J As Long, K As Long, L As Long, Chan As Integer
Chan = FreeFile
Open FName For Binary As Chan
K = Size \ BufLen
For J = 0 To K
Buf = ""
L = BufLen
If J = K Then L = Size Mod BufLen
For I = 1 To L
Buf = Buf & Chr(Fix(Rnd() \* 256))
Next I
Put Chan, , Buf
Next J
Close Chan
End Function
Gruss aus dem Norden
Reinhard Kraasch