fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Dateien in den Arbeispeicher laden (OMEGA)

Uploader:	Volta
Datum/Zeit:	07.11.2007 20:32:28

'Dateien ohne Aufwand in den Speicher laden!



Dim As Integer ff = FreeFile

Open "C:\SCANDISK.LOG" For Binary Access Read As #ff

  Dim As Integer laenge = Lof(ff)

  Dim As UByte buffer ( 0 To laenge-1)

  Get #ff,,buffer() ' holt aus der Datei jedes einzene Byte

Close #ff

Print "verdisch..."



' ein kleiner Beweiss das es funzt ;)

For i As Integer = 0 To laenge-1

  Print Chr(buffer(i));

  If InKey = Chr(27) Then Exit For

Next

Sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.