Δημιουργήστε μια μεταβλητή να αντιπροσωπεύει έναν αριθμό αρχείου :
Δημ. filenum Όπως Long
Dim filenum = FreeFile 2
Ανοίξτε το αρχείο και να αποθηκεύσετε την αναφορά στο " filenum " μεταβλητή :
Dim πορεία Ως Stringpath = " C : \\ file.txt "
Ανοίξτε δρόμο για Binary Access Διαβάστε Όπως filenum
Η 3
Εκχώρηση Byte πίνακα που μπορεί να κρατήσει τα bytes στο αρχείο :
ReDim byte_array ( 1 να LOF ( filenum ) ) Όπως Byte
Η 4
Διαβάστε τα δεδομένα byte από το αρχείο στο πίνακα byte :
Get filenum , , arrData
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα