Eh oui encore une question sur ces satanés FSO....et toujours à cause du même problème...(même source de pb)
 
Je dois recopier entierement un CD sur disque dur...
 
P.ex.:
FSO.CopyFolder "e:\","C:\Tmp\"  ne marche pas... On m'a déjà dit le répertoire qui est à la racine est indéterminé... soit
FSO.CopyFolder "e:\*","C:\Tmp\"  marche pour tous les sous réperoires mais bizareement oublie les fichiers se trouvant dans la racine
 
MonRep.Copy j'ai essayé aussi  mais pas plus de succes
 
Pour l'instant je suis obligé d'utiliser un Shell("Xcopy " )Vive les commandes DOS!!
 
donc si quelqu'un sait comment il faut faire pour recopier un disque entier...THX!

[edit]--Message édité par _GrEgY_--[/edit]

PFFF  ca devient lourd... 10 lignes pour un répertoire racine contre 1 pour un autre qui dit mieux....
 
Comprends vraiment pas pq il y a une différence qui est créée entre un répertoire normal et celui de la racine... 'fin bon
 
If Rep1.IsRootFolder Then
                    Set SubFolders = Rep1.SubFolders
                    For Each SubFolder In SubFolders
                    FSO.CopyFolder SubFolder.Path, DestDir + "\" + SubFolder.Name
                     
                    Next
                    Set SubFiles = Rep1.Files
                    For Each SubFile In SubFiles
                    FSO.CopyFile SubFile.ShortPath, DestDir + "\" + SubFile.Name
                    Next
                Else
                    FSO.CopyFolder Dir.Path, DestDir + "\" + Rep1.Name
                End If