[vb 6] open numerici

[jjjjjj]

Egregi

vi pongo un dilemma per me!

devo salvare un file txt con lo stesso nome ma deve essere numerato!

Open "Austriaris.txt" For Output As #1

dovrebbe salvari come austriaris1.txt
2,3,4,5,6 etc etc

ringrazio per una cortese risposta

Saluti

[Mabi]

Se come nome del file da aprie in modalità Output scegli un file inesistente questo verrà automaticamente creato.
Quindi ti basta aprire il file con il nome che vuoi per crearlo.

[b.lory]

Dim fso As Object, f As Object     ' percorsi x i database
dim percorso as string
dim vnome as string
dim i as Integer
percorso = App.Path & "\"  
Set fso = CreateObject("Scripting.FileSystemObject")
for i = 1 to 10
vnome = vnome & i
Set f = fso.OpenTextFile(percorso & vnome, 2, True)
f.Close
next i

adattalo al tuo problema ( io ho aggiunto un ciclo x esempio)
ciao... dovrebbe funzionare.. ( non lo provato)

[b.lory]

... dimenticavo .. dopo la dichiarazione di vnome all'inizio come
valore passagli il nome del file senza numero...

vnome = "Austriaris.txt"

[vonkranz]

Originariamente inviato da jjjjjj
Egregi

vi pongo un dilemma per me!

devo salvare un file txt con lo stesso nome ma deve essere numerato!

Open "Austriaris.txt" For Output As #1

dovrebbe salvari come austriaris1.txt
2,3,4,5,6 etc etc

ringrazio per una cortese risposta

Saluti

static c as integer
c=c+1
open "Austraris"&trim(Cstr(c)) &".TXT" for output as #1
....

[jjjjjj]

grazie

[jjjjjj]

Egregi

Il problema e' stato risolto (grazie!)

ma adesso mi e' sorto un altro ,quando in un altro form apro "austriaris.txt" lui legge il 1° se ce ne sono piu' di uno come si fa' a farli leggere?

ringrazio per una cortese risposta

Saluti

[vonkranz]

static c as integer
c=c+1
open "Austraris"&trim(Cstr(c)) &".TXT" for input as #1
....

[jjjjjj]

Ti ringrazio per la tua velocita'!

Pero' gia' fatto cosi'!

pero' quando li legge dovrebbe riportare il totale dei file in una textbox
tipo text1.text=totale file
text1(j).text=c (errato?)
lui me ne calcola 1 solo!

Ringrazio per u8na cortese risposta

Saluti

[MMarzia]

perchè non continuare con l'altro?