bei dem Versuch, eine mit zufälliger Zeichenfolge gefüllte Datei zu erstellen, die z.B. 2MB umfasst bin ich auf folgende Prozedur gestoßen.
Leider verstehe ich die Prozedur nicht.
Was z.B. bedeutet: "Optional Size As long = 2000" ?
Wird hier das optional übergebene Argument long derselben Variablen schon auf den Wert 2000 gesetzt ?
Wie kann ich diese oder eine ähnliche Prozedur so einsetzen, daß meinem Wunsch Rechnung getragen ist??
Vielen Dank für Eure Mühe
Gruß
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
IntegerChan = 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