const CLASSES_FILES_FOLDER = “c:\temp\files”
fijar el fso = el createobject (“scripting.filesystemobject”)
Fijar el objFolder = fso.GetFolder (CLASSES_FILES_FOLDER)
Para cada uno objFile en objFolder.Files
símbolo = ""
seleccionar el caso fso.GetExtensionName (objFile)
encajonar el “cs”: símbolo =”/“
caso “vb”: símbolo =” ''' “
extremo selecto
si "" <> simbólico entonces
RemoveSummary objFile.Path, símbolo
terminar si
Después
RemoveSummary secundario (nombre de fichero, símbolo)
objSrcFile determinado = fso.OpenTextFile (nombre de fichero, 1)
datos = ""
fósforo = falso
Hacer hasta objSrcFile.AtEndOfStream
strLine = objSrcFile.Readline
si InStr (strLine, símbolo y “ ") > 0 entonces
el fósforo = verdad
si el fósforo = entonces verdad
si InStr (strLine, símbolo) = 0 entonces
fósforo = falso
datos = datos y strLine y vbNewLine
terminar si
datos = datos y strLine y vbNewLine
terminar si
terminar si
Lazo
objSrcFile.Close
objOutFile determinado = fso.CreateTextFile (nombre de fichero, 2)
datos de objOutFile.Write
objOutFile.Close
submarino del extremo
|