Originariamente inviato da VALEMELY
Per leggere :

Open DEST_ORDNUM For Input As #191
Line Input #191, tm
CONTA_ORD = tm
Close #191

Per salvare:

MM = CONTA_ORD

Open DEST_ORDNUM For Output As #19
Print #19, MM
Close #19

io credo ci sia un problema nell'accesso ai file sul server , perchè non riesco ne a salvarli ne a leggerli , infatti per metterli nel server ho dovuto fare un comando di copia dalla mia cartella.

cosi li invio al server:

Public Sub INVIA_SERVER()
Dim U As Integer
Dim S, DEST As String
S = "c:\GEST_ORD1"
DEST = "\\Phoexxxx\db gestionali\GEST_ORD1"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.copyfolder S, DEST
End Sub
Molteplici errori..

Innanzitutto si deve spiegare dettagliatamente il problema in questione, postando il codice negli appositi tag CODE (senza la richiesta di altri..)

In ogni caso:

1. perchè usi 191 e 19 come identificatori di file? E se fossero "occupati" in quel momento? Si deve agire così:
codice:
ff = Freefile
e sostituisce ff ai tuoi numeri

2. con i metodi che hai usati scrivi/carichi una sola linea di testo, non mi sembra un bel modo di immagazzinare dati..

3. che codice usi per mettere i file nel Server?


Come vedi ci sono cose che devi precisare..


Ciao