[VB6] Scrittura array su file

[eia_93]

ciao a tutti!
devo creare questo programma(che ora vi copio sotto)..ho caricato gli array necessari ma quando do l'istruzione per creare il file che deve contenere i dati dell'array,mi segna errore=(
mi potete aiutare e spiegare anche come si fa??grazie!!!

'inserire direttamente da programma in un array 10nomi di persone 5maschili e 5femminili.
'costruire quindi il fileCLIENTIAZIENDA
'di 50record che contiene i seguenti campi: Codice cliente(numero di 4cifre con inizio da 3000);cognome e nome(va costruito con randome scegliendo un cognome e un nome dai rispettivi array);anno di inizio collaborazione con l'azienda(compreso tra 2000 e 2011);comune dove ha sede l'azienda.
i possibili comuni sono contenuti in un file COMUNI di 30record che bisogna inserire preliminarmente,e il cui tracciato record contiene 2campi:codice comune e descrizione comune).
il fileCOMUNI deve essere creato all'inizio del programma
'caricando precedentemente un array per i comuni che contiene 30sigle e il secondo array le 30descrizioni corrispondenti.quando costruiamo il file CLIENTI
'dobbiamo andare a scegliere con randome la sigle del comune nel rispettivo file e non negli array.

praticamente,come si fa a costruire un file che prende i dati dall'array?grazieee milleee

io ho caricato tutti gli array e scritto:
nome = "G:\COMUNI"
Open nome For Output As #1
For i = 1 To 30
Write #1, codicecomune(i), descomune(i)
Next i

e mi segna sbagliato il: nome = "G:\COMUNI"
come faccio?

[eziogsv]

Mah, a parte che manca un: Close #1

ma qui probabilmente semplicemente non lo avrai copiato, e che a mio parere è buona norma dare una estensione al file, non vedo problemi nel codice riportato.

Prova ad inserire un:

On Error Goto err_handler  

 'il codice

 err_handler:  

 Select Case Err.Number  

   Case 51: Msgbox "Internal error" 
   Case 52: Msgbox "Bad file name or number" 
   Case 53: Msgbox "File Not Found" 
   Case 54: Msgbox "Bad file mode" 
   Case 55: Msgbox "File Already Open" 
   Case 68: Msgbox "Device unavailable" 
   Case 70: Msgbox "Permission denied" 
   Case 71: Msgbox "Disk Not Ready" 
   Case 75: Msgbox "Path/File access error" 
   Case 76: Msgbox "Path not found" 
  
 End Select 

 Resume Next

e vedi se si capisce meglio il problema.
.

[eia_93]

Originariamente inviato da eziogsv
Mah, a parte che manca un: Close #1

ma qui probabilmente semplicemente non lo avrai copiato, e che a mio parere è buona norma dare una estensione al file, non vedo problemi nel codice riportato.

si si infatti non l'ho copiato scusa.
ma tipo non c'è qualche istruzione specifica per creare un file prendendo i dati dall'array?perchè secondo me è quello in quanto ho riguardato questo programma più volte e a mio parere è giusto..

[eziogsv]

Anche a me sembra il codice sembra corretto, per cui mi pare importante a questo punto sapere che numero di errore VB riporta, magari aggiungendo un Case Else ==> numero di errore.

[oregon]

Ma perché non riporti precisamente l'errore che ti viene dato?

[Grumpy]

Originariamente inviato da eziogsv
Mah, a parte che manca un: Close #1

ma qui probabilmente semplicemente non lo avrai copiato, e che a mio parere è buona norma dare una estensione al file, non vedo problemi nel codice riportato.

Prova ad inserire un:

On Error Goto err_handler  

 'il codice

 err_handler:  

 Select Case Err.Number  

   Case 51: Msgbox "Internal error" 
   Case 52: Msgbox "Bad file name or number" 
   Case 53: Msgbox "File Not Found" 
   Case 54: Msgbox "Bad file mode" 
   Case 55: Msgbox "File Already Open" 
   Case 68: Msgbox "Device unavailable" 
   Case 70: Msgbox "Permission denied" 
   Case 71: Msgbox "Disk Not Ready" 
   Case 75: Msgbox "Path/File access error" 
   Case 76: Msgbox "Path not found" 
  
 End Select 

 Resume Next

e vedi se si capisce meglio il problema.
.

Non c'è che dire, una tecnica di debug veramente originale.

[gibra]

Originariamente inviato da oregon
Ma perché non riporti precisamente l'errore che ti viene dato?

e DOVE si verifica?