[VB6] Copier un répertoire

**Sytchev3** · 07/04/2006, 14h09

Je souhaite copier le contenu d'un dossier, j'ai trouvé ça mais ça ne marche pas aurais fait une erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim fso As FileSystemObject
 
numversionprec = GetChaineFichierIni("Version", "numversionprec", App.Path & "\version.ini")
 
adrvtupdate = GetChaineFichierIni("Vtupdate", "adresse", App.Path & "\version.ini")
 
 
Set fso = New FileSystemObject  
fso.CopyFolder adrvtupdate, adrvtupdate & "\Sauvegarde_version_" & numversionprec, True

Merci d'avance

**bidou** · 07/04/2006, 14h22

que vaut adrvtupdate

**Sytchev3** · 07/04/2006, 14h27

Adrvtupdate contient l'adresse du répertoire source : "D:\VTUPDATE" mais je pense savoir pourquoi cela ne marche. En fait je pense que l'on ne peut pas copier le contenu d'un répertoire et le coller à l'intérieur de ce même répertoire. Je crois qu'il faut le copier ailleurs puis le déplacer.

Qu'en pensez vous ???

**Megaxel** · 07/04/2006, 14h51

Je suis comme Bidou, il m'inquiète, ton adrvzdsjduhrUpdate...
Tu veux vérifier la valeur qu'il a au moment de la copie?
Et au passage, c'est quoi, le message d'erreur?

**jmfmarques** · 07/04/2006, 14h53

En fait je pense que l'on ne peut pas copier le contenu d'un répertoire et le coller à l'intérieur de ce même répertoire

mutatis mutandi !
sinon : répertoire jamais "arrêté" !

**Sytchev3** · 07/04/2006, 15h00

adrvtupdate contient une chaine de caractère : "D:\VTUDATE" cette adresse est récupérée dans un fichier ini, il n'y a rien d'extraordianire de ce point de vu la.

Par contre je n'ai pas trop compris ce qu'à voulu dire jmfmarques

**Megaxel** · 07/04/2006, 15h03

Il veut dire qu'il est d'accord avec toi, pour la copie dans même répertoire.
Par contre, on n'a toujours pas le message d'erreur.

**Sytchev3** · 07/04/2006, 15h04

Pardon j'avais oublié, il me met comme message d'erreur chemin d'accès introuvable.

**jmfmarques** · 07/04/2006, 15h05

Par contre je n'ai pas trop compris ce qu'à voulu dire jmfmarques

Essayes donc d'imaginer que tu tentes de tirer une photographie du dernier état d'un objet qui change de forme chaque fois et tant que l'objectif de ton appareil est dirigé vers lui !

edit : et, pour faire suite à la précision (erreur) apportée : Windows ne permettant pas, bien évidemment, une telle tentative, il déclare le répertoire inaccessible !

**Megaxel** · 07/04/2006, 15h07

Heum...
Et il existe, le répertoire "D:\VTUDATE\Sauvegarde_version_***" ?
Parce que je ne sais pas si fso.CopyFolder sait le créer s'il n'existe pas.

**Sytchev3** · 07/04/2006, 15h42

Je ne parvient toujours pas à copier mon réperoire malgré les solutions apportées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
numversionprec = GetChaineFichierIni("Version", "numversionprec", App.Path & "\version.ini")
 
adrvtupdate = GetChaineFichierIni("Vtupdate", "adresse", App.Path & "\version.ini")
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossiersource = fso.GetFolder(adrvtupdate)
 
adrvtupdate = adrvtupdate & "\Sauvegarde_version_" & numversionprec
 
dossiersource.Copy (adrvtupdate)
 
Set dossiersource = Nothing
Set fso = Nothing

**Sytchev3** · 07/04/2006, 15h47

Je vais réexpliquer mon problème : Je souhaite copier tout un répertoire et le coller dans ce même répertoire.

**jmfmarques** · 07/04/2006, 15h58

Je souhaite copier tout un répertoire et le coller dans ce même répertoire.

Bis repetita
Alors et pour être du côté protégé de la barrière :
créer un répertoire tremplin - copier dans ce répertoire tremplin - changer de répertoire (chdir par précaution complémentaire) - coller ce répertoire tremplin dans le répertoire originel .
Dans ces manoeuvres : ne pas hésiter à utiliser On error Resume Next !

**Megaxel** · 07/04/2006, 16h00

Si je ne m'abuse, tu le copie dans un sous-répertoire, c'est bien ça?
Et tu as vérifié que le chemin de destination que tu donnes existe? Parce que, comme je te l'ai dit plus haut, je me demande si tu ne dois pas le créer avant de pouvoir y copier le premier.

**Sytchev3** · 07/04/2006, 16h01

Mais pourquoi manuellement c'est à dire avec Windows on peut réaliser cete action ????

**Megaxel** · 07/04/2006, 16h03

Et puis jmf a raison. Fais le à la main, dans un explorateur de fichiers:
Tu copies un répertoire, puis dans ce répertoire, tu crées un sous-repertoire, et tu y colles le répertoire.
Boum: message d'erreur...
Tu dois passer par un répertoire intermédiaire.

**Sytchev3** · 07/04/2006, 16h04

J'ai même quasiment réussi à le faire sous MSDOS avec un Xcopy le soucis c'est qu'il ne me copie que les fichiers et pas les répertoires.

**Sytchev3** · 07/04/2006, 16h05

Je suis totalement d'accord avec vous mais si cela est possible sous MSDOS et Windows pourquoi cela ne le serait pas sous VB ???

**jmfmarques** · 07/04/2006, 16h05

Mais pourquoi manuellement c'est à dire avec Windows on peut réaliser cete action ????

Parceque Windows ne procède pas de la même façon : Il fait un "cliché" le prend en mémoire, et "injecte" ensuite ... (pas du tout la même chose !)
Si tu veux, tu peux faire comme windows, ou plutôt :l'imiter ! C'est celà, l'uitilisation du "tremplin" (erzatz de mémoire) !

Moi, j'arrête là ....