Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Copie d'un Dossier

Copie d'un Dossier

5 réponses
Avatar
Alain TEYSSEDRE
bonjour

Je cherche à copier un dossier et tout son contenu dans un emplacement

Mon pb.

Si je fait Fso_Folder.Copy (strDocsPath) ==> je ne copie que le contenu du
dossier
Si je fait Fso_Folder.ParentFolder.Copy (strDocsPath) => je copie
tous les fichier et dossiers inclus dans le dossier Parent

Comment faire pour récupérer uniquement le dossier et tout son contenu


Dim fso As New filesystemobject
Dim Fso_Folder As Folder
Dim strFolder As String
'strFolder = chaine qui contient le chemin complet de mon dossier
'strDocsPath = chaine qui contient le chemin de destination de mon
dossier
Set Fso_Folder = fso.GetFolder(strFolder)
Fso_Folder.Copy (strDocsPath)

merci pour votre aide

@+
Alain
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
J-Pierre
Salut Alain,

Si je comprends bien, tu dois d'abord créer le dossier de destination.

J-Pierre

"Alain TEYSSEDRE" a écrit dans le message de news:
bonjour

Je cherche à copier un dossier et tout son contenu dans un emplacement

Mon pb.

Si je fait Fso_Folder.Copy (strDocsPath) ==> je ne copie que le contenu du
dossier
Si je fait Fso_Folder.ParentFolder.Copy (strDocsPath) => je copie
tous les fichier et dossiers inclus dans le dossier Parent

Comment faire pour récupérer uniquement le dossier et tout son contenu


Dim fso As New filesystemobject
Dim Fso_Folder As Folder
Dim strFolder As String
'strFolder = chaine qui contient le chemin complet de mon dossier
'strDocsPath = chaine qui contient le chemin de destination de mon
dossier
Set Fso_Folder = fso.GetFolder(strFolder)
Fso_Folder.Copy (strDocsPath)

merci pour votre aide

@+
Alain




Avatar
Alain TEYSSEDRE
Bonsoir Jean Pierre

Effectivement je pense qu'il y a 2 possibilités:
- soit j'arrive à "sélectionner le dossier et tout son contenu" et je le
copie
- soit je crée un dossier qui reprend le nom du dossier d'origine et je
copie
tous les élément à l'intérieur

@+
Alain


"J-Pierre" a écrit dans le message de
news:%233eQ%
Salut Alain,

Si je comprends bien, tu dois d'abord créer le dossier de destination.

J-Pierre

"Alain TEYSSEDRE" a écrit dans le
message de news:

bonjour

Je cherche à copier un dossier et tout son contenu dans un emplacement

Mon pb.

Si je fait Fso_Folder.Copy (strDocsPath) ==> je ne copie que le contenu
du


dossier
Si je fait Fso_Folder.ParentFolder.Copy (strDocsPath) => je copie
tous les fichier et dossiers inclus dans le dossier Parent

Comment faire pour récupérer uniquement le dossier et tout son contenu


Dim fso As New filesystemobject
Dim Fso_Folder As Folder
Dim strFolder As String
'strFolder = chaine qui contient le chemin complet de mon
dossier


'strDocsPath = chaine qui contient le chemin de destination de
mon


dossier
Set Fso_Folder = fso.GetFolder(strFolder)
Fso_Folder.Copy (strDocsPath)

merci pour votre aide

@+
Alain








Avatar
J-Pierre
Alain,

Je viens de relire la doc, je crois qu'il faut créer le dossier (1 ligne de code !!!!!!! fainéant :-))))) et utiliser la méthode
CopyFolder qui copie de manière récursive.

J-Pierre

"Alain TEYSSEDRE" a écrit dans le message de news:
Bonsoir Jean Pierre

Effectivement je pense qu'il y a 2 possibilités:
- soit j'arrive à "sélectionner le dossier et tout son contenu" et je le
copie
- soit je crée un dossier qui reprend le nom du dossier d'origine et je
copie
tous les élément à l'intérieur

@+
Alain


"J-Pierre" a écrit dans le message de
news:%233eQ%
Salut Alain,

Si je comprends bien, tu dois d'abord créer le dossier de destination.

J-Pierre

"Alain TEYSSEDRE" a écrit dans le
message de news:

bonjour

Je cherche à copier un dossier et tout son contenu dans un emplacement

Mon pb.

Si je fait Fso_Folder.Copy (strDocsPath) ==> je ne copie que le contenu
du


dossier
Si je fait Fso_Folder.ParentFolder.Copy (strDocsPath) => je copie
tous les fichier et dossiers inclus dans le dossier Parent

