Newsgroup: it.comp.appl.access
Titolo: Copiare files

Un cordiale saluto a tutti
Vorrei realizzare un db (A97) per fare periodicamente delle copie 
giornaliere di alcuni files
Provo a spiegare la mia idea:
  1.. In una form continua andrei a scrivere i nomi dei files (oppure il 
percorso completo ?) da copiare in un'altra cartella
  2.. Da un pulsante di comando posto sulla stessa vorrei lanciare un ciclo 
di tutti i record e ad ogni record far partire l'istruzione che indico di 
seguito (ovviamente sull'evento corrente andrei a copiare il nome del file o 
del path in un controllo  Mio_Controllo)
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\cartella_uno\Nomefile", "c:\cartella_due\NomeFile" & 
Format(Date, "_yyyy-mm-dd") & ".mdb"
Ho fatto alcune prove ed ho notato che l'istruzione suddetta funziona se 
scrivo nel rigo il nome del file ma non riesco a farla funzionare se al 
posto del nome file vado a mettere Me!Mio_Controllo
E' tutto sbagliato ? Esiste una possibilità oppure non si puo' fare ?
Grazie in anticipo a chiunque vorrà rispondermi
Cordialmente, Gabriele

 ha scritto nel messaggio 
news:4ddbeff5$0$18243$4faf...@reader2.news.tin.it...

a me funziona perfettamente ho creato una tabella in cui ho messo un campo 
nomefile
ho creato un record miofile (è il nome del file .mdb che ho messo nella 
c:\cartella_uno) ed ho trasformato il tuo codice in
sulla tabella ho creato una maschera e su un pulsante ho scritto
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\cartella_uno\" & Me.nomefile & ".mdb", "c:\cartella_due\" & 
Me.nomefile & Format(Date, "_yyyy-mm-dd") & ".mdb"
e funge
naturalmente se i record dovessero essere più di un uno dovresti fare un 
ciclo
ciao
Max 


Perchè usare FSO che FileCopy :
Sub FileCopy(Source As String, Destination As String)
    Membro di VBA.FileSystem[/code]
è nativo di VBA....????
@Alex

 ha scritto nel messaggio 
news:irih6l$h29$1...@news.task.gda.pl...

Grazie Max per l'interessamento e la risposta
Purtroppo nonostante innumerevoli tentativi non riesco a farla funzionare
Sembra una cosa semplice ma non riesco a capire il motivo
Mi segnala Errore di run time 53 - impossibile trovare il file. Eppure il 
file esiste
Ritentero' fino allo sfinimento. Non vorrei comunque che mi sfuggisse 
qualcosa .
Un saluto, Gabriele 

 Un saluto, Gabriele
-- 
Ciao
Geppo 

č nativo di VBA....????
ma "FileCopy" non va in errore se il file e' aperto?
@Alex
-- 
Ciao
Geppo 

 Geppo
Se copi te stesso allora si...
@Alex

 ha scritto nel messaggio 
news:4ddd4be8$0$18238$4faf...@reader2.news.tin.it...

se mi scrivi cosa hai nel codice e cosa hai nella casella di testo nomefile 
vediamo dove sta l'errore
ciao
Max 

 ha scritto nel messaggio 
news:irl63t$4u6$1...@news.task.gda.pl...

Grazie ancora Max
Ci sono riuscito. Funziona perfettamente (e mi sembra anche una buona 
soluzione)
Se posso approfittare della Vostra pazienza, avrei una ulteriore - forse 
banale - piccola richiesta.
Vorrei far aprire il Db in esecuzione automatica ad un certo orario di ogni 
giorno (ho già visto da menu avvio/esecuzione automaica ecc), ho già 
programmato tramite la macro autoexec l'apertura della form, il ciclo dei 
vari record e poi la chiusura ma non so con quale istruzione ed 
eventualmente dove andrebbe scritta si può far aprire il db in esecuzione 
automatica.
Spero di essere stato chiaro
Ringrazio di nuovo e cordialmente saluto
    Gabriele

 automatica.
da win XP ...Pannello di controllo...Prestazioni e manutenzione..operazioni 
pianificate
ciao
Daniele 

 @Alex
--
Ciao
Geppo


Si ovviamente... la mia risposta era contestualizzata...!
@Alex