Visual Basic 6 - Trasmissione File in crescente nome file

deve esserci qualche errore nella trasmissione del codice di chiusura. controlla le maiuscole/minuscole ecc..
se c'è un errore li è logico che ti crei un solo file(crede che sia sempre lo stesso) e che che non si apre (perchè non è stato ancora chiuso dal programma).

credo che non ce ne siano.

Ti posto il Codice

A:

If Mid(datiricevuti, 1, 2) = "io" Then
Open App.Path & "\" & "io.jpg" For Binary As #1
Server.SendData "down"
DoEvents
datiricevuti = Space(4000)
For conteggio = 0 To CLng(LOF(1) / 4000)
Get #1, conteggio * CLng(4000) + 1, datiricevuti
Server.SendData datiricevuti
DoEvents
Next conteggio
Server.SendData "Ter"
DoEvents
Close #1
End If

Prima avevo la stessa cosa, senza il MID
avevo semplicemente un

If Datiricevuti = "io"

B:

If Mid(datiricevuti, 1, 4) = "down" Then
start:
pathtotale = App.Path & "\" & "jpg " & 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

anche in quest esempio prima avevo un semplice

If datiricevuti e non Mid

Io non trovo nessun errore.

Nella trasmissione parlando!

Non capisco il perché Errori non ce ne siano in Locale, ma solo in remoto

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

Ho provato anche in questo modo.

Mi dice che il file è utilizzato dal programma per cui non posso farci nulla. Ne aprirlo e né niente