|
'Per aprire un file in modo binario:
Open "pippo.xxx" For Binary Access Read Write As 1 'Per leggere un blocco di N bytes a partire dalla posizione P (P=0 sta per inizio file, N puo' essere anche 1 solo byte) leggi$ = String$(N, 0) Get #1, P+1, leggi$ 'Per scrivere un blocco di bytes alla posizione P scrivi$ = "ABCDEFGH" Put #1, P+1, scrivi$ 'Al momento di chiudere il lavoro devi fare: Close 1 'Se vuoi aprire il file in sola lettura '(ad esempio se il file si trova su CD-ROM): Open "pippo.xxx" For Binary Access Read As 1 |