DateiSystemObject Sample Code_asp Tutorial

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

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

''

'FilesystemObject Beispielcode

''

'Copyright 1998 Microsoft Corporation. Alle Rechte vorbehalten.

''

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

Option explizit

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

''

Das Folgende ist der zitierte Inhalt:

''

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

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

''

'Einige leicht erhältliche globale Variablen

''

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

Dim Tabstop

Dim Newline

Const TestDrive = "C"

Const testFilepath = "C: Test"

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

''

'Konstante zurückgegeben durch Drive.Drivetype

''

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

Const Drivetyperemovable = 1

Const drivetypefixed = 2

Const drivetypenetwork = 3

Const drivetypecdrom = 4

Const Drivetyperamdisk = 5

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

''

'Konstante, die von Datei.Attributes zurückgegeben wurden

''

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

Const fileattrnormal = 0

Const fileattrreadonly = 1

Const fileattrhidden = 2

Const fileattrsystem = 4

Const fileattrvolume = 8

Const fileattrDirectory = 16

Const fileattrarchive = 32

Const fileattralias = 64

Const fileattrCompressed = 128

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

''

'Die Konstante zum Öffnen der Datei

''

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

Const openFileforreading = 1

Const openFileforwriting = 2

Const openFileForappending = 8

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

''

'ShowDrivetype

''

' Zweck:

''

'Generieren Sie eine Zeichenfolge, die den Antriebstyp eines bestimmten Laufwerks beschreibt.

''

'Demonstrieren Sie Folgendes

''

' - Drive.Drivetype

''

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

Funktion showDrivetype (Laufwerk)

Dim s

Wählen Sie Case Drive.Drivetype

Fall Drivetyperemovable

S = "entfernbar"

Case frevetypefixed

S = "behoben"

Case Drivetypenetwork

S = "Netzwerk"

Case -Drivetypecdrom

S = "CD-rom"

Case Drivetyperamdisk

S = "RAM Disk"

Fall sonst

S = "unbekannt"

Ende auswählen

ShowDrivetype = s

Endfunktion

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

''

'ShowFileattr

''

' Zweck:

''

'Generieren Sie eine Zeichenfolge, die die Eigenschaften einer Datei oder eines Ordners beschreibt.

''

'Demonstrieren Sie Folgendes

''

' - Datei.attributes

' - Ordner.Attributes

''

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

FunktionshowFileAttr (Datei) 'Datei kann eine Datei oder ein Ordner sein

Dim s

Dim Attr

Attr = file.attributes

Wenn attr = 0 dann

ShowFileattr = "normal"

Ausgangsfunktion

Ende wenn

Wenn Attr und FileAttrDirectory, dann s = S & amp; "Verzeichnis"

Wenn attr und fileattrreadonly S = S & amp;

Wenn Attr und Fileattrhidden, dann S = S & amp;

Wenn Attr- und FileTtrsystem, dann s = S & amp; "System"

Wenn Attr- und FileAttrvolume, dann s = s & amp;

Wenn Attr und FileTtrarchive, dann s = s & amp;

Wenn attral und fileattralias S = S & amp;

Wenn attr und fileattr compressed s = s & amp;

ShowFileattr = s

Endfunktion

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

''

'GeneratedriveInformation

''

' Zweck:

''

Erstellen Sie eine Zeichenfolge, die den aktuellen Status des verfügbaren Laufwerks beschreibt.

''

'Demonstrieren Sie Folgendes

''

' - DateiSystemObject.drives

' - Iteriere die Antriebskollektion

' - Antriebs.Count

' - Drive.availableSpace

' - Drive.Driveletter

' - Drive.Drivetype

' - Drive.Filesystem

' - Drive.Freespace

' - Drive.isReady

' - Drive.Path

' - Drive.SerialNumber

' - Drive.sharename

' - Drive.TotalSize

' - Drive.Volumename

''

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

Funktion generiertesRiveInformation (FSO)

Dim Laufwerke

Dunkeler Laufwerk

Dim s

Set freen = fso.drives

S = "Anzahl der Laufwerke" & amp;

Erstellen Sie die erste Zeile des Berichts.

S = S & amp;

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

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

'Erstellen Sie die zweite Zeile des Berichts.

S = S & amp;

S = S & amp;

S = S & amp; tabStop & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp; tabStop & amp;

S = S & amp; tabStop & amp;

S = S & amp; tabStop & amp;

S = S & amp;

'Getrennte Reihen.

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

Für jede Fahrt in Laufwerken

S = S & amp;

S = S & amp; tabStop & amp;

S = S & amp; tabStop & amp;

S = S & amp; tabStop & amp;

Wenn Sie anfahren.isready dann

Wenn drivetypenetwork = Drive.Drivetype dann

S = S & amp; tabStop & amp;

Anders

S = S & amp; tabStop & amp;

Ende wenn

S = S & amp; tabStop & amp;

