File Vb 6

[viviana75]

'AFile = Dir$("C:\file\*.txt")
'r = 1
'Do While AFile <> ""
' arrfile(r) = AFile
' r = r + 1
' AFile = Dir$
'Loop

Questo scorcio di codice è stato usato per prelevare tutti i file contenuti in una directory.
Fino qui tutto bene, ma successivamente quando attraverso un ciclo
richiamo il nome del file, mi dice che è impossibile trovare il file.
mentre se sostituisco la variabile dove appoggio il nome del file con il nome vero e propio tutto funziona.

'''''''
AFile = Dir$("C:\file\*.txt")
Do While AFile <> ""
c = Mid(AFile, 1, 12)
Debug.Print c
Open "C:\file\c" For Input As #numfile

'Attraverso il debug la variabile (c) contiene il nome del file ma non funziona.
mentre se scrivo:
Open "C:\file\pippo.txt" For Input As #numfile

Questo funziona.Mi potete aiutare.
Grazie
Andrea
''''''''

[CAINO76]

Hai scritto proprio Open "C:\file\c" For Input As #numfile

dove c è il nomeFile ??

Se cosi', devi concatenare la stringa con la variabile in questo modo

Open "C:\file\" & c For Input As #numfile


Bye !

[viviana75]

Ti rispondo per due motivi.
Sono riuscito con il tuo suggerimento a risolvere il problema, e quindi ti volevo ringraziare.

Il secondo (non vorrei approfittare),sai come prelevare (oggetto inet)da visual basic.
Io non lo conosco, non so neanche se chiama cosi.
Mi dovrebbe servire per scaricarmi i famosi file da online in una cartella.
Grazie.

[Boldan]

Per scaricare i file da un sito puoi usare il controllo Inet.
Ne abbiamo parlato in alcuni 3d tra cui questo:

http://forum.html.it/forum/showthrea...&highlight=FTP

Prova a vedere se ti può essere utile, in caso non ti sia chiaro qualcosa ci risentiamo.

Ciao!!

[CAINO76]

Prima di tutto devi caricare l'oggetto Inet:

1 Vai nel menu' Progetto
2 Componenti
3 seleziona Microsoft Internet Transfer Component
4 Applica
5 Inserisci l'oggetto nella Form
6 cerca di Utilizzarlo !!!!

Bye !!