Visual Basic 6 - Trasmissione File in crescente nome file

ciao a tutti

volevo porvi una domanda:

in una trasmissione file da A a B, quando in B creo il file che ho appena trasmesso in BINARIO, in che modo posso creare un file crescente.

quindi A trasmette a B..

B riceve e crea "io.txt"

se io voglio creare "io.txt", poi "io1.txt", poi "io2.txt"

come posso fare?

vi posto il CODICE


Codice:
winsock.GetData datiricevuti
If datiricevuti = "ciao" Then
Open App.Path & "\" & "io.txt" For Binary As #1
ElseIf datiricevuti = "fine" Then
Close #1
Else
Put #1, , datiricevuti
End If
Grazie

Spero di essere stato chiaro.

è semplice ti crei una variabile che tenga conto del numero di file,incrementandola ad ogni ricezione,e fai :

Open app.path & "/io" & variabilecheconta & ".txt" for....ecc...ecc

grazie. Il suggerimento è stato gradito. Ma credo di avere ancora problemi.

Ti spiego cosa ho in mente di fare:

ho A e B
A trasmette a B

A crea diversi files, "io.txt", "io2.txt", "io3.txt" etc

in ordine crescente

poi vorrei che A inviasse i files a B

B, li riceve.

Come creare i files TXT, lo so. Come trasmetterli anche. Ma non so trasmetterli in quest'ordine.

Del resto, se posso fare in questo modo ancor meglio.

Se A mi invia un file, io vorrei riceverlo in Binario e vorrei creare un ordinare crescente di questi.

Come si fa?

RICAPITOLANDO quest'ultimo discorso

A crea "io.txt" e manda a B

B riceve e scrive "io.txt"

poi..

A crea sempre un altro "io.txt" e manda a B

B riceve, ma scrive "io2.txt"

ok?

grazie

allora
1) dai al ws un codice di apertura e chiusura del file. così puoi mandare infiniti file senza che te li scriva tutti in 1
2)verifichi l'esistenza del file col dir(PATHNAME)
(pathname="c:lol" & num & ".txt"
se esiste (se ritorna correttamente) incrementi num e ripeti.

mi scriveresti perfavore in che modo..

grazie!

non ci ho capito granché!

io trasmetto un semplice file. Ora vorrei capire in che modo.

Ti posto il Codice:

A:

If datiricevuti = "file" Then ' per la foto
Open App.Path & "\" & "io.jpg" For Binary As #1 ' apre la foto in BINARIO
winsock.SendData "down" ' inizia a mandare la foto in pacchettini
DoEvents ' continua
datiricevuti = Space(4000)
For conteggio = 0 To CLng(LOF(1) / 4000)
Get #1, conteggio * CLng(4000) + 1, datiricevuti
winsock.SendData datiricevuti
DoEvents
Next conteggio
winsock.SendData "Ter" ' termina il procedimento
DoEvents
Close #1 ' chiude la foto che stava mandando
End If

B:

If datiricevuti = "down" Then
Open App.Path & "\" & "io" & number & ".txt" For Binary As #1
number = number + 1
ElseIf datiricevuti = "Ter" Then
Close #1
Else
Put #1, , datiricevuti
End If

Cosa non và?

Inoltre:

se io voglio una volta ricevuto aprire il File, non me lo fa aprire.

Del resto: mi dice che il FILE é usato dal programma!!!!

non lo hai chiuso. comunque. quel codice non mi è nuovo eh?
cmq il problema è in b

If datiricevuti = "down" Then
start:
pathtotale = App.Path & "\" & "io" & number & ".txt"
number = number + 1
if dir (pathtotale) = "io" & (number - 1) & ".txt" then goto start
Open pathtotale For Binary As #1

ElseIf datiricevuti = "Ter" Then
Close #1
Else
Put #1, , datiricevuti
End If

lo so che quel codice non ti è nuovo.
immagino.

io sto cercando di imparare dai vecchi codici a programmare e a trasmettere.

ci sono diversi manuali ma non spiegano un cavolo.

ci sentiamo via mail.

ma la mail la usi?

MARCOOOOOOOOOO

cosa non ho chiuso?