FileSystemObject ตัวอย่างโค้ด _asp บทช่วยสอน

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

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

-

'ไฟล์ตัวอย่าง filesystemobject

-

'ลิขสิทธิ์ 1998 Microsoft Corporation สงวนลิขสิทธิ์

-

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

ตัวเลือกอย่างชัดเจน

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

-

ต่อไปนี้เป็นเนื้อหาที่ยกมา:

-

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

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

-

'ตัวแปรทั่วโลกที่หาได้ง่าย

-

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

Dim Tabstop

Dim Newline

const testdrive = "c"

Const TestFilePath = "C: TEST"

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

-

'คืนค่าคงที่โดย drive.drivetype

-

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

const drivetyperemovable = 1

const driveetypefixed = 2

const driveetypenetwork = 3

const drivetypecdrom = 4

const drivetyperamdisk = 5

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

-

'คืนค่าคงที่โดย file.attributes

-

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

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

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

-

'ค่าคงที่ใช้ในการเปิดไฟล์

-

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

Const OpenFileForReading = 1

Const OpenFileForWriting = 2

const openfileforappending = 8

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

-

'Showdrivetype

-

' วัตถุประสงค์:

-

'สร้างสตริงที่อธิบายประเภทไดรฟ์ของวัตถุไดรฟ์ที่กำหนด

-

'แสดงสิ่งต่อไปนี้

-

' - drive.drivetype

-

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

ฟังก์ชั่น ShowdriveType (ไดรฟ์)

สลัว

เลือก case drive.drivetype

ตัวเรือน

s = "ถอดออกได้"

ตัวพิมพ์ใหญ่

s = "แก้ไข"

case driveetypenetwork

s = "เครือข่าย"

ตัวพิมพ์ใหญ่

s = "cd-rom"

เคส Drivetyperamdisk

S = "Ram Disk"

กรณีอื่น

s = "ไม่ทราบ"

สิ้นสุดเลือก

ShowDrivetype = S

ฟังก์ชันสิ้นสุด

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

-

'showfileattr

-

' วัตถุประสงค์:

-

'สร้างสตริงที่อธิบายคุณสมบัติของไฟล์หรือโฟลเดอร์

-

'แสดงสิ่งต่อไปนี้

-

' - file.attributes

' - folder.attributes

-

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

ไฟล์ function showfileattr (ไฟล์) 'อาจเป็นไฟล์หรือโฟลเดอร์

สลัว

สลัว attr

attr = file.attributes

ถ้า attt = 0 แล้ว

showfileattr = "ปกติ"

ฟังก์ชั่นออก

สิ้นสุดถ้า

ถ้า Attr และ Fileattrdirectory แล้ว S = S & amp;

ถ้า attr และ fileattrreadonly แล้ว s & amp;

หาก Attr และ Fileattrhidden แล้ว S = S & amp;

หาก Attr และ Fileattrsystem แล้ว S = S & amp;

ถ้า Attr และ Fileattrvolume ดังนั้น S = S & amp;

ถ้า Attr และ FileatTrarchive แล้ว S = S & amp;

ถ้า Attr และ Fileattralias ดังนั้น S = S & amp;

หาก Attr และ Fileattrcompressed ดังนั้น S = S & amp;

showfileattr = s

ฟังก์ชันสิ้นสุด

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

-

'generatedriveinformation

-

' วัตถุประสงค์:

-

'สร้างสตริงที่อธิบายสถานะปัจจุบันของไดรฟ์ที่มีอยู่

-

'แสดงสิ่งต่อไปนี้

-

' - filesystemobject.drives

' - การวนซ้ำคอลเลกชันไดรฟ์

' - ไดรฟ์นับ

' - drive.availablespace

' - Drive.driveletter

' - drive.drivetype

' - Drive.Filesystem

' - drive.freespace

' - drive.isread

' - drive.path

' - drive.serialnumber

' - drive.sharename

' - drive.totalsize

' - drive.volumename

-

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

ฟังก์ชั่น generatedriveInformation (FSO)

ไดรฟ์หรี่

