for each objFichier in objDossier.Files monTbl=split(objFichier.Name,".") Fichiers_A=monTbl(0) Fichiers_B=monTbl(1) if Fichiers_B= "rar" then Fichiers_A=Fichiers_A & ".txt" objFSO.CreateTextFile (Rep2 & Fichiers_A) end if next
for each objFichier in objDossier.Files monTbl=split(objFichier.Name,".") Fichiers_A=monTbl(0) Fichiers_B=monTbl(1) Fichiers_A=Fichiers_A & ".txt" objFSO.CreateTextFile (Rep2 & Fichiers_A) next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question