Thema: VB6 Hilfe
Einzelnen Beitrag anzeigen
Alt 01.03.2002, 17:25   #1
Sonic
Master
 
Registriert seit: 28.03.2000
Alter: 45
Beiträge: 691


Sonic eine Nachricht über ICQ schicken
Standard

HI!

Wenn du das ganze File einlesen willst gehts am leichtersten und am schnellsten so:

Code:
Dim lFileSize as Long
Dim File() as Binary

lFileSize = FileLen("MeinFile.mp3")
Redim File(lFileSize)
Open "MeinFile.mp3" for Binary as #1
get #1,,File
close #1
____________________________________
__________________
|»»»»»SONIC««««««|
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Sonic ist offline   Mit Zitat antworten