1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
Dim oFSO,oFld, chemin
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\travail\compile\vers.1.0.3966\src"
LectRep stRep
'
' Fonction récursive de parcours de répertoire
'
Sub LectRep (stR )
For each oFld in oFSO.GetFolder(stR).SubFolders
ListeFichier (oFld.PATH)
LectRep oFld.PATH
Next
end sub
'
' Listing des fichiers du répertoire
'
Sub ListeFichier (stR)
dim temp, extension, arbodestfin, arbodest, oFl,repcreat
For each oFl in oFSO.GetFolder(stR).Files
temp = oFl.Name
extension = right(temp,len(temp)-instr(1,temp,"."))
if left(extension,3) = "hbm" then extension = right(extension,3)
if extension ="xml" or extension ="properties" then
temp = oFl.parentFolder
arbodest=right(temp,len(temp)-instr(1,temp,"src"))
arbodestfin= "c:\travail\compile\vers.1.0.3966\novanet\WEB-INF\classes\"&arbodest
if not oFSO.FolderExists(arbodestfin) then
msgbox arbodestfin
CreerRep(arbodestfin)
' plante ici
oFl.copy arbodestfin ,true
else
' ou ici
oFl.copy arbodestfin ,true
end if
end if
Next
End sub
Sub CreerRep(Chemin)
If Not ofso.FolderExists(chemin) Then
CreerRep(ofso.GetParentFolderName(chemin))
ofso.CreateFolder(chemin)
End If
End Sub |
Partager