FileSystemObject Contoh Code_asp Tutorial

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

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'FilesystemObject Contoh Kode

'

'Hak Cipta 1998 Microsoft Corporation. Semua hak dilindungi undang -undang.

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Opsi eksplisit

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

Berikut ini adalah konten yang dikutip:

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'Beberapa variabel global yang mudah diperoleh

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Redup tabstop

Redup newline

Const testdrive = "c"

Const testfilePath = "C: tes"

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'Konstan dikembalikan dengan drive.drivetype

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Const drivetyperemovable = 1

Const drivetypefixed = 2

Const drivetypeNetwork = 3

Const drivetypeCdrom = 4

Const drivetyperamdisk = 5

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'Konstan dikembalikan oleh file.attributes

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

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 fileattrompress = 128

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'Konstanta yang digunakan untuk membuka file

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Const openfileForreading = 1

Const openfileForwriting = 2

Const openfileForAppending = 8

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'ShowDrivetype

'

' Tujuan:

'

'Hasilkan string yang menjelaskan jenis drive dari objek drive yang diberikan.

'

'Menunjukkan yang berikut ini

'

' - drive.drivetype

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Function showDrivetype (drive)

Redup

Pilih case drive.drivetype

Kasus drivetyperemovable

S = "dapat dilepas"

Case drivetypefixed

S = "diperbaiki"

Kasus drivetypeNetwork

S = "jaringan"

Kasus drivetypecdrom

S = "CD-ROM"

Kasus drivetyperamdisk

S = "Disk RAM"

Kasus lain

S = "tidak diketahui"

Akhiri Pilih

Showdrivetype = s

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'ShowfileAttr

'

' Tujuan:

'

'Hasilkan string yang menjelaskan properti file atau folder.

'

'Menunjukkan yang berikut ini

'

' - file.attributes

' - folder.attributes

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Function showfileAttr (file) 'File dapat berupa file atau folder

Redup

Redup attr

Attr = file.attributes

Jika attr = 0 lalu

ShowfileAttr = "normal"

Fungsi keluar

Akhiri jika

Jika attr dan fileattrdirectory maka s = s & amp; "direktori"

Jika Attr dan FileAttreadOnly maka S = S & amp; "Baca saja"

Jika attr dan fileattrhidden maka s = s & amp; "Tersembunyi"

Jika attr dan fileattrystem maka s = s & amp; "sistem"

Jika attr dan fileattrvolume maka S = S & amp; "Volume"

Jika attr dan fileattrarchive maka s = s & amp; "arsip"

Jika attr dan fileattralias maka s = s & amp; "alias"

Jika ATTR dan FileAttrpressed maka S = S & amp; "Dikompresi"

ShowfileAttr = s

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'GeneratedRiveInformation

'

' Tujuan:

'

'Hasilkan string yang menjelaskan keadaan saat ini dari drive yang tersedia.

'

'Menunjukkan yang berikut ini

'

' - FileSystemObject.drives

' - iterasi koleksi drive

' - drive.count

' - drive.availablespace

' - drive.driveletter

' - drive.drivetype

' - drive.filesystem

' - drive.freespace

' - drive.isready

' - drive.path

' - drive.serialNumber

' - drive.sharename

' - drive.TotalSize

' - drive.volumename

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Fungsi generatedRiveInformation (FSO)

Drive redup

Drive redup

Redup

Set drive = fso.drives

S = "Jumlah drive:" & amp;

'Bangun baris pertama laporan.

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

'Bangun baris kedua dari laporan.

S = S & amp; "Surat"

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;

'Baris terpisah.

S = S & amp;

Untuk setiap drive di drive

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

Jika drive

Jika drivetypeNetwork = drive.drivetype lalu

S = S & amp;

Kalau tidak

S = S & amp;

Akhiri jika

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

Akhiri jika

S = S & amp;

Berikutnya

GeneratedRiveInformation = s

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'GenerateFileInformation

'

' Tujuan:

'

'Hasilkan string untuk menggambarkan keadaan file saat ini.

'

'Menunjukkan yang berikut ini

'

' - file.path

' - file.name

' - file.type

' - File.DateCreated

' - file.datelastAccessed

' - File.DateLastModified

' - file.size

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Fungsi GenerateFileInformation (File)

Redup

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

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'GenerateFolderinformation

'

' Tujuan:

'

'Hasilkan string untuk menggambarkan keadaan saat ini dari folder.

'

