Newsgroup: it.comp.appl.access
Titolo: come copiare un file su floppy da routine evento di un pulsante?

come da oggetto.
Saluti
Giuseppe


Non sottovalutate l' utilità della guida in linea di Access (TASTO F1)
vedi comando copy
Alex De Rossi



Dall'help di access:
-----------------------------------
Il metodo CopyObject esegue l'azione CopiaOggetto in Visual Basic. Per
ulteriori informazioni sul funzionamento dell'azione e dei relativi
argomenti, vedere nella Guida l'argomento relativo all'azione.
Sintassi
DoCmd.CopyObject [databasedestinazione][, nuovonome][,
tipooggettoorigine, nomeoggettoorigine]
Il metodo CopyObject utilizza gli argomenti riportati di seguito.
Argomento	Descrizione
databasedestinazione	Espressione stringa che è il percorso e il
nome del file validi del database nel quale si desidera copiare
l'oggetto. Per selezionare il database corrente omettere questo
argomento.
Se si esegue del codice di Visual Basic contenente il metodo
CopyObject in un database di libreria e si omette questo argomento,
Microsoft Access copia l'oggetto nel database di libreria.
Nuovonome	Espressione stringa che è il nuovo nome dell'oggetto
che si desidera copiare. Per utilizzare lo stesso nome, se si effettua
la copia in un altro database, omettere questo argomento.
Tipooggettoorigine	Una delle seguenti costanti intrinseche:
acDefault (impostazione predefinita)
acForm
acMacro
acModule
acQuery
acReport
acTable
nomeoggettoorigine	Espressione stringa che è il nome valido di un
oggetto del tipo selezionato tramite l'argomento tipooggettoorigine.
Se si esegue del codice di Visual Basic contenente il metodo
CopyObject in un database di libreria, Microsoft Access cerca
l'oggetto con questo nome prima nel database di libreria, quindi nel
database corrente.
Osservazioni
Per questo metodo è necessario specificare l'argomento
databasedestinazione o l'argomento nuovonome o entrambi.
Se si omettono gli argomenti tipooggettoorigine e nomeoggettoorigine
(la costante predefinita per tipooggettoorigine è acDefault),
Microsoft Access copia l'oggetto selezionato nella finestra del
database. Per selezionare un oggetto nella finestra del database, è
possibile utilizzare l'azione SelezionaOggetto o il metodo
SelectObject con l'argomento Da finestra database impostato a Sì
(True).
Se si specificano gli argomenti tipooggettoorigine e
nomeoggettoorigine ma si omette l'argomento nuovonome o l'argomento
databasedestinazione, è necessario includere la virgola dell'argomento
nuovonome o dell'argomento databasedestinazione. Se si omette un
argomento finale, non utilizzare la virgola dopo l'ultimo argomento
specificato.
------------------------------
Esempio preso dall'help:
-------------------------
Nell'esempio riportato di seguito indica come utilizzare il metodo
CopyObject per copiare la tabella Impiegati ed assegnarle un nuovo
nome nel database corrente.
DoCmd.CopyObject, "Copia Impiegati", acTable, "Impiegati"
In alternatica usa Docmd.Transferdatabase:
(acExport invece di acImport)
------------------------------------------
Nell'esempio riportato di seguito viene indicato come importare il
report Northwind - Vendite di aprile dal database NWVendit.mdb di
Microsoft Access nel report Vendite aziendali di aprile nel database
corrente.
DoCmd.TransferDatabase acImport, "Microsoft Access", _
	"C:\DBS\NWVendit.mdb", acReport, "NW Vendite di aprile", _
	"Vendite aziendali di aprile"
Nell'esempio riportato di seguito viene indicato come collegare la
tabella Autori del database ODBC al database corrente.
DoCmd.TransferDatabase acLink, "Database ODBC", _
	"ODBC;DSN=OrigineDati1;UID=Utente2;PWD=www;LANGUAGE=italiano;"
_
	& "DATABASE=pub", acTable, "Autori", "dboAutori"


Quindi un esempio per il floppy e':
Private Sub Bottone_Click()
Dim Floppy
Floppy = "A:\"
'esempio con file copy
FileCopy "C:\tuopercorso\nomefile.mdb", Floppy
'esempio con docmd transferdatabase
'prima tabella
DoCmd.TransferDatabase acExport, , "nomefile.mdb", acTable,
"Tabella1-DaEsportare", "NuovoNomeTabella1"
'seconda tabella
DoCmd.TransferDatabase acExport, , "nomefile.mdb", acTable,
"Tabella2-DaEsportare", "NuovoNomeTabella2"
'terza tabella
DoCmd.TransferDatabase acExport, , "nomefile.mdb", acTable,
"Tabella3-DaEsportare", "NuovoNomeTabella3"
'nuovonometabellaX ovviamente crea una tabella nel database ke
esporti, dagli lo stesso nome delle tabelle che esporti
'esempio:
'DoCmd.TransferDatabase acExport, , "nomefile.mdb", acTable,
"TabellaRubrica", "TabellaRubrica"
End Sub
-----------------------------
Ciao :)

 wrote:
Correzione:
Dim Floppy
Dim NomeFileBackup
Floppy = "A:\"
NomeFileBackup = Copia_di_oggi.mdb"
'esempio con file copy
FileCopy "C:\tuopercorso\nomefile.mdb", Floppy & NomeFileBackup
Ciao, scusa! :)))