*** COPIER UN FICHIER DANS 1 DOSSIER ***

Question

Salut a tous

'****Enregistrement d'un fichier de sauvgarde****
'Créer la dossier
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:\SaveGS") = False Then
Set A = fs.CreateFolder("C:\SaveGS")
A.Attributes = -1
A.Attributes = 32
A.Attributes = 2
End If
'Copie du fichier

Je voudrai faire une copie du fichier base de donnée de mon application je suis arriver a cree le dossier SaveGS  avec ce code mais j'ai pas pu faire la copie du fichier BDG.dbm dans ce dossier.
quelqu'un voudrai t il m'aider a copier le fichier dans ce dossier et me donner le code car j'ai essaier avec CopyFile mais  une message me dit que l'accée est refiser ou quelque chose comme ça .
Et merci d'avance

cboulas · Answer

Look at : FileSystemObject

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_hhafid · Answer

essaye ca .

    Set Monfichier = CreateObject("Scripting.FileSystemObject")

    ok = Monfichier.CopyFile("c:\ASMM\ASMM.Jpg", "D:\kav")



ca pourrait marcher. ben pour moi oui

* COPIER UN FICHIER DANS 1 DOSSIER *

2 réponses

Discussions similaires