<% 'Encabezado FSO Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set objetocreado = CreateObject("Scripting.FileSystemObject") %>