Newsgroup: it.comp.appl.access
Titolo: Copia file da Access

Salve a tutti
ho un problema di questo tipo che non riesco a risolvere.
Devo stampare un file di testo che mi sono creato tramite Vb utilizzando 
il comando copy di ms-dos.
Da dos per eseguire la stampa del file specificato digito "COPY 
NOMEFILE.TXT LPT1" e tutto funziona.
In Access do il comando "FileSystemObject.CopyFile "C:\PROVA.TXT", "LPT1"" 
ma mi da il messaggio d'errore "Errore di RUN-TIME 424 necessario 
oggetto". Preciso che ho provato a sostituire LPT1 con una directory di 
destinazione ma si presenta lo stesso errore nonostante abbia copiato la 
sintassi dall'help di Access.
Qualcuno mi sa dare una mano? grazie anticipatamente.
Ciao

 ha scritto nel messaggio
news:9bjp0s$d8t$1...@fe1.cs.interbusiness.it...

Se il comando dos va bene allora un
Shell "COPY NOMEFILE.TXT LPT1", vbMinimizedNoFocus
potrebbe sistemare tutto?
poco carino ma funzionale :-))
--
Claudio Tregambe

 ha scritto nel messaggio
news:9bjp0s$d8t$1...@fe1.cs.interbusiness.it...

Il comando che vuoi utilizzare (FileSystemObject) è proprio della libreria
scrrun.dll "Microsoft Scripting Runtime"; devi inserire il riferimento alla
libreria per poterlo utilizzare...
Ciao.



Ciao.
Grazie per il suggerimento, solo che non mi funziona lo stesso!
Ti spiego come ho fatto.
Da Visual Basic sul menu Strumenti - Riferimenti ho selezionato la voce "Microsoft Scripting Runtime" ed ho eseguito il codice.
Visto che non funzionava ho spostato di livello la libreria (al terzo 
posto) , senza risolvere il problema.
Mi puoi dare ulteriori spiegazioni, grazie ciao.

 ha scritto nel messaggio
news:9bk1fi$1dm$1...@fe1.cs.interbusiness.it...
DOMANDA:
Grazie per il suggerimento, solo che non mi funziona lo stesso!
Ti spiego come ho fatto.
Da Visual Basic sul menu Strumenti - Riferimenti ho selezionato la voce
"Microsoft Scripting Runtime" ed ho eseguito il codice.
Visto che non funzionava ho spostato di livello la libreria (al terzo
posto) , senza risolvere il problema.
Mi puoi dare ulteriori spiegazioni, grazie ciao.
RISPOSTA:
Prova con:
'----------
Dim oBj As FileSystemObject
Set oBj = CreateObject("Scripting.FileSystemObject")
oBj.CopyFile "C:\PROVA.TXT", "LPT1", False
Set oBj = Nothing
'----------
Ciao.

Ciao
Grazie per la spiegazione, ora mi funziona infatti riesco a stampare, però 
mi esce questo errore "Errore di run-time 53 Impossibile trovare il file".
Io potrei fare in modo che non appaia l'errore gestendolo opportunamente 
ma mi piacerebbe capire perché nonostante riesca a stampare appare 
l'errore.
Scusami per il disturbo, ciao.

 ha scritto nel messaggio
news:9bk4pk$9va$1...@fe1.cs.interbusiness.it...

RISPOSTA:
Stai inviando messaggi con Outlook Express? Se sì e comunque con qualsiasi
programma, imposta l'inserimento di un carattere particolare (tipicamente un
">" ) per il testo originale quando crei il messaggio di risposta; qesto per
evitare confusione a chi legge i nostri messaggi.
Se non inserisci l'esempio del codice che utilizzi non posso darti una mano;
pensa che a me le tre righe di codice seguenti non producono nulla, neanche
un errore!
'------------------
Sub fileSyst()
'inserire prima la libreria Microsoft Scripting Runtime
Dim oBj As FileSystemObject
Set oBj = CreateObject("Scripting.FileSystemObject")
oBj.CopyFile "d:\documenti\PROVA.TXT", "LPT1", False
Set oBj = Nothing
End Sub
'------------------
Boh! Sarà perché utilizzo NT...
Ciao.

 ha scritto nel messaggio
news:9bjp0s$d8t$1...@fe1.cs.interbusiness.it...