S = S & amp; tabStop & amp;

S = S & amp; tabStop & amp;

S = S & amp; tabStop & amp;

S = S & amp;

Ende wenn

S = S & amp;

Nächste

GeneratedriveInformation = s

Endfunktion

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

''

'GenerateFileInformation

''

' Zweck:

''

Erstellen Sie eine Zeichenfolge, um den aktuellen Status der Datei zu beschreiben.

''

'Demonstrieren Sie Folgendes

''

' - Datei.Path

' - Dateiname

' - Datei.type

' - Datei.Datecreated

' - Datei.Datelastaccess

' - Datei.DatelastModified

' - Datei.size

''

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

Funktion GenerateFileInformation (Datei)

Dim s

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

Endfunktion

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

''

'GenerateFolderinformation

''

' Zweck:

''

Erstellen Sie eine Zeichenfolge, um den aktuellen Status des Ordners zu beschreiben.

''

'Demonstrieren Sie Folgendes

''

' - Ordner.Path

' - order.name

' - order.datecreated

' - Ordner.Datelastaccess

' - Ordner.DatelastModified

' - ordner.size

''

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

Funktion generateFolderinformation (Ordner)

Dim s

S = "Pfad" & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

GenerateFolderInformation = s

Endfunktion

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

''

'GenerateAllFolderinformation

''

' Zweck:

''

'Generieren Sie eine Zeichenfolge, um den aktuellen Status eines Ordners und alle Dateien und Unterordner zu beschreiben.

''

'Demonstrieren Sie Folgendes

''

' - Ordner.Path

' - Ordner.SubFolders

' - ordner.count

''

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

Funktion GenerateAllFolderinformation (Ordner)

Dim s

Dunkelne Subordner

Dimer Subordner

DIM -Dateien

Dim -Datei

S = "Ordner:" & amp;

Setzen Sie Dateien = ordner.files

Wenn 1 = Dateien.Count dann

S = S & amp;

Anders

S = s & amp;

Ende wenn

If Dateien.Count & lt; & gt;

Für jede Datei in Dateien

S = S & amp;

Nächste

Ende wenn

Setzen Sie Unterordner = Ordner.SubFolders

Wenn 1 = Unterordner.Count dann

S = S & amp;

Anders

S = SELLE;

Ende wenn

Wenn Unterordner.Count & lt; & gt;

Für jeden Unterordner in Unterordnern

S = S & amp;

Nächste

S = S & amp;

Für jeden Unterordner in Unterordnern

S = S & amp;

Nächste

Ende wenn

GenerateAllFolderinformation = s

Endfunktion

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

''

'Generatetestinformation

''

' Zweck:

''

'Generieren Sie eine Zeichenfolge, um den aktuellen Status des C: Testordners und alle Dateien und Unterordner zu beschreiben.

''

'Demonstrieren Sie Folgendes

''

' - DateiSystemObject.DriveExists

' - DateiSystemObject.FodereRexists

' - DateiSystemObject.getFolder

''

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

Funktionsgeneratetestinformation (FSO)

Schwacher Testflechte

Dim s

Wenn nicht FSO.DriveExists (testDrive), beenden Sie die Funktion

Wenn nicht

Setzen Sie TestFolder = fso.getFolder (TestFilePath)

GeneratETESTINFORMATION = GenerateAllFolderIninformation (TestFolder)

Endfunktion

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

''

'DeletetestDirectory

''

' Zweck:

''

'Reinigen Sie das Testverzeichnis.

''

'Demonstrieren Sie Folgendes

''

' - DateiSystemObject.getFolder

' - DateiSystemObject.deleteFile

' - DateiSystemObject.DeleteFolder

' - order.delete

' - Datei.delete

''

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

Sub deletetestDirectory (fSO)

Schwacher Testflechte

Dimer Subordner

Dim -Datei

<a name = deleteFile>

'Es gibt zwei Möglichkeiten, eine Datei zu löschen:

Fso.deleteFile (testfilepath & amp; & quot; Beatlesoctopusgarden.txt & quot;)

Set File = fso.getFile (TestFilepath & amp; & quot; BeatlesbathroomWindow.txt & quot;)

Datei.Delete

'Es gibt zwei Möglichkeiten, einen Ordner zu löschen:

