Bonjour
Sous ACCESS 2003
J’utilise ceci pour copier mes images dans un nouveau dossier avant de les
afficher par liens mais je ne sais pas comment faire pour empêcher
l’écrasement d’un premier fichier du même nom et ainsi proposer la boite pour
changement de nom du fichier à copier quand cela arrive.
Merci de votre aide et bonne journée.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere [MVP]
Bonjour
Pour copier les fichiers d'un répertoire vers un autre, tu as une piste ici : http://access.jessy.free.fr/index.html?Menu=7&Page=CopyFileDir
Ensuite, tu peux remplacer la ligne : FileCopy strDir & "" & strFile, strDirDest & "" & strFile par : CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 0 'pour écraser le fichier si existe ou : CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 1 'annuler la copie si le fichier cible existe
En plus il te faut rajouter dans un module la déclaration suivante :
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"jfd" a écrit dans le message de news:
Bonjour Sous ACCESS 2003 J'utilise ceci pour copier mes images dans un nouveau dossier avant de les afficher par liens mais je ne sais pas comment faire pour empêcher l'écrasement d'un premier fichier du même nom et ainsi proposer la boite pour changement de nom du fichier à copier quand cela arrive. Merci de votre aide et bonne journée.
Pour copier les fichiers d'un répertoire vers un autre, tu as une piste ici
:
http://access.jessy.free.fr/index.html?Menu=7&Page=CopyFileDir
Ensuite, tu peux remplacer la ligne :
FileCopy strDir & "" & strFile, strDirDest & "" & strFile
par :
CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 0 'pour
écraser le fichier si existe
ou :
CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 1 'annuler
la copie si le fichier cible existe
En plus il te faut rajouter dans un module la déclaration suivante :
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"jfd" <jfd@discussions.microsoft.com> a écrit dans le message de news:
76CB34F0-697F-4809-9A51-BECEC10A31FB@microsoft.com...
Bonjour
Sous ACCESS 2003
J'utilise ceci pour copier mes images dans un nouveau dossier avant de les
afficher par liens mais je ne sais pas comment faire pour empêcher
l'écrasement d'un premier fichier du même nom et ainsi proposer la boite
pour
changement de nom du fichier à copier quand cela arrive.
Merci de votre aide et bonne journée.
Pour copier les fichiers d'un répertoire vers un autre, tu as une piste ici : http://access.jessy.free.fr/index.html?Menu=7&Page=CopyFileDir
Ensuite, tu peux remplacer la ligne : FileCopy strDir & "" & strFile, strDirDest & "" & strFile par : CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 0 'pour écraser le fichier si existe ou : CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 1 'annuler la copie si le fichier cible existe
En plus il te faut rajouter dans un module la déclaration suivante :
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"jfd" a écrit dans le message de news:
Bonjour Sous ACCESS 2003 J'utilise ceci pour copier mes images dans un nouveau dossier avant de les afficher par liens mais je ne sais pas comment faire pour empêcher l'écrasement d'un premier fichier du même nom et ainsi proposer la boite pour changement de nom du fichier à copier quand cela arrive. Merci de votre aide et bonne journée.
Bonsoir Un grand merci pour cette réponse, je vais regarder tout cela et essayer de mettre en place.
Bonjour
Pour copier les fichiers d'un répertoire vers un autre, tu as une piste ici : http://access.jessy.free.fr/index.html?Menu=7&Page=CopyFileDir
Ensuite, tu peux remplacer la ligne : FileCopy strDir & "" & strFile, strDirDest & "" & strFile par : CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 0 'pour écraser le fichier si existe ou : CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 1 'annuler la copie si le fichier cible existe
En plus il te faut rajouter dans un module la déclaration suivante :
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"jfd" a écrit dans le message de news:
Bonjour Sous ACCESS 2003 J'utilise ceci pour copier mes images dans un nouveau dossier avant de les afficher par liens mais je ne sais pas comment faire pour empêcher l'écrasement d'un premier fichier du même nom et ainsi proposer la boite pour changement de nom du fichier à copier quand cela arrive. Merci de votre aide et bonne journée.
Bonsoir
Un grand merci pour cette réponse, je vais regarder tout cela et essayer de
mettre en place.
Bonjour
Pour copier les fichiers d'un répertoire vers un autre, tu as une piste ici
:
http://access.jessy.free.fr/index.html?Menu=7&Page=CopyFileDir
Ensuite, tu peux remplacer la ligne :
FileCopy strDir & "" & strFile, strDirDest & "" & strFile
par :
CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 0 'pour
écraser le fichier si existe
ou :
CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 1 'annuler
la copie si le fichier cible existe
En plus il te faut rajouter dans un module la déclaration suivante :
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"jfd" <jfd@discussions.microsoft.com> a écrit dans le message de news:
76CB34F0-697F-4809-9A51-BECEC10A31FB@microsoft.com...
Bonjour
Sous ACCESS 2003
J'utilise ceci pour copier mes images dans un nouveau dossier avant de les
afficher par liens mais je ne sais pas comment faire pour empêcher
l'écrasement d'un premier fichier du même nom et ainsi proposer la boite
pour
changement de nom du fichier à copier quand cela arrive.
Merci de votre aide et bonne journée.
Bonsoir Un grand merci pour cette réponse, je vais regarder tout cela et essayer de mettre en place.
Bonjour
Pour copier les fichiers d'un répertoire vers un autre, tu as une piste ici : http://access.jessy.free.fr/index.html?Menu=7&Page=CopyFileDir
Ensuite, tu peux remplacer la ligne : FileCopy strDir & "" & strFile, strDirDest & "" & strFile par : CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 0 'pour écraser le fichier si existe ou : CopyFile strDir & "" & strFile, strDirDest & "" & strFile, 1 'annuler la copie si le fichier cible existe
En plus il te faut rajouter dans un module la déclaration suivante :
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"jfd" a écrit dans le message de news:
Bonjour Sous ACCESS 2003 J'utilise ceci pour copier mes images dans un nouveau dossier avant de les afficher par liens mais je ne sais pas comment faire pour empêcher l'écrasement d'un premier fichier du même nom et ainsi proposer la boite pour changement de nom du fichier à copier quand cela arrive. Merci de votre aide et bonne journée.