ไดรฟ์หรี่

สลัว

ตั้งค่าไดรฟ์ = fso.drives

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;

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;

S = S & amp;

S = S & amp;

ถ้า drive.isread แล้ว

ถ้า drivetypenetwork = drive.drivetype แล้ว

S = S & amp;

อื่น

S = S & amp;

สิ้นสุดถ้า

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

สิ้นสุดถ้า

S = S & amp;

ต่อไป

generatedriveInformation = s

ฟังก์ชันสิ้นสุด

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

-

'GenerateFileInformation

-

' วัตถุประสงค์:

-

'สร้างสตริงเพื่ออธิบายสถานะปัจจุบันของไฟล์

-

'แสดงสิ่งต่อไปนี้

-

' - file.path

' - file.name

' - file.type

' - file.dateCreated

' - file.datelastaccessed

' - file.datelastmodified

' - file.size

-

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

ฟังก์ชั่น GenerateFileInformation (ไฟล์)

สลัว

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

ฟังก์ชันสิ้นสุด

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

-

'GenerateFolderInformation

-

' วัตถุประสงค์:

-

'สร้างสตริงเพื่ออธิบายสถานะปัจจุบันของโฟลเดอร์

-

'แสดงสิ่งต่อไปนี้

-

' - โฟลเดอร์

' - folder.name

' - folder.dateCreated

' - Folder.Datelastaccessed

' - folder.datelastmodified

' - โฟลเดอร์

-

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

ฟังก์ชั่น GenerateFolderInformation (โฟลเดอร์)

สลัว

S = "PATH:" & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

S = S & amp;

generateFolderInformation = s

ฟังก์ชันสิ้นสุด

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

-

'GenerateAllFolderInformation

-

' วัตถุประสงค์:

-

'สร้างสตริงเพื่ออธิบายสถานะปัจจุบันของโฟลเดอร์และไฟล์และโฟลเดอร์ย่อยทั้งหมด

-

'แสดงสิ่งต่อไปนี้

-

' - โฟลเดอร์

' - Folder.subfolders

' - folders.count

-

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

ฟังก์ชั่น GenerateAllFolderInformation (โฟลเดอร์)

สลัว

โฟลเดอร์ย่อยสลัว

สลัวโฟลเดอร์

ไฟล์สลัว

หรี่ไฟล์

s = "โฟลเดอร์:" amp;

SET FILES = Folder.Files

ถ้า 1 = files.count แล้ว

S = S & amp;

อื่น

s = s & amp;

สิ้นสุดถ้า

ถ้า files.count & lt; & gt;

สำหรับแต่ละไฟล์ในไฟล์

S = S & amp;

ต่อไป

สิ้นสุดถ้า

ตั้งค่า subfolders = folder.subfolders

ถ้า 1 = subfolders.count แล้ว

S = S & amp;

อื่น

s = s & amp;

สิ้นสุดถ้า

ถ้า subfolders.count & lt; & gt;

สำหรับแต่ละโฟลเดอร์ย่อยในโฟลเดอร์ย่อย

S = S & amp;

ต่อไป

S = S & amp;

สำหรับแต่ละโฟลเดอร์ย่อยในโฟลเดอร์ย่อย

S = S & amp;

ต่อไป

สิ้นสุดถ้า

GenerateAllFolderInformation = S

ฟังก์ชันสิ้นสุด

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

-

'generatetestinformation

-

' วัตถุประสงค์:

-

'สร้างสตริงเพื่ออธิบายสถานะปัจจุบันของโฟลเดอร์ C: ทดสอบและไฟล์และโฟลเดอร์ย่อยทั้งหมด

-

'แสดงสิ่งต่อไปนี้

-

' - filesystemobject.driveexists

' - filesystemobject.folderexists

' - filesystemobject.getFolder

-

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

ฟังก์ชั่น GenerAtetestinformation (FSO)

Dim Testfolder

สลัว

ถ้าไม่ใช่ fso.driveexists (testDrive) จากนั้นออกจากฟังก์ชัน