Comment faire pour récupérer uniquement le dossier et tout son contenu


Dim fso As New filesystemobject
Dim Fso_Folder As Folder
Dim strFolder As String
'strFolder = chaine qui contient le chemin complet de mon
dossier


'strDocsPath = chaine qui contient le chemin de destination de
mon


dossier
Set Fso_Folder = fso.GetFolder(strFolder)
Fso_Folder.Copy (strDocsPath)

merci pour votre aide

@+
Alain












Avatar
Alain TEYSSEDRE
Bonsoir jean Pierre

Quel est le code pour créer le dossier ? => parceque j'ai essayé en vain

cdlt
Alain
"J-Pierre" a écrit dans le message de
news:eZs3$
Alain,

Je viens de relire la doc, je crois qu'il faut créer le dossier (1 ligne
de code !!!!!!! fainéant :-))))) et utiliser la méthode

CopyFolder qui copie de manière récursive.

J-Pierre

"Alain TEYSSEDRE" a écrit dans le
message de news:

Bonsoir Jean Pierre

Effectivement je pense qu'il y a 2 possibilités:
- soit j'arrive à "sélectionner le dossier et tout son contenu" et
je le


copie
- soit je crée un dossier qui reprend le nom du dossier d'origine et
je


copie
tous les élément à l'intérieur

@+
Alain


"J-Pierre" a écrit dans le message
de


news:%233eQ%
Salut Alain,

Si je comprends bien, tu dois d'abord créer le dossier de destination.

J-Pierre

"Alain TEYSSEDRE" a écrit dans
le



message de news:
bonjour

Je cherche à copier un dossier et tout son contenu dans un
emplacement





Mon pb.

Si je fait Fso_Folder.Copy (strDocsPath) ==> je ne copie que le
contenu




du
dossier
Si je fait Fso_Folder.ParentFolder.Copy (strDocsPath) => je copie
tous les fichier et dossiers inclus dans le dossier Parent

Comment faire pour récupérer uniquement le dossier et tout son
contenu






Dim fso As New filesystemobject
Dim Fso_Folder As Folder
Dim strFolder As String
'strFolder = chaine qui contient le chemin complet de mon
dossier


'strDocsPath = chaine qui contient le chemin de destination
de




mon
dossier
Set Fso_Folder = fso.GetFolder(strFolder)
Fso_Folder.Copy (strDocsPath)

merci pour votre aide

@+
Alain
















Avatar
Alain TEYSSEDRE
merci Jean Pierre

ça y est j'ai trouvé ...en fait je cherchais à faire compliqué la ou c'est
simple ....

bonne soirée
@+

Alain




"Alain TEYSSEDRE" a écrit dans le
message de news:
Bonsoir jean Pierre

Quel est le code pour créer le dossier ? => parceque j'ai essayé en vain

cdlt
Alain
"J-Pierre" a écrit dans le message de
news:eZs3$
Alain,

Je viens de relire la doc, je crois qu'il faut créer le dossier (1 ligne
de code !!!!!!! fainéant :-))))) et utiliser la méthode

CopyFolder qui copie de manière récursive.

J-Pierre

"Alain TEYSSEDRE" a écrit dans
le


message de news:
Bonsoir Jean Pierre

Effectivement je pense qu'il y a 2 possibilités:
- soit j'arrive à "sélectionner le dossier et tout son contenu" et
je le


copie
- soit je crée un dossier qui reprend le nom du dossier d'origine
et



je
copie
tous les élément à l'intérieur

@+
Alain


"J-Pierre" a écrit dans le
message



de
news:%233eQ%
Salut Alain,

Si je comprends bien, tu dois d'abord créer le dossier de
destination.





J-Pierre

"Alain TEYSSEDRE" a écrit
dans




le
message de news:
bonjour

Je cherche à copier un dossier et tout son contenu dans un
emplacement





Mon pb.

Si je fait Fso_Folder.Copy (strDocsPath) ==> je ne copie que le
contenu




du
dossier
Si je fait Fso_Folder.ParentFolder.Copy (strDocsPath) => je copie
tous les fichier et dossiers inclus dans le dossier Parent

Comment faire pour récupérer uniquement le dossier et tout son
contenu






Dim fso As New filesystemobject
Dim Fso_Folder As Folder
Dim strFolder As String
'strFolder = chaine qui contient le chemin complet de mon
dossier


'strDocsPath = chaine qui contient le chemin de
destination





de
mon
dossier
Set Fso_Folder = fso.GetFolder(strFolder)
Fso_Folder.Copy (strDocsPath)

merci pour votre aide

@+
Alain