VB6
Salve ho un problema , ho creato un programma per la gestione degli ordini lo sviluppo sul mio computer e poi invio i file sul server in una cartella condivisa , poi dopo riesco a vedere i file su quella cartella ma poi quando li devo aprire mi dice che non trova i file . Chi sa aiutarmi?
Ma invii che cosa scusa ?
Sbagliare è umano, perseverare è diabolico.
Allora sul mio pc ho creato un programma che crea ed inserisce gli ordini che poi invia sul server in una cartella condivisa , poi sto realizzando un altro programma che da altri pc collegati in rete legge i file che ho inviato sul server io col mio programma , però questo programma "lettore" vede i file ma quando cerco di aprirli mi dice che non esistono.
Che tipo di File ?
Codice per la lettura/scrittura/invio?
Sbagliare è umano, perseverare è diabolico.
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..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
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ì:e sostituisce ff ai tuoi numericodice:ff = Freefile
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
Grazie per la dritta sul freefile , per questo caso nel file c'è un solo dato ovvero il contatore degli ordini, per inviare i file al server uso il codice scritto sopra INVIA SERVER.
Volevo chiedere se per accedere ai file su un server o cartella condivisa che sia per aprirli c'è bisogno di qualche istruzione particolare.
Il nome del server è questo Phoexxxx?
Se è così la path è giusta, ma come mai copi la cartella anzichè solo il file? Potresti usare l'API CopyFile.
Ciao
Il server è giusto , cosi per comodita sposto tutti i file della cartella , cmq in pratica quando provo a fare operazioni sui file nel server li posso solo spostare , non posso salvare ne leggere da essi , qualche idea in merito al problema?
Hai i privilegi adatti?
Permessi di invio
Rispondi quotando