ถ้าไม่ใช่ fso.folderexists (testFilePath) จากนั้นออกจากฟังก์ชัน

SET TESTFOLDER = FSO.GETFOLDER (TestFilePath)

GenerAtetestInformation = GenerateAllFolderInformation (TestFolder)

ฟังก์ชันสิ้นสุด

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

-

'DELETETESTDIRECTORY

-

' วัตถุประสงค์:

-

'ทำความสะอาดไดเรกทอรีทดสอบ

-

'แสดงสิ่งต่อไปนี้

-

' - filesystemobject.getFolder

' - filesystemobject.deletefile

' - filesystemobject.deletefolder

' - folder.delete

' - file.delete

-

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

sub deleTetestDirectory (FSO)

Dim Testfolder

สลัวโฟลเดอร์

หรี่ไฟล์

<a name = deleteFile>

'มีสองวิธีในการลบไฟล์:

fso.deletefile (testfilepath & amp; & quot; Beatlesoctopusgarden.txt & quot;)

ตั้งค่าไฟล์ = fso.getFile (testFilePath & amp; & quot; Beatlesbathroomwindow.txt & quot;)

file.delete

'มีสองวิธีในการลบโฟลเดอร์:

fso.deletefolder (testfilepath & amp; & quot; Beatles & quot;)

fso.deletefile (testfilepath & amp; & quot; readme.txt & quot;)

SET TESTFOLDER = FSO.GETFOLDER (TestFilePath)

testfolder.delete

สิ้นสุดย่อย

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

-

'createlyrics

-

' วัตถุประสงค์:

-

'สร้างไฟล์ข้อความสองไฟล์ในโฟลเดอร์

-

-

'แสดงสิ่งต่อไปนี้

-

' - filesystemobject.createtextfile

' - textStream.writeLine

' - textStream.write

' - textStream.writeBlanklines

' - textstream.close

-

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

Sub Createlyrics (โฟลเดอร์)

สลัวข้อความสตรีม

</a> <a name = createTextFile>

ตั้งค่า textStream = folder.createtextfile (& quot; octopusgarden.txt & quot;)

</a> <a name = writetofile>

TextStream.write (& quot; Octopus 'Garden & quot;)' โปรดทราบว่าคำสั่งนี้ไม่ได้เพิ่มบรรทัด wraps ลงในไฟล์

TextStream.WriteLine (& quot; (โดย Ringo Starr) & quot;)

TextStream.writeBlanklines (1)

TextStream.writeline (& quot; ฉันอยากอยู่ใต้ทะเลในสวนปลาหมึกยักษ์ในที่ร่ม & quot;)

TextStream.Writeline (& quot; เขาขอให้เรารู้ว่าเราอยู่ที่ไหน - ในสวนปลาหมึกยักษ์ของเขาในที่ร่ม & quot;)

TextStream.writeBlanklines (2)

</a> <a name = close>

textstream.close

ตั้งค่า textStream = folder.createTextFile (& quot; BathroomWindow.txt & quot;)

TextStream.Writeline (& quot; เธอเข้ามาในหน้าต่างห้องน้ำ (โดย Lennon/McCartney) & quot;)

TextStream.WriteLine (& quot; & quot;)

TextStream.writeline ("เธอเข้ามาในหน้าต่างห้องน้ำที่ได้รับการปกป้องด้วยช้อนเงิน")

TextStream.writeline (& quot; แต่ตอนนี้เธอดูดนิ้วโป้งและเดินของเธอโดยธนาคารของทะเลสาบของเธอเอง & quot;)

TextStream.writeBlanklines (2)

textstream.close

สิ้นสุดย่อย

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

-

'Getlyrics

-

' วัตถุประสงค์:

-

'แสดงเนื้อหาของไฟล์เนื้อเพลง

-

-

'แสดงสิ่งต่อไปนี้

-

' - filesystemobject.opentextfile

' - filesystemobject.getFile

' - textStream.readall

' - textstream.close

' - file.openastextstream

' - textStream.atendofstream

' - textStream.readline

-

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

ฟังก์ชั่น getlyrics (FSO)

สลัวข้อความสตรีม

สลัว

หรี่ไฟล์

'มีหลายวิธีในการเปิดไฟล์ข้อความและหลายวิธีในการอ่านข้อมูลจากไฟล์

'นี่คือสองวิธีในการเปิดและอ่านไฟล์:

SET TEXTSTREAM = FSO.OPENTEXTFILE (testFilePath & amp; & quot; Beatlesoctopusgarden.txt & quot; OpenFileForreading)

</a> <a name = readFromFile>

S = TextStream.readall & amp;

textstream.close

ตั้งค่าไฟล์ = fso.getFile (testFilePath & amp; & quot; Beatlesbathroomwindow.txt & quot;)

ตั้งค่า textStream = file.openastextstream (OpenFileForReading)

ทำในขณะที่ไม่ใช่ textstream.atendofstream

S = S & amp;

วง

textstream.close

getlyrics = s

ฟังก์ชันสิ้นสุด

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

-

'buildtestdirectory

-

' วัตถุประสงค์:

-

'สร้างลำดับชั้นของไดเรกทอรีเพื่อสาธิต FileSystemObject

-

'สร้างโครงสร้างลำดับชั้นในลำดับนี้:

-

'C: ทดสอบ

'c: testreadme.txt

'C: TestBeatles

'C: testBeatlesoctopusgarden.txt

'C: testBeatlesBathroomwindow.txt

-

-

'แสดงสิ่งต่อไปนี้

-

' - filesystemobject.driveexists

' - filesystemobject.folderexists

' - filesystemobject.createFolder

' - filesystemobject.createtextfile

' - folders.add

' - folder.createTextFile

' - textStream.writeLine

' - textstream.close

-

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

</a> <a name = folderInfo>

ฟังก์ชั่น buildtestdirectory (FSO)

Dim Testfolder

โฟลเดอร์ย่อยสลัว

สลัวโฟลเดอร์

สลัวข้อความสตรีม

'ยกเว้น (a) ไดรฟ์ไม่มีอยู่หรือ (b) ไดเรกทอรีที่จะสร้างอยู่แล้ว

ถ้าไม่ใช่ fso.driveexists (testdrive) แล้ว

buildTestDirectory = false

ฟังก์ชั่นออก

สิ้นสุดถ้า

ถ้า fso.folderexists (testFilePath) แล้ว

buildTestDirectory = false

ฟังก์ชั่นออก

สิ้นสุดถ้า

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

ตั้งค่า subfolders = testfolder.subfolders

ตั้งค่า subfolder = subfolders.add ("Beatles")

Createlyrics Subfolder

buildTestDirectory = true

ฟังก์ชันสิ้นสุด

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

-

'โปรแกรมหลัก

-

'ก่อนอื่นมันสร้างไดเรกทอรีทดสอบรวมถึงโฟลเดอร์ย่อยและไฟล์บางส่วน

'จากนั้นมันทิ้งข้อมูลบางอย่างเกี่ยวกับไดรฟ์ดิสก์ที่มีอยู่และไดเรกทอรีทดสอบ

'ในที่สุดล้างไดเรกทอรีทดสอบและเนื้อหาทั้งหมด

-

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

หลักย่อย

สลัว fso

'ตั้งค่าตัวแปรทั่วโลก

tabstop = Chr (9)

newLine = Chr (10)

</a> <a name = createfso>

ตั้งค่า fso = createObject (& quot; scripting.filesystemobject & quot;)

ถ้าไม่ใช่ buildTestDirectory (FSO) แล้ว

พิมพ์ "ไดเรกทอรีทดสอบมีอยู่แล้วหรือไม่สามารถสร้างได้ไม่สามารถดำเนินการต่อได้"

ออกจากย่อย

สิ้นสุดถ้า

PRINTEDREATIONFORMATION (FSO) & amp;

พิมพ์ GenerAtestinformation (FSO) & amp;

พิมพ์ Getlyrics (FSO) & amp;

DELETETESTDIRECTORY (FSO)

สิ้นสุดย่อย