Fso.deleteFolder (testfilepath & amp;

Fso.deleteFile (testfilepath & amp; & quot; readme.txt & quot;)

Setzen Sie TestFolder = fso.getFolder (TestFilePath)

Testflolder.Delete

Ende sub

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

''

'Kreyriken

''

' Zweck:

''

'Erstellen Sie zwei Textdateien im Ordner.

''

''

'Demonstrieren Sie Folgendes

''

' - DateiSystemObject.CreateTextFile

' - textstream.writeLine

' - textstream.write

' - textstream.writeblanklines

' - textstream.close

''

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

Subredeyrics (Ordner)

Dimer Textstream

</a> <a name = createTextFile>

Set textStream = order.CreateTextFile ("Octopusgarden.txt & quot;)

</a> <a name = writeToFile>

TextStream.write (& quot; Octopus 'Garden & quot;)' Beachten Sie, dass diese Anweisung der Datei keine Zeilenumschläge hinzufügt.

Textstream.writeLine ("(von Ringo Starr)")

Textstream.writeblanklines (1)

Textstream.WriteLine ("Ich möchte in einem Tintenfischgarten im Schatten unter dem Meer sein,")

Textstream.WriteLine ("Er hatte uns hereingelassen, weiß, wo wir gewesen sind - im Garten seines Tintenfleisches im Schatten.")

Textstream.writeblanklines (2)

</a> <a name = close>

Textstream.close

Set textStream = order.CreateTextFile ("Badezimmerwindow.txt & quot;)

Textstream.writeLine ("Sie kam durch das Badezimmerfenster (von Lennon/McCartney) & quot;)

Textstream.writeLine (& quot;))

Textstream.WriteLine ("Sie kam durch das Badezimmerfenster, das durch einen silbernen Löffel geschützt ist")

Textstream.WriteLine ("aber jetzt saugt sie ihren Daumen und wandert durch die Banken ihrer eigenen Lagune")

Textstream.writeblanklines (2)

Textstream.close

Ende sub

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

''

'Getyrics

''

' Zweck:

''

'Zeigen Sie den Inhalt der Lyrics -Datei.

''

''

'Demonstrieren Sie Folgendes

''

' - DateiSystemObject.opentextFile

' - DateiSystemObject.getFile

' - textstream.readall

' - textstream.close

' - File.OpenastextStream

' - textstream.atendofstream

' - textstream.readline

''

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

Funktion Getyrics (FSO)

Dimer Textstream

Dim s

Dim -Datei

'Es gibt mehrere Möglichkeiten, eine Textdatei zu öffnen, und mehrere Möglichkeiten, Daten aus der Datei zu lesen.

'Hier sind zwei Möglichkeiten, Dateien zu öffnen und zu lesen:

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;)

Setzen Sie textStream = file.OpenastextStream (OpenFileForReading)

Tun, während nicht textstream.atendofstream

S = S & amp;

Schleife

Textstream.close

Getyrics = s

Endfunktion

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

''

'BuildTestDirectory

''

' Zweck:

''

'Erstellen Sie eine Verzeichnishierarchie, um das Dateisystem zu demonstrieren.

''

'Erstellen Sie in dieser Reihenfolge eine hierarchische Struktur:

''

'C: Test

'C: testReadme.txt

'C: Testbeatles

'C: testbeatlesoctopusgarden.txt

'C: testbeatlesbatroomWindow.txt

''

''

'Demonstrieren Sie Folgendes

''

' - DateiSystemObject.DriveExists

' - DateiSystemObject.FodereRexists

' - DateiSystemObject.CreateFolder

' - DateiSystemObject.CreateTextFile

' - ordner.add

' - Ordner.CreateTextFile

' - textstream.writeLine

' - textstream.close

''

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

</a> <a name = orderInfo>

FUNKTION BUILDETETDD DIRECTORY (FSO)

Schwacher Testflechte

Dunkelne Subordner

Dimer Subordner

Dimer Textstream

'Ausgeschlossen (a) Das Laufwerk existiert nicht oder (b) das bereits erstellte Verzeichnis.

Wenn nicht fso.driveExists (testDrive) dann

BuildTestDirectory = False

Ausgangsfunktion

Ende wenn

Wenn fso.morteexisten (testFilepath) dann

BuildTestDirectory = False

Ausgangsfunktion

Ende wenn

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

Setzen Sie Subordner = TestFolder.SubFolders

Setzen Sie Subdulder = Subordner.Add ("Beatles")

Kreatelyrics -Unterordner

BuildTestDirectory = true

Endfunktion

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

''

'Hauptprogramm

''

'Erstens erstellt es ein Testverzeichnis sowie einige Unterordner und Dateien.

'Dann werden einige Informationen zu den verfügbaren Datenträgern und Testverzeichnissen abgelegt.

Schließlich klären Sie das Testverzeichnis und alle seine Inhalte.

''

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

Sub Main

Dim fso

'Globale Variablen einrichten.

TabStop = chr (9)

Newline = chr (10)

</a> <a name = createFSO>

Setzen Sie fso = createObject (& quot; scripting.FilesystemObject & quot;)

Wenn nicht gebautesD -Verzeichnis (FSO), dann dann

Drucken "Testverzeichnis existiert bereits oder kann nicht erstellt werden. Kann nicht fortgesetzt werden."

Beenden sub

Ende wenn

Print generatedRiveInformation (FSO) & amp;

Drucken Sie GeneratETESTINFORMATION (FSO) & amp;

Print Getyrics (FSO) & amp;

DeletetestDirectory (FSO) löschen

Ende sub