Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Copy file

4 réponses
Avatar
Bruno Frisque
Le help donne le code suivant : (A2k)
FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"

J'ai donc fait : FileSystemObject.CopyFile "c:\data\MonFichier.mdb",
"c:\data\MaCopie.mdb"

Quand on compile il surligne FileSystemObject avec erreur 'Variable not
defined' ....

Que faut-il mettre à la place de FileSystemObject ?? avant copyfile ?
(j'ai à peu près tout essayé ..)

D'avance merci

4 réponses

Avatar
Raymond [mvp]
Bonsoir.

Il faut déclarer un objet FileSystemObject après avoir coché la référence
Microsoft scripting Runtime.
des exemples se trouvent sur les pages :
http://access.seneque.free.fr/filesystemobjects.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bruno Frisque" a écrit dans le message de news:

Le help donne le code suivant : (A2k)
FileSystemObject.CopyFile "c:mydocumentsletters*.doc", "c:tempfolder"

J'ai donc fait : FileSystemObject.CopyFile "c:dataMonFichier.mdb",
"c:dataMaCopie.mdb"

Quand on compile il surligne FileSystemObject avec erreur 'Variable not
defined' ....

Que faut-il mettre à la place de FileSystemObject ?? avant copyfile ?
(j'ai à peu près tout essayé ..)

D'avance merci






Avatar
Bruno Frisque
Tout grand merci.
Je vais rapidement essayer tout çà
Merci encore


"Raymond [mvp]" wrote in message
news:
Bonsoir.

Il faut déclarer un objet FileSystemObject après avoir coché la référence
Microsoft scripting Runtime.
des exemples se trouvent sur les pages :
http://access.seneque.free.fr/filesystemobjects.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bruno Frisque" a écrit dans le message de news:

Le help donne le code suivant : (A2k)
FileSystemObject.CopyFile "c:mydocumentsletters*.doc",
"c:tempfolder"



J'ai donc fait : FileSystemObject.CopyFile "c:dataMonFichier.mdb",
"c:dataMaCopie.mdb"

Quand on compile il surligne FileSystemObject avec erreur 'Variable not
defined' ....

Que faut-il mettre à la place de FileSystemObject ?? avant copyfile ?
(j'ai à peu près tout essayé ..)

D'avance merci











Avatar
Bruno Frisque
Hélas !!
Je dois "louper" quelque chose ....

Dans le form j'ai mis :

MsgBox FileCopy("c:dataEtrangers.mdb", "c:datacopyEtrangers.mdb",
False)

En cliquant le bouton le message apparait en disant 'false'

Dans un nouveau Mod1 j'ai mis :

Function FileCopy(PathName As String, NewPathName As String, Optional
OverWrite As Boolean = True) As Boolean

Dim fso As New FileSystemObject
Dim Fso_File As File
FileCopy = False
Debug.Print "passing function FileCopy"
If Not fso.FileExists(PathName) Then Exit Function
If (fso.FileExists(NewPathName)) And (Not OverWrite) Then Exit Function
Set Fso_File = fso.GetFile(PathName)
Fso_File.Copy NewPathName, OverWrite
FileCopy = True


'FileSystemObject.CopyFile "c:datala lEtrangers.mdb",
"c:dataMyDB_ET.mdb"
End Function


Mais rien ne se passe ....
(la ref MS scripting runtime est bien cochée)

Un petit coup de pouce serait génial.

D'avance tout grand merci.





"Raymond [mvp]" wrote in message
news:
Bonsoir.

Il faut déclarer un objet FileSystemObject après avoir coché la référence
Microsoft scripting Runtime.
des exemples se trouvent sur les pages :
http://access.seneque.free.fr/filesystemobjects.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bruno Frisque" a écrit dans le message de news:

Le help donne le code suivant : (A2k)
FileSystemObject.CopyFile "c:mydocumentsletters*.doc",
"c:tempfolder"



J'ai donc fait : FileSystemObject.CopyFile "c:dataMonFichier.mdb",
"c:dataMaCopie.mdb"

Quand on compile il surligne FileSystemObject avec erreur 'Variable not
defined' ....

Que faut-il mettre à la place de FileSystemObject ?? avant copyfile ?
(j'ai à peu près tout essayé ..)

D'avance merci











Avatar
Bruno Frisque
SORRY SORRY !!!
J'avais simplement mis un mauvais nom de fichier ......
avec
MsgBox FileCopy("c:dataEtrangers_BE.mdb", "c:datacopyEtrangers.mdb",
il affiche TRUE et copie le fichier !!

Tout grand merci Raymond !







"Bruno Frisque" wrote in message
news:
Hélas !!
Je dois "louper" quelque chose ....

Dans le form j'ai mis :

MsgBox FileCopy("c:dataEtrangers.mdb", "c:datacopyEtrangers.mdb",
False)

En cliquant le bouton le message apparait en disant 'false'

Dans un nouveau Mod1 j'ai mis :

Function FileCopy(PathName As String, NewPathName As String, Optional
OverWrite As Boolean = True) As Boolean

Dim fso As New FileSystemObject
Dim Fso_File As File
FileCopy = False
Debug.Print "passing function FileCopy"
If Not fso.FileExists(PathName) Then Exit Function
If (fso.FileExists(NewPathName)) And (Not OverWrite) Then Exit
Function

Set Fso_File = fso.GetFile(PathName)
Fso_File.Copy NewPathName, OverWrite
FileCopy = True


'FileSystemObject.CopyFile "c:datala lEtrangers.mdb",
"c:dataMyDB_ET.mdb"
End Function


Mais rien ne se passe ....
(la ref MS scripting runtime est bien cochée)

Un petit coup de pouce serait génial.

D'avance tout grand merci.





"Raymond [mvp]" wrote in message
news:
Bonsoir.

Il faut déclarer un objet FileSystemObject après avoir coché la
référence


Microsoft scripting Runtime.
des exemples se trouvent sur les pages :
http://access.seneque.free.fr/filesystemobjects.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bruno Frisque" a écrit dans le message de news:

Le help donne le code suivant : (A2k)
FileSystemObject.CopyFile "c:mydocumentsletters*.doc",
"c:tempfolder"



J'ai donc fait : FileSystemObject.CopyFile "c:dataMonFichier.mdb",
"c:dataMaCopie.mdb"

Quand on compile il surligne FileSystemObject avec erreur 'Variable
not



defined' ....

Que faut-il mettre à la place de FileSystemObject ?? avant copyfile ?
(j'ai à peu près tout essayé ..)

D'avance merci