[Access] Gestione file

[Ranma2]

Devo in qualche modo poter al clic di un pulsante su di una maschera, in sequenza:

-creare una cartella con il nome del valore di una editbox
-copiare un file prestabilito dentro quella cartella
trasferire un database (risolto)

Chi mi da una mano?

[Ranma2]

Originariamente inviato da Ranma2
Devo in qualche modo poter al clic di un pulsante su di una maschera, in sequenza:

-creare una cartella con il nome del valore di una editbox (risolto)
-copiare un file prestabilito dentro quella cartella
trasferire un database (risolto)

Chi mi da una mano?

[Ranma2]

Originariamente inviato da Ranma2
Devo in qualche modo poter al clic di un pulsante su di una maschera, in sequenza:

-creare una cartella con il nome del valore di una editbox (risolto)
-copiare un file prestabilito dentro quella cartella (risolto)
trasferire un database (risolto)

Chi mi da una mano?

C'è l'ho fatta. Se dovesse servire a qualcuno

Private Sub Comando0_Click()
' ----------------- Creo cartella
Dim fs
'creazione istanza del File Scripting Object
Set fs = CreateObject("Scripting.FileSystemObject")
'controllo esistenza cartella
If fs.FolderExists([Forms]![Maschera]![CopiaFile]) = False Then
'creazione cartella
fs.CreateFolder ([Forms]![Maschera]![CopiaFile])
End If
'copia del file
fs.Copyfile "1317590.png", [Forms]![Maschera]![CopiaFile] & "\", True
'chiusura e annullamento dell'istanza
Set fs = Nothing
' ------------------------ Fine creo cartella
End Sub