Oppure

Loading
27/08/07 13:19
geko
Postato originariamente da P4p3r0g4:

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


ho postato il tuo codice. Mi disp, ma non mi crea diversi TXT.
aaa
28/08/07 7:26
P4p3r0g4
infatti. ti scrive semplicemente (se il file con quel nome esiste già;) un'altro file col numero progessivo.
se c'è file0.txt verrà fuori file1.txt
se ci sono tuttio fino a file 56.txt ti verrà fuori file57.txt
non intendevi questo?
se ti bastava copiarlo bastava che lo facessi al "close"
dico che non hai chiuso il file xkè è l'unica spiegazione che regga su quel messaggio di errore.

ps:i codici che ti ho scritto sono in pura teoria.
ho il mio solito problemino del computer con vb installato. il codice l'ho dettato al volo.
Ultima modifica effettuata da P4p3r0g4 28/08/07 7:30
aaa
28/08/07 8:37
geko
Postato originariamente da P4p3r0g4:

infatti. ti scrive semplicemente (se il file con quel nome esiste già;) un'altro file col numero progessivo.
se c'è file0.txt verrà fuori file1.txt
se ci sono tuttio fino a file 56.txt ti verrà fuori file57.txt
non intendevi questo?
se ti bastava copiarlo bastava che lo facessi al "close"
dico che non hai chiuso il file xkè è l'unica spiegazione che regga su quel messaggio di errore.

ps:i codici che ti ho scritto sono in pura teoria.
ho il mio solito problemino del computer con vb installato. il codice l'ho dettato al volo.


io ho inserito tutto ciò che mi hai postato.

A invia a B il file, "io.txt"

poi ho riprovato, ma non mi compare un numero progressivo all'infinito, per cui ti ho scritto che non và!

Riprovo e ti faccio sapere

Ho riprovato, se in B, c'è già "io.txt" non mi crea "io2.txt" etc..
Ultima modifica effettuata da geko 28/08/07 8:42
aaa
28/08/07 8:50
c.ronaldo
Controlla se haiaumentato la variabile come ti ho detto:k:
aaa
28/08/07 9:26
geko
per variabile intendi?

number = number + 1 ?

questa?

é cmq l'ho solo dichiarata così

dim number

non ho scritto, As integer o As String

come mai il:

FileCopy non mi funge? :O

Lo sto provando da ieri.

ti scrivo il codice:

dim a As String
dim b As String

a = App.Path & "\" & "\ciao"
b = App.Path & "\" & "io.txt"

if a <> "" Then
exit sub
else
mkdir a
end if

FileCopy b, a
aaa
28/08/07 9:35
c.ronaldo
Secondo me fai un imbrojo con la variabile a...
Fai direttamente il percorso con FileCopy...prova:k:
aaa
28/08/07 9:40
geko
Ora và

non avevo messo

dim number As integer

in gergo andava messo, visto che incremente un numero superiore.

Gira.

Cmq FileCopy l'ho provato mille volte non funziona.

Strano!!!
aaa
28/08/07 10:11
geko
Postato originariamente da geko:

Ora và

non avevo messo

dim number As integer

in gergo andava messo, visto che incremente un numero superiore.

Gira.

Cmq FileCopy l'ho provato mille volte non funziona.

Strano!!!


N.B.

IN LOCALE VA. IN REMOTO NO.

IN REMOTO CREA SOLO IL SUO FILE E BASTA.

NON CAPISCO IL MOTIVO.

E un'altra cosa, in remoto, quando tento di aprire il file, ovviamente aspettando qualche secondo, affinché lo scarichi del tutto, non mi apre il file. Dice che è utilizzato dal programma.

BO :-| :(
aaa