URGENT!! forcer à copier un fichier!!

Question

Salut &#224; tous,
Comment forcer &#224; copier un fichier ouvert afin d'en avoir une sauvegarde ?
Explications: &#224; partir d'une BDD finalis&#233;e, je veux cr&#233;er un r&#233;pertoire "pr&#234;t-&#224;-graver" avec ce qu'il faudra mettre sur le CD. Pour cela, il me faut faire une sauvegarde de la BDD &#224; partir de laquelle le code VBA produit de r&#233;pertoire.
J'utilise la commande     FileCopy FileBDD, Me.txtAdresseAGraver.Value & "" & Nom
Un moyen pour forcer la copie? C'est assez urgent!!

cs_Fife · Answer

Salut !

Et si tu faisais juste un enregistrer sous ?

Bonne prog

Fife

fcampagne · Answer

Slt,

Avec ca, ca marche ????



        Imports System.IO

        File.Copy(source, destination)

turlututuchapopointu · Answer

Imports System.IO ==> sub ou fonction non d&#233;finie

Dis moi, Fife, quelle est la commande pour faire un enregistrer sous? SaveToFile? (si c'est &#231;a, tu peux me donner la syntaxe? Mon aide de VB merde sur &#231;a)

cs_CanisLupus · Answer

Salut,

As tu essay&#233; l'api CopyFileEx ? Voil&#224; un bout de code qui permet de copier un fichier (base de donn&#233;es ou autre) m&#234;me en cours d'utilisation :



'Dans un module, d&#233;claration de l'api

Public Declare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long

'Dans ton code :

Dim ret As Long
    
ret = CopyFileEx("C:\DirectorySource\MonFichier", "C:\DirectoryCible\MonFichier", 0&, 0&, 0&, &H2)

If ret = 0 the MsgBox "Copie r&#233;ussie" Else Msgbox "La copie a &#233;chou&#233;"

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

turlututuchapopointu · Answer

Dans quels cas la copie peut-elle &#233;chouer? Parce que c'est le cas...

turlututuchapopointu · Answer

Et o&#249; trouvez-vous tous ces API? Puis que veut dire API?

cs_CanisLupus · Answer

Explications ici :
http://www.mentalis.org/apilist/CopyFileEx.shtml

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

URGENT!! forcer à copier un fichier!!

7 réponses

Discussions similaires