Una piccola annotazione:
Il ciclo DO WHILE NOT EOF(NumFile)....LOOP, non funge con i file aperti random.

Devi fare un ciclo FOR...NEXT tante volte quanti sono i record nel file.

Per saperlo, basta che dividi la lunghezza del file (LOF(NumFile)-1) per le dimensione della tua variabile Type (Len(MiaStruttura)).


...miiiii le risposte stereofoniche!!!!