Recomendado: Cómo crear una página de verificación de inicio de sesión Script de verificación de inicio de sesión del usuario, chkpwd.asp El siguiente es el contenido referenciado: % '========= Script de verificación de inicio de sesión de usuario =====' Si el objeto aprobado aún no está definido, se define como falso, indicando que no hay
En el código de muestra descrito en esta sección, se proporcionan ejemplos de la vida real para ilustrar muchas de las características disponibles en el patrón de objetos del sistema de archivos. Este código muestra todas las características de cómo usar patrones de objetos juntos y cómo usarlos de manera efectiva en su propio código.
Tenga en cuenta que dado que el código es extremadamente general, puede tomar algún código adicional y cambios menores para que funcione en su máquina. Estos cambios son necesarios porque se utilizan diferentes enfoques para dar a los usuarios la entrada y la salida entre las páginas del servidor activo y el host de secuencias de comandos de Windows.
Para ejecutar el código en las páginas del servidor activo, tome los siguientes pasos:
Cree una página web estándar con el sufijo nombrado .asp.
Copie el siguiente código de muestra en el archivo entre las etiquetas <body> ... </body>.
Encapsula todo el código en la etiqueta <%...%>.
Mueva la declaración explícita de la opción desde la ubicación actual a la parte superior de la página HTML, incluso antes de que <html> inicie el etiquetado.
Coloque la etiqueta <%...%> en torno a la declaración explícita de la opción para garantizar que se ejecute en el lado del servidor.
Agregue el siguiente código al final del código de ejemplo:
Sub print (x) respuesta.write <pre> <font face = 安 size = 1> respuesta.write x respuesta.write </font> </pre> end sub main
El código anterior agrega un proceso de impresión que se ejecutará en el lado del servidor pero muestra los resultados en el lado del cliente. Para ejecutar el código en Windows Scripting Host, agregue el siguiente código al final del código de muestra:
Sub print (x) wscript.eco x end subinter
El siguiente es el código de muestra:
| El siguiente es el contenido citado: -------------------------------------------------- ------------------------------ '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'FileSystemObject Código de muestra ' 'Copyright 1998 Microsoft Corporation. Reservados todos los derechos. ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Opción explícita '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' |
'Para la calidad del código:
'
'1) El siguiente código tiene muchas operaciones de cadena, utilizando el operador "& amp; & quot; para concatenar las cuerdas cortas. porque
'La concatenación de cadenas requiere mucho tiempo, por lo que esta es una forma ineficiente de escribir código. De todos modos es
'Un método de escritura muy bien mantenido, y este método se usa aquí porque el programa se ejecuta
'Una gran cantidad de operaciones de disco, que son mucho más lentas que las operaciones de memoria requeridas para conectar cadenas.
'Recuerde que este es código de demostración, no código de producto.
'
'2) se utiliza la "opción explícita" porque acceder a las variables declaradas es más importante que acceder a variables no declaradas
'Un poco más rápido. También puede evitar errores en el código, por ejemplo, ortografía erróneamente de drivetypdrom
'Conviértete en drivetypecdorm.
'
'3) Para que el código sea más legible, no hay un manejo de errores en este código. Aunque se han tomado medidas preventivas para garantizar el código
'En casos normales no hay errores, pero el sistema de archivos es impredecible. En el código de producto, use
'En el error de error, reanude a continuación y err Obtectes para atrapar posibles errores.
El siguiente es el contenido citado: ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'Algunas variables globales fáciles de obtener ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Dim Tabstop Dim Newline Const testdrive = "c" Const testFilePath = "c: prueba" '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'Constante devuelto por Drive.DriveType ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Const drivetyperemovable = 1 Const drivetypeFixed = 2 Const DrivetyPenetwork = 3 Const driveTyPecdrom = 4 Const drivetyperamdisk = 5 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'Constante devuelto por file.attributes ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Const fleeAttrNormal = 0 Const fileattrreadonly = 1 Const fileattrhidden = 2 Const fileAtTrystem = 4 Const fileAtTrVolume = 8 Const fileatTrdirectory = 16 Const fileAtrarrchive = 32 Const fileattralias = 64 Const fleeAtTrcomessed = 128 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'La constante utilizada para abrir el archivo ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Const OpenFileFoReading = 1 Const OpenFileForWriting = 2 Const OpenFileForAppending = 8 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'ShowDriveType ' ' Objetivo: ' 'Genere una cadena que describa el tipo de unidad de un objeto de accionamiento dado. ' 'Demuestre lo siguiente ' ' - Drive.Drivetype ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Función showDriveType (unidad) Atenuante Seleccionar Case Drive.Drivetype Caso de la conducción de la conducción S = "extraíble" Case DriveTyPefixed S = "fijo" Case DrivetyPenetwork S = "red" Case DriveTyPecdrom S = "CD-ROM" Caso de la conducción de la conducción S = "disco de RAM" Caso S = "desconocido" Final seleccionar ShowDriveType = s Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'Showfileattr ' ' Objetivo: ' 'Genere una cadena que describa las propiedades de un archivo o carpeta. ' 'Demuestre lo siguiente ' ' - File.Attributes ' - carpeta. ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Función showFileAtTr (archivo) 'El archivo puede ser un archivo o una carpeta Atenuante Attrante Attr = file.attributes Si attr = 0 entonces ShowFileAtTR = "Normal" Función de salida Final si Si ATTR y FileAtTrdirectory, entonces S = S & amp; Si ATTR y FileAtTrreadonly, entonces S = S & amp; Si Attr y FileAttrhidden, entonces S = S & amp; Si ATTR y FileAtTrSystem, entonces S = S & amp; Si ATTR y FileAtTrVolume, entonces S = S & amp; Si ATTR y FileAttarrchive, entonces S = S & amp; Si ATTR y FileAttralias, entonces S = S & amp; Si ATTR y FileAtTrcomprised, entonces S = S & amp; Showfileattr = s Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'GeneratedRiveInformation ' ' Objetivo: ' 'Genere una cadena que describa el estado actual de la unidad disponible. ' 'Demuestre lo siguiente ' ' - FileSystemObject.Drives ' - iterando la colección de unidades ' - Unidades. ' - Drive.availableSpace ' - Drive.driveSetter ' - Drive.Drivetype ' - Drive.filesystem ' - Drive.freespace ' - Drive.isready ' - Drive.path ' - Drive.serialNumber ' - Drive.sharename ' - Drive.otalSize ' - Drive.VolUmename ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Función GeneratedRiveInformation (FSO) Dim unidades Dim Drive Atenuante Establecer unidades = fso.drives S = "Número de unidades:" & amp; 'Construya la primera línea del informe. S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; 'Construya la segunda línea del informe. S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; 'Filas separadas. S = S & amp; Para cada unidad en unidades S = S & amp; S = S & amp; S = S & amp; S = S & amp; If drive.isready entonces Si driveTyPenetwork = drive.DriveType entonces S = S & amp; Demás S = S & amp; Final si S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; Final si S = S & amp; Próximo GeneratedRiveInformation = S Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'GenerateFileInformation ' ' Objetivo: ' 'Genere una cadena para describir el estado actual del archivo. ' 'Demuestre lo siguiente ' ' - File.path ' - Nombre del archivo ' - file.type ' - file.datecreated ' - file.datelastaccess ' - file.datelastmodified ' - file.size ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Función generateFileInformation (archivo) Atenuante S = Newline & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; GenerateFileInformation = S Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'GenerateFolderInformation ' ' Objetivo: ' 'Genere una cadena para describir el estado actual de la carpeta. ' 'Demuestre lo siguiente ' ' - carpeta.path ' - carpeta.name ' - carpeta. Datecreated ' - carpeta.datelastaccess ' - carpeta.datelastmodified ' - carpeta.size ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Function GenerateFolderInformation (carpeta) Atenuante S = "Patio:" & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; S = S & amp; GenerateFolderInformation = S Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'GenerateAllFolderInformation ' ' Objetivo: ' "Genere una cadena para describir el estado actual de una carpeta y todos los archivos y subcarpetas. ' 'Demuestre lo siguiente ' ' - carpeta.path ' - carpeta. ' - carpetas. ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Function GenerateAllFolderInformation (carpeta) Atenuante Subcarpetas dim Subcarpeta dim Archivos dim Archivo DIM S = "Carpeta:" Establecer archivos = carpeta.files Si 1 = files.count entonces S = S & amp; Demás S = S & amp; Final si If file.count & lt; & gt; entonces Para cada archivo en archivos S = S & amp; Próximo Final si Establecer subcarpetas = carpeta.subfolders Si 1 = subcarpetas. S = S & amp; Demás S = S & amp; Final si Si subcarpes.count & lt; & gt; Para cada subcarpeta en subcarpetas S = S & amp; Próximo S = S & amp; Para cada subcarpeta en subcarpetas S = S & amp; Próximo Final si GenerateAllFolderInformation = S Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'GeneratetEnformation ' ' Objetivo: ' 'Genere una cadena para describir el estado actual de la carpeta C: Test y todos los archivos y subcarpetas. ' 'Demuestre lo siguiente ' ' - FileSystemObject.DriveExists ' - filesystemObject.folderExists ' - FilesystemObject.getFolder ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' FUNCIÓN GENERATETINFORMACIÓN (FSO) Dimpolder de prueba Atenuante Si no es FSO.DriveExists (TestDrive), entonces salga de la función Si no es FSO.FolderEterexists (TestFilePath), entonces salga de la función Establecer testFolder = fso.getfolder (testFilePath) GenerateTInformation = GenerateLlFolderInformation (TestFolder) Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'Deletetestdirectory ' ' Objetivo: ' 'Limpie el directorio de prueba. ' 'Demuestre lo siguiente ' ' - FilesystemObject.getFolder ' - FileSystemObject.DeleteFile ' - FileSystemObject.DeleteFolder ' - carpeta.delete ' - file.delete ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Sub DeletetestDirectory (FSO) Dimpolder de prueba Subcarpeta dim Archivo DIM <a name = DeleteFile> 'Hay dos formas de eliminar un archivo: Fso.deletefile (testFilePath & amp; & quot; beatlesoctopusgarden.txt & quot;) Establecer archivo = fso.getfile (testFilePath & amp; & quot; beatlesbathroomwindow.txt & quot;) File.delete 'Hay dos formas de eliminar una carpeta: FSO.DeleteFolder (TestFilepath & amp; & quot; Beatles & quot;) Fso.deleteFile (testFilePath & amp; & quot; readme.txt & quot;) Establecer testFolder = fso.getfolder (testFilePath) TestFolder.delete Final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'Createlyrics ' ' Objetivo: ' 'Cree dos archivos de texto en la carpeta. ' ' 'Demuestre lo siguiente ' ' - FileSystemObject.CreateTextFile ' - TextStream.Writeline ' - Textstream.write ' - TextStream.WriteBlankLines ' - Textstream.close ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Sub Createlyrics (carpeta) Dim TextStream </a> <a name = createTextFile> Establecer textStream = carpeta.createTextFile (& quot; Octopusgarden.txt & quot;) </a> <a name = writeTofile> Textstream.write (& quot; Octopus 'Garden & quot;)' Tenga en cuenta que esta declaración no agrega envolturas de línea al archivo. TextStream.WriteLine (& quot; (por Ringo Starr) & quot;) Textstream.writblanklines (1) TextStream.WriteLine (& quot; Me gustaría estar bajo el mar en un jardín de pulpo a la sombra, & quot;) TextStream.Writeline ("él nos dejaría entrar, saber dónde hemos estado, en su jardín de pulpo a la sombra".) Textstream.writblanklines (2) </a> <a name = Close> Textstream.close Establecer textstream = carpeta.creatExtExtFile (& quot; boathwindow.txt & quot;) TextStream.WriteLine (& quot; Ella entró por la ventana del baño (por Lennon/McCartney) & quot;) Textstream.writeline (& quot; & quot;) TextStream.WriteLine ("Entró por la ventana del baño protegida por una cuchara plateada") TextStream.WriteLine ("Pero ahora se mucece el pulgar y deambula por las orillas de su propia laguna") Textstream.writblanklines (2) Textstream.close Final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'Getlyrics ' ' Objetivo: ' 'Muestra el contenido del archivo de letras. ' ' 'Demuestre lo siguiente ' ' - filesystemObject.OpENtextFile ' - filesystemObject.getFile ' - TextStream.Readall ' - Textstream.close ' - file.openastextstream ' - textstream.atendofstream ' - TextStream.Readline ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Función getlyrics (FSO) Dim TextStream Atenuante Archivo DIM 'Hay varias formas de abrir un archivo de texto y múltiples formas de leer datos del archivo. 'Aquí hay dos formas de abrir y leer archivos: Establecer textStream = fso.opentextFile (testFilePath & amp; & quot; beatlesoctopusgarden.txt & quot;, openfileForreading) </a> <a name = readFromFile> S = TextStream.Readall & amp; Textstream.close Establecer archivo = fso.getfile (testFilePath & amp; & quot; beatlesbathroomwindow.txt & quot;) Establecer textstream = file.openastextstream (openFileForreading) Haz mientras no textstream.atendofstream S = S & amp; Bucle Textstream.close Getlyrics = s Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'BuildTestDirectory ' ' Objetivo: ' 'Cree una jerarquía de directorio para demostrar Files SystemObject. ' 'Crear una estructura jerárquica en este orden: ' 'C: prueba 'C: testreadme.txt 'C: Testbeatles 'C: TestBeatleSoctopusgarden.txt 'C: TestBeatlesBathroomWindow.txt ' ' 'Demuestre lo siguiente ' ' - FileSystemObject.DriveExists ' - filesystemObject.folderExists ' - FileSystemObject.CreateFolder ' - FileSystemObject.CreateTextFile ' - carpetas.add ' - carpeta.createTextFile ' - TextStream.Writeline ' - Textstream.close ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' </a> <a name = folorInfo> Función buildTestDirectory (FSO) Dimpolder de prueba Subcarpetas dim Subcarpeta dim Dim TextStream 'Excluye (a) la unidad no existe, o (b) ya existe el directorio que se creará. Si no fso.driveExists (testdrive) entonces BuildTestDirectory = falso Función de salida Final si Si FSO.LoFolderExists (TestFilepath) entonces BuildTestDirectory = falso Función de salida Final si Establecer TestFolder = FSO.CreateFolder (TestFilePath) Establecer textStream = fso.createTextFile (testFilePath & amp; & quot; readMe.txt & quot;) Textstream.writeline (& quot; mi colección de letras de mis canciones & quot;) Textstream.close Establecer subcarpetas = TestFolder.SubFolders Establecer subpolder = Subfolders.Add ("Beatles") Subcarpeta de createlyrics BuildTestDirectory = True Función final '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'Programa principal ' 'Primero, crea un directorio de prueba, así como algunas subcarpetas y archivos. 'Luego, arroja información sobre las unidades de disco disponibles y los directorios de prueba, 'Finalmente, borre el directorio de prueba y todo su contenido. ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Subterráneo Dim FSO 'Configurar variables globales. Tabstop = chr (9) Newline = chr (10) </a> <a name = CreateFso> Establecer fso = createObject (& quot; scripting.filesystemObject & quot;) Si no buildTestDirectory (FSO) entonces Imprimir "Directorio de prueba ya existe o no se puede crear. No se puede continuar". Salir Final si Impresión generada. Imprimir GeneratetInformation (FSO) & amp; Imprimir getLyrics (FSO) & amp; DeletetestDirectory (FSO) Final |
Compartir: interpretar el uso de la función del objeto regexp de ASP Los objetos regexp proporcionan soporte de expresión regular simple. Uso de objeto regexp: el siguiente es el contenido referenciado: function regexPtest (Patrn, strng) dim re