'Menunjukkan yang berikut ini

'

' - Folder.Path

' - folder.name

' - folder.datecreated

' - folder.DatelastAccessed

' - folder.DateLastModified

' - folder.size

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Fungsi GenerateFolderInformation (folder)

Redup

S = "Path:" & amp;

S = S & amp;

S & S & amp;

S = S & amp;

S = S & amp;

S & S & amp;

S & S & amp;

GenerateFolderInformation = s

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'GenerateAllFolderinformation

'

' Tujuan:

'

'Hasilkan string untuk menggambarkan status saat ini dari folder dan semua file dan subfolder.

'

'Menunjukkan yang berikut ini

'

' - Folder.Path

' - folder.subfolder

' - folder.count

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Fungsi GenerAleLFolderinformation (folder)

Redup

Subfolder redup

Subfolder redup

File redup

File redup

S = "Folder:" & amp;

Setel file = folder.files

Jika 1 = file.count maka

S = S & amp; & quot; Ada 1 file & amp;

Kalau tidak

S & AMP;

Akhiri jika

Jika file.count & lt; & gt; 0 lalu

Untuk setiap file dalam file

S = S & amp; GenerateFileInformation (File)

Berikutnya

Akhiri jika

Atur subfolder = folder.subfolders

Jika 1 = subfolder.count lalu

S & S & amp;

Kalau tidak

S & AMP;

Akhiri jika

Jika subfolders.count & lt; & gt; 0 lalu

Untuk setiap subfolder di subfolder

S = S & amp;

Berikutnya

S = S & amp;

Untuk setiap subfolder di subfolder

S = S & amp;

Berikutnya

Akhiri jika

GenerateAllFolderInformation = s

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'GenerAteTestInformation

'

' Tujuan:

'

'Hasilkan string untuk menggambarkan status Folder C: Test saat ini dan semua file dan subfolder.

'

'Menunjukkan yang berikut ini

'

' - FileSystemObject.driveexists

' - FileSystemObject.FolderExists

' - FileSystemObject.getFolder

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Function generateTestInformation (FSO)

Redup testfolder

Redup

Jika tidak fso.driveexists (testdrive) maka fungsi keluar

Jika tidak fso.folderexists (testfilePath) maka fungsi keluar

Set TestFolder = fso.getFolder (TestFilePath)

GenerAteTestInformation = GenerateAllfolderInformation (TestFolder)

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'DeleteTeStDirectory

'

' Tujuan:

'

'Bersihkan direktori tes.

'

'Menunjukkan yang berikut ini

'

' - FileSystemObject.getFolder

' - FileSystemObject.deleteFile

' - FileSystemObject.DeleteFolder

' - folder.delete

' - file.delete

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Sub DeleteTestDirectory (FSO)

Redup testfolder

Subfolder redup

File redup

<a name = deleteFile>

'Ada dua cara untuk menghapus file:

Fso.deleteFile (testfilePath & amp; & quot; beatlesoctopusgarden.txt & quot;)

Setel file = fso.getFile (testfilePath & amp; & quot; beatlesbathroomwindow.txt & quot;)

File.delete

'Ada dua cara untuk menghapus folder:

Fso.deleteFolder (testfilePath & amp; & quot; beatles & quot;)

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

Set TestFolder = fso.getFolder (TestFilePath)

Testfolder.delete

Akhir sub

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'Createlyrics

'

' Tujuan:

'

'Buat dua file teks di folder.

'

'

'Menunjukkan yang berikut ini

'

' - FileSystemObject.createTextFile

' - TextStream.WriteLine

' - TextStream.Write

' - TextStream.WriteBlanklines

' - TextStream.Close

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Sub CreateLyrics (folder)

Redup TextStream

</a> <a name = createTextFile>

Atur textStream = folder.createTextFile (& quot; octopusgarden.txt & quot;)

</a> <a name = writeToFile>

TextStream.Write (& quot; gurita gurita '& quot;)' Perhatikan bahwa pernyataan ini tidak menambahkan line wraps ke file.

TextStream.WriteLine (& quot; (oleh Ringo Starr) & quot;)

TextStream.WriteBlanklines (1)

TextStream.WriteLine (& quot; Saya ingin berada di bawah laut di taman gurita di tempat teduh, & quot;)

TextStream.WriteLine (& quot; Dia akan membiarkan kita masuk, tahu di mana kita berada - di taman gurita di tempat teduh. & Quot;)

TextStream.WriteBlanklines (2)

</a> <a name = tutup>

TextStream.Close

Atur textStream = folder.createTextFile (& quot; kamar mandiwindow.txt & quot;)

TextStream.WriteLine (& quot; dia masuk melalui jendela kamar mandi (oleh Lennon/McCartney) & quot;)

TextStream.WriteLine (& quot; & quot;)

TextStream.WriteLine ("Dia masuk melalui jendela kamar mandi yang dilindungi oleh sendok perak")

TextStream.WriteLine (& quot; tapi sekarang dia mengisap jempol dan berkeliaran di tepi laguna & quotnya sendiri & quot;)

TextStream.WriteBlanklines (2)

TextStream.Close

Akhir sub

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'Getlyrics

'

' Tujuan:

'

'Tunjukkan isi file lirik.

'

'

'Menunjukkan yang berikut ini

'

' - FileSystemObject.OpentExtFile

' - FileSystemObject.getFile

' - TextStream.readall

' - TextStream.Close

' - file.openastextStream

' - TextStream.atendofstream

' - TextStream.readline

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Function Getlyrics (FSO)

Redup TextStream

Redup

File redup

'Ada beberapa cara untuk membuka file teks, dan banyak cara untuk membaca data dari file.

'Berikut adalah dua cara untuk membuka dan membaca file:

Set TextStream = fso.opentextFile (testfilePath & amp; & quot; beatlesoctopusgarden.txt & quot;, openfileForreading)

</a> <a name = readFromFile>

S = TextStream.readall & amp;

TextStream.Close

Setel file = fso.getFile (testfilePath & amp; & quot; beatlesbathroomwindow.txt & quot;)

Set TextStream = File.openastextStream (OpenFileForreading)

Lakukan sementara bukan textStream.atendofstream

S = S & amp;

Lingkaran

TextStream.Close

Getlyrics = s

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'BuildTestDirectory

'

' Tujuan:

'

'Buat hierarki direktori untuk mendemonstrasikan filesystemObject.

'

'Buat struktur hierarkis dalam urutan ini:

'

'C: Tes

'C: testreadme.txt

'C: Testbeatles

'C: testbeatlesoctopusgarden.txt

'C: TestBeatlesBathroomwindow.txt

'

'

'Menunjukkan yang berikut ini

'

' - FileSystemObject.driveexists

' - FileSystemObject.FolderExists

' - FileSystemObject.createFolder

' - FileSystemObject.createTextFile

' - folder.add

' - folder.createTextFile

' - TextStream.WriteLine

' - TextStream.Close

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

</a> <a name = folderInfo>

Function buildTestDirectory (FSO)

Redup testfolder

Subfolder redup

Subfolder redup

Redup TextStream

'Tidak termasuk (a) drive tidak ada, atau (b) direktori yang akan dibuat sudah ada.

Jika tidak fso.driveexists (testdrive) maka

BuildTestDirectory = false

Fungsi keluar

Akhiri jika

Jika fso.Folderexists (testfilePath) maka

BuildTestDirectory = false

Fungsi keluar

Akhiri jika

Set TestFolder = FSO.CreateFolder (TestFilePath)

Atur textStream = fso.createTextFile (testfilePath & amp; & quot; readme.txt & quot;)

TextStream.WriteLine (& quot; koleksi lirik lagu saya & quot;)

TextStream.Close

Atur subfolder = testfolder.subfolder

Set Subfolder = Subfolders.Add ("Beatles")

Subfolder CreateLyrics

BuildTestDirectory = true

Fungsi akhir

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

'

'Program utama

'

'Pertama, itu membuat direktori tes, serta beberapa subfolder dan file.

'Lalu, itu membuang beberapa informasi tentang drive disk yang tersedia dan menguji direktori,

'Akhirnya, hapus direktori uji dan semua isinya.

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang yang ”yang” ”yang”' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' ''

Sub utama

Redup fso

'Mengatur variabel global.

Tabstop = chr (9)

Newline = chr (10)

</a> <a name = createFSO>

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

Jika bukan BuildTestDirectory (FSO) maka

Cetak "Direktori Tes sudah ada atau tidak dapat dibuat. Tidak dapat melanjutkan."

Keluar Sub

Akhiri jika

Print GeneredRiveInformation (FSO) & amp;

Cetak generatestinformation (FSO) & amp;

Cetak Getlyrics (FSO) & amp;

DeleteTestDirectory (FSO)

Akhir sub