FileSystemObject Sample Code_ASP Tutorial

-------------------------------------------------- ------------------------------

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'FileSystemObject Código de muestra

'

'Copyright 1998 Microsoft Corporation. Reservados todos los derechos.

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

Opción explícita

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

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