const CLASSES_FILES_FOLDER = « c:\temp\files »
placer le fso = le createobject (« scripting.filesystemobject »)
Placer l'objFolder = le fso.GetFolder (CLASSES_FILES_FOLDER)
Pour chacun objFile dans objFolder.Files
marque = ""
choisir le cas fso.GetExtensionName (objFile)
enfermer le « Cs » : marque = »/«
cas « vb » : marque = » ''' «
extrémité choisie
si "" <> symbolique alors
RemoveSummary objFile.Path, marque
finir si
Après
RemoveSummary secondaire (nom de fichier, marque)
objSrcFile réglé = fso.OpenTextFile (nom de fichier, 1)
données = ""
allumette = faux
Faire jusqu'à objSrcFile.AtEndOfStream
strLine = objSrcFile.Readline
s'InStr (strLine, marque et « ") > 0 puis
l'allumette = rectifient
autrement
si l'allumette = rectifient alors
s'InStr (strLine, marque) = 0 puis
allumette = faux
données = données et strLine et vbNewLine
finir si
autrement
données = données et strLine et vbNewLine
finir si
finir si
Boucle
objSrcFile.Close
objOutFile réglé = fso.CreateTextFile (nom de fichier, 2)
données d'objOutFile.Write
objOutFile.Close
sous-marin d'extrémité
|