FileSystemObject Exemple de code_asp

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

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

'

'FileSystemObject Exemple de code

'

«Copyright 1998 Microsoft Corporation. Tous droits réservés.

'

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

Option explicite

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

'

Ce qui suit est le contenu cité:

'

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

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

'

'Quelques variables globales facilement accessibles

'

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

Tabstop DIM

Dim Newline

Const testDrive = "C"

Const testFilePath = "C: test"

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

'

'Constante retournée par le lecteur.driveType

'

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

Const DrivetyPereMovable = 1

Const DriveTypeFixed = 2

Const DriveTypenetwork = 3

Const DriveTypecDrom = 4

Const DrivetyPeramDisk = 5

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

'

'Constante renvoyée par fichier.attributes

'

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

Const fileattrnormal = 0

Const fileattrreadonly = 1

Const fileattrhidden = 2

Const fileaTtrystem = 4

Const fileattrvolume = 8

Const fileattrdirectory = 16

Const fileattrarchive = 32

Const fileattralias = 64

Const fileattrcompresmpred = 128

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

'

'La constante utilisée pour ouvrir le fichier

'

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

Const openfileforreading = 1

Const openfileforwriting = 2

Const OpenFileFilePendren = 8

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

'

'ShowdriveType

'

' But:

'

«Générez une chaîne qui décrit le type de lecteur d'un objet de lecteur donné.

'

'Démontrer ce qui suit

'

'- Drive.DriveType

'

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

Fonction showdriveType (lecteur)

Sombre

Sélectionner le lecteur de cas. DriveType

Case DrivetyPerMovable

S = "amovible"

Case dirigée

S = "fixe"

Caisse divettypenetwork

S = "réseau"

Casse

S = "CD-ROM"

Case DrivetyPeramDisk

S = "Disque RAM"

Cas d'autre

S = "inconnu"

Fin de sélection

ShowdriveType = s

Fonction finale

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

'

'Showfileattr

'

' But:

'

«Générez une chaîne qui décrit les propriétés d'un fichier ou d'un dossier.

'

'Démontrer ce qui suit

'

'- file.attributes

'- dossier.attributes

'

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

Fonction showFileAttr (fichier) 'Le fichier peut être un fichier ou un dossier

Sombre

Dim att

Attr = file.attributes

Si att = 0 alors

ShowFileattr = "normal"

Fonction de sortie

Terminer si

Si att et fileattrDirectory alors s = s & amp;

Si att et fileattrreadonly alors s = s & amp;

Si att et fileattrhidden alors s = s & amp;

Si ATR et FileAtTrSystem alors S = S & amp;

Si att et fileattrvolume alors s = s & amp;

Si att et fileAttrarchive alors s = s & amp;

Si att et fileattralias alors s = s & amp;

Si att et fileattrcompresmpressé alors s = s & amp;

ShowFileattr = s

Fonction finale

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

'

'GeneratedriveInformation

'

' But:

'

«Générez une chaîne qui décrit l'état actuel du lecteur disponible.

'

'Démontrer ce qui suit

'

'- FileSystemObject.drives

'- Iterating the Drives Collection

'- Drives.Count

'- Drive.AvailableSpace

'- drive.drivelletter

'- Drive.DriveType

'- Drive.fileSystem

'- Drive.freespace

'- Drive.isready

'- Drive.path

'- Drive.SerialNumber

'- Drive.sharename

'- Drive.Totalsize

'- drive.volumename

'

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

Fonction générée deinformation (FSO)

Mobilisation

Dalm

Sombre

Set drives = fso.drives

S = "Nombre de lecteurs:" & amp;

«Construisez la première ligne du rapport.

S = S & amp; String (2, tabstop) & amp;

S = S & amp; String (3, Tabstop) & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

«Construisez la deuxième ligne du rapport.

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;

«Rows séparés.

S = S & amp; String (105, & quot; - & quot;) & amp;

Pour chaque lecteur en disques

S = s & amp;

S = s & amp;

S = S & amp;

S = S & amp;

Si drive.s est-il alors

Si DriveTypenetWork = Drive.DriveType alors

S = S & amp;

Autre

S = S & amp;

Terminer si

S = s & amp;

S = s & amp;

S = s & amp;

S = s & amp;

S = S & amp;

Terminer si

S = S & amp;

Suivant

GénératedRiveInformation = s

Fonction finale

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

'

'GenerateFileInformation

'

' But:

'

«Générez une chaîne pour décrire l'état actuel du fichier.

'

'Démontrer ce qui suit

'

'- file.path

' - Nom de fichier

'- file.type

'- file.dateCreated

'- file.datelastaccessed

'- file.datelastmodified

'- file.size

'

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

Fonction GenerateFileInformation (fichier)

Sombre

S = Newline & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp; Newline & amp;

S = S & amp; Newline & amp;

Générer la FileInformation = S

Fonction finale

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

'

'Generatefolderinformation

'

' But:

'

«Générez une chaîne pour décrire l'état actuel du dossier.

'

'Démontrez ce qui suit

'

'- dossier.Path

'- dossier.name

'- dossier.dateCreated

'- dossier.datelastaccessed

'- dossier.datelastModified

'- Folder.Size

'

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

Fonction GenerateFolderiNformation (dossier)

Sombre

S = "Path:" & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

GénérerfolderiNformation = s

Fonction finale

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

'

'GeneratEALLFolderinformation

'

' But:

'

«Générez une chaîne pour décrire l'état actuel d'un dossier et de tous les fichiers et sous-dossiers.

'

'Démontrer ce qui suit

'

'- dossier.Path

'- dossier.

'- dossiers.Count

'

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

Fonction GenerateAlLFolderiNformation (dossier)

Sombre

Sous-dossiers DIM

Sous-dossier DIM

Dalm

Fichier

S = "Dossier:" & amp;

Set file = dosder.files

Si 1 = files.count alors

S = S & amp;

Autre

S = S & amp;

Terminer si

Si files.Count & lt; & gt;

Pour chaque fichier dans des fichiers

S = s & amp;

Suivant

Terminer si

Définir les sous-dossiers = dossier.

Si 1 = sous-dossiers.Count alors

S = S & amp;

Autre

S = S & amp;

Terminer si

Si subfolders.Count & lt; & gt;

Pour chaque sous-dossier dans les sous-dossiers

S = s & amp;

Suivant

S = S & amp;

Pour chaque sous-dossier dans les sous-dossiers

S = s & amp;

Suivant

Terminer si

GeneratEALLFolderiNformation = s

Fonction finale

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

'

'GenerateTestinformation

'

' But:

'

«Générez une chaîne pour décrire l'état actuel du dossier C: Test et tous les fichiers et sous-dossiers.

'

'Démontrer ce qui suit

'

'- FileSystemObject.DriveExists

'- FileSystemObject.folderexists

'- FileSystemObject.getfolder

'

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

Fonction GenerateSTinformation (FSO)

Testfolder DIM

Sombre

Si non FSO.DriveExists (testDrive), alors la fonction de sortie

Sinon FSO.folderexists (testFilePath), alors la fonction de sortie

SET TESTFOLDER = FSO.GetFolder (TestFilePath)

GenerAteTesTinformation = GeneratEALLFolderiNformation (TestFolder)

Fonction finale

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

'

'DeleteTestDirectory

'

' But:

'

«Nettoyez le répertoire de test.

'

'Démontrez ce qui suit

'

'- FileSystemObject.getfolder

'- FileSystemObject.DeleteFile

'- FileSystemObject.DeleteFolder

'- dossier.delete

'- file.delete

'

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

Sous-DeleteTestDirectory (FSO)

Testfolder DIM

Sous-dossier DIM

Fichier

<a name = DeleteFile>

«Il existe deux façons de supprimer un fichier:

Fso.deletefile (testFilePath & amp; & quot; Beatlesoctopusgarden.txt & quot;)

Set file = fso.getfile (testFilePath & amp; & quot; BeatlesBathroomwindow.txt & quot;)

File.delete

«Il existe deux façons de supprimer un dossier:

Fso.deletefolder (testFilePath & amp; & quot; Beatles ")

Fso.deletefile (testFilePath & amp; & quot; readme.txt & quot;)

SET TESTFOLDER = FSO.GetFolder (TestFilePath)

TestFolder.Delete

Sub-Sub

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

'

'Createlyric

'

' But:

'

«Créez deux fichiers texte dans le dossier.

'

'

'Démontrer ce qui suit

'

'- FileSystemObject.CreateTextFile

'- textStream.writeline

'- textStream.write

'- textStream.writeblanklines

'- textStream.close

'

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

Sub-Createlyric (dossier)

Textstream dim

</a> <a name = CreateTextFile>

Set textStream = Folder.CreateTextFile (& quot; OctopusGarden.txt & quot;)

</a> <a name = writeTofile>

TextStream.write (& quot; Octopus 'Garden & quot;) «Notez que cette instruction n'ajoute pas les wraps de ligne au fichier.

TextStream.writeline ("(par Ringo Starr)")

TextStream.WriteBlanklines (1)

TextStream.Writeline ("J'aimerais être sous la mer dans un jardin de poulpe à l'ombre,")

TextStream.writeline ("il nous a laissé entrer, sait où nous avons été - dans le jardin de son poulpe à l'ombre.")

TextStream.WriteBlanklines (2)

</a> <un nom = Close>

TextStream.close

Set textStream = Folder.CreateTextFile (& quot; Bathrowwindow.txt ")

TextStream.writeline ("elle est entrée par la fenêtre de la salle de bain (par Lennon / McCartney)") ")

TextStream.writeline (& quot; & quot;)

TextStream.writeline ("Elle est entrée par la fenêtre de la salle de bain protégée par une cuillère en argent")

TextStream.writeline ("mais maintenant elle suce son pouce et se promène par les rives de son propre lagon")

TextStream.WriteBlanklines (2)

TextStream.close

Sub-Sub

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

'

'Getlyrics

'

' But:

'

«Montrez le contenu du fichier de paroles.

'

'

'Démontrer ce qui suit

'

'- FileSystemObject.Opentextfile

'- FileSystemObject.getFile

'- textStream.readall

'- textStream.close

'- file.openastextstream

'- textstream.atendofstream

'- textStream.readline

'

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

Fonction getlyrics (FSO)

Textstream dim

Sombre

Fichier

«Il existe plusieurs façons d'ouvrir un fichier texte et plusieurs façons de lire les données du fichier.

«Voici deux façons d'ouvrir et de lire les fichiers:

Set textStream = fso.OpenTextFile (testFilePath & amp; & quot; Beatlesoctopusgarden.txt & quot;, OpenFileForreading)

</a> <a name = readfromfile>

S = TextStream.Readall & amp;

TextStream.close

Set file = fso.getfile (testFilePath & amp; & quot; BeatlesBathroomwindow.txt & quot;)

Set textStream = file.openStExtStream (OpenFileForreading)

Faire tout en ne faisant pas textstream.atendofstream

S = S & amp;

Boucle

TextStream.close

Getlyrics = s

Fonction finale

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

'

'BuildTestDirectory

'

' But:

'

«Créez une hiérarchie de répertoire pour démontrer FileSystemObject.

'

«Créez une structure hiérarchique dans cet ordre:

'

'C: Tester

'C: TestReadme.txt

'C: Testbeatles

'C: TestbeatleSoctopusGarden.txt

'C: TestbeatlesBathroomWindow.txt

'

'

'Démontrer ce qui suit

'

'- FileSystemObject.DriveExists

'- FileSystemObject.folderexists

'- FileSystemObject.CreateFolder

'- FileSystemObject.CreateTextFile

'- dossiers.add

'- dossier.CreateTextFile

'- textStream.writeline

'- textStream.close

'

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

</a> <a name = FoldeRinfo>

Fonction buildTestDirectory (FSO)

Testfolder DIM

Sous-dossiers DIM

Sous-dossier DIM

Textstream dim

«Exclut (a) le lecteur n'existe pas, ou (b) le répertoire à créer existe déjà.

Sinon FSO.DriveExists (testDrive) alors

BuildTestDirectory = false

Fonction de sortie

Terminer si

Si fso.folderexists (testfilepath) alors

BuildTestDirectory = false

Fonction de sortie

Terminer si

SET TESTFOLDER = FSO.CREATEFOLDER (TESTFILEPATH)

Set textStream = fso.CreateTextFile (testFilePath & amp; & quot; readme.txt & quot;)

TextStream.WriteLine (& quot; My Song Lyrics Collection & quot;)

TextStream.close

Définir les sous-dossiers = TestFolder.Subfolders

Définir un sous-fichier = subfolders.add ("Beatles")

Sous-dossier

BuildTestDirectory = true

Fonction finale

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

'

'Programme principal

'

«Tout d'abord, il crée un répertoire de test, ainsi que certains sous-dossiers et fichiers.

'Ensuite, il déverse des informations sur les lecteurs de disque et les répertoires de test disponibles,

«Enfin, effacez le répertoire de test et tout son contenu.

'

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

Sous-principal

DIM FSO

«Configurez les variables globales.

Tabstop = chr (9)

Newline = chr (10)

</a> <a name = createfso>

Set fso = createObject (& quot; scripting.filesystemObject & quot;)

Sinon BuildTestDirectory (FSO) alors

Imprimer "Le répertoire de test existe déjà ou ne peut pas être créé. Impossible de continuer."

Sous-marin de sortie

Terminer si

Imprimer générériveinformation (FSO) & amp; Newline & amp;

Imprimez GenerateSTinformation (FSO) & amp;

Imprimez les getlyrics (FSO) & amp; Newline & amp;

DeleteTestDirectory (FSO)

Sub-Sub