 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : VBScript VB6 FileSystemObject | |
| _GrEgY_ | 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 |
| Vue Rapide de la discussion |
|---|
