parcourir une arborescance de dossier
Je repost car j'ai la sensation que l'on ne m'as pas compris, et c'est extremement urgent, je ne suis pourtant pas développeur mais je doit faire d'autre preuve dans d'autre domaine et cela joue sur mon embauche final a terme du cdd... donc desolé pour le doublon
Pour fair simple:
Je souhaite pouvoir parcourir l'ensemble des dossier et sous dossier a partir d'un point donné, et à chaque palier executer une fonction que j'ai deja écrite et qui permet un traitement sur les fichier du repertoir courant.
pour bien tourné ma fonction a besoins du path a chaque palier du scan afin de pouvoir effectuer une copie en respectant cette arbo mais dans un autre dossier.
Comprendre mon désaroi passe par la non comprehension de ce que je pense:
Je n'ai pas l'expertise nécessaire afin de reussir a ecrire un script qui parcour une arbo (je suis admin reseau et non developpeur) a chque fois que je commence a ecrir quelque chose je me retrouve bloqué dans le doublonage de programme et je n'arrive pas a l'arreter .... javais pensé a passer par une fonction qui scan un repertoir donné en paramétre afin d'extraire les sous repertoir.... mais apres il faut encore que je j'execute mon script a la limite c'est fesable, mais dans ma fonction des qu'il va voir un sous repertoire il va rentrer dedans et refaire le scan .... sdans avoir traiter les fichier....
Bon en gros c'est incomprehensible, je cherche mais ne trouve pas, qui peux me renvoyer vers un tuto detailler? ou mieux me donner directement un code qui explorer une arbo a partir d'un point donné... afin bien entendu d'executer un script a chaque niveau....
S'il vous plais aidé moi, je suis vraiment perdu et je stress, et plus je stress plus je me perd... :roll::calim2::(:cry::?:calim2:
Code:
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
|
option explicit
on error resume next
dim cheminsrc
dim dossier
REM dossier est déterminé plus haut dans le script lors de la construction de la version
dossier = "vers.1.0.3966"
cheminsrc = "C:\travail\compile\"&dossier&"\src"
copyfile cheminsrc,dossier
function copyfile (cheminsrc,dossier)
dim fso
dim file
dim arbodestfin
dim arbodest
dim extension
dim temp
set fso = wscript.createObject("Scripting.FileSystemObject")
if fso.folderExists (cheminsrc) then
For Each file In fso.GetFolder(cheminsrc).files
temp = file.name
extension = right(temp,len(temp)-instr(1,temp,"."))
if ucase(extension) ="XML" or ucase(extension) ="PROPERTIES" then
arbodest=right(temp,len(temp)-instr(1,temp,"src"))
arbodestfin= "c:\travail\compile\"&dossier&"\projetweb\WEB-INF\classes\"&arbodest
file.copy arbodestfin,true
end if
next
end if
end function |