FileSystemObject Sample Code_asp Tutorial

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

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

'

'FileSystemObject Sample Code

'

"حقوق الطبع والنشر 1998 Microsoft Corporation. جميع الحقوق محفوظة.

'

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

الخيار صريح

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

'

ما يلي هو المحتوى المقتبس:

'

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

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

'

بعض المتغيرات العالمية التي يمكن الحصول عليها بسهولة

'

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

Dim Tabstop

قاتمة Newline

const testDrive = "C"

const testfilepath = "C: اختبار"

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

'

"ثابت عائد بواسطة drive.drivetype

'

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

const drivetyperemovable = 1

const drivetypefixed = 2

const drivetypenetwork = 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 fileattrompressed = 128

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

'

الثابت المستخدم لفتح الملف

'

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

const openfileforreading = 1

const OpenFileforwriting = 2

const OpenFileForAppendending = 8

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

'

'showdrivetype

'

' غاية:

'

قم بإنشاء سلسلة تصف نوع محرك الأقراص لكائن محرك معين.

'

"إظهار ما يلي

'

' - drive.drivetype

'

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

وظيفة showdrivetype (محرك)

قاتمة

حدد case drive.drivetype

حالة drivetyperemovable

s = "قابلة للإزالة"

CASE CRIVETYPEFIXED

s = "ثابت"

حالة الحكم

s = "الشبكة"

Case SpriveTypecdrom

S = "CD-ROM"

حالة drivetyperamdisk

s = "قرص رام"

حالة أخرى

s = "غير معروف"

نهاية الاختيار

showdrivetype = s

وظيفة نهاية

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

'

'showfileattr

'

' غاية:

'

قم بإنشاء سلسلة تصف خصائص ملف أو مجلد.

'

"إظهار ما يلي

'

' - file.attributes

' - المجلد

'

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

وظيفة showfileattr (ملف) 'يمكن أن يكون ملف أو مجلد

قاتمة

DIM ATTR

attr = file.attributes

إذا attr = 0 ثم

showfiLeattr = "Normal"

وظيفة الخروج

إنهاء إذا

إذا كانت attr و fileattrdirectory ثم S = S & amp ؛

إذا كانت attr و fileattrreadonly ثم s = s & amp ؛

إذا كانت attr و fileattrhidden ثم S = S & amp ؛

إذا كان نظام ATTR و FileAttrsypy ثم S = S & amp ؛

إذا كانت attr و fileattrvolume ثم S = S & amp ؛

إذا كانت attr و fileattrarchive ثم S = S & amp ؛

إذا كانت attr و fileattralias ثم S = s & amp ؛

إذا كانت attr و fileattrombressed ثم s = s & amp ؛

showfiLeattr = s

وظيفة نهاية

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

'

'

'

' غاية:

'

قم بإنشاء سلسلة تصف الحالة الحالية لمحرك الأقراص المتاح.

'

"إظهار ما يلي

'

' - fileystemobject.drives

' - تكرار مجموعة محركات الأقراص

' - محركات الأقراص

' - drive.availablespace

' - drive.driveletter

' - drive.drivetype

' - drive.filesystem

' - drive.freespace

' - drive.isready

' - Drive.Path

' - Drive.SerialNumber

' - drive.sharename

' - drive.totalsize

' - drive.volumename

'

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

وظيفة enderatedRiveInformation (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.isready ثم

إذا تم تحريكها = 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 ؛

التالي

enderatedRiveInformation = s

وظيفة نهاية

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

'

'GenerateFileInformation

'

' غاية:

'

إنشاء سلسلة لوصف الوضع الحالي للملف.

'

"إظهار ما يلي

'

' - file.path

' - file.name

' - file.type

' - file.datecreated

' - file.datelastAccated

' - file.datelastmodified

' - file.size

'

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

وظيفة generateFileInformation (ملف)

قاتمة

s = newline & amp ؛

S = S & amp ؛

S = S & amp ؛

s & amp ؛

S = S & amp ؛

S = S & amp ؛

S = S & amp ؛

S = S & amp ؛

generatefileInformation = s

وظيفة نهاية

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

'

'GenerateFolderInformation

'

' غاية:

'

إنشاء سلسلة لوصف الوضع الحالي للمجلد.

'

"إظهار ما يلي

'

' - المجلد

' - المجلد

' - المجلد

' - المجلد

' - المجلد. datelastmodified

' - المجلد

'

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

وظيفة generatefolderInformation (مجلد)

قاتمة

S = "Path:" & amp ؛

S = S & amp ؛

s & amp ؛

S = S & amp ؛

S = S & amp ؛

S = S & amp ؛

S = S & amp ؛

generatefolderInformation = s

وظيفة نهاية

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

'

'GeneratealLoDerInformation

'

' غاية:

'

قم بإنشاء سلسلة لوصف الحالة الحالية للمجلد وجميع الملفات والمجلدات الفرعية.

'

"إظهار ما يلي

'

' - المجلد

' - المجلد

' - مجلدات

'

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

وظيفة generatealloDerInformation (مجلد)

قاتمة

المجلدات الفرعية الخافتة

المجلد الفرعي الخافت

ملفات قاتمة

ملف قاتمة

S = المجلد: "& amp ؛

اضبط الملفات = Folder.files

إذا 1 = files.count ثم

S = S & amp ؛

آخر

S = Amp ؛

إنهاء إذا

if files.count & lt ؛ & gt ؛

لكل ملف في الملفات

S = S & amp ؛

التالي

إنهاء إذا

تعيين المجلدات الفرعية = المجلد.

إذا كان 1 = المجلدات الفرعية.

S = S & amp ؛

آخر

s & amp newline & quot ؛

إنهاء إذا

إذا كانت المجلدات الفرعية

لكل مجلد فرعي في المجلدات الفرعية

S = S & amp ؛

التالي

S = S & amp ؛

لكل مجلد فرعي في المجلدات الفرعية

S = S & amp ؛

التالي

إنهاء إذا

generateallfolderInformation = s

وظيفة نهاية

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

'

'generateTestInformation

'

' غاية:

'

قم بإنشاء سلسلة لوصف الحالة الحالية لمجلد C: اختبار وجميع الملفات والمجلدات الفرعية.

'

"إظهار ما يلي

'

' - fileystemobject.drivexists

' - fileystemobject.folderexists

' - fileSystemObject.getFolder

'

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

وظيفة generatetestinformation (FSO)

خافت Testfolder

قاتمة

إذا لم يكن fso.drivexists (TestDrive) ، فإن وظيفة الخروج

إذا لم يكن fso.folderexists (testFilePath) ثم وظيفة الخروج

تعيين testfolder = fso.getfolder (testFilePath)

generateTestInformation = generatealloDerInformation (testfolder)

وظيفة نهاية

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

'

حذف

'

' غاية:

'

تنظيف دليل الاختبار.

'

"إظهار ما يلي

'

' - fileSystemObject.getFolder

' - fileSystemObject.deletefile

' - fileystemobject.deletefolder

' - المجلد

' - file.delete

'

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

Sub DeletEtestDirectory (FSO)

خافت Testfolder

المجلد الفرعي الخافت

ملف قاتمة

<a name = deletefile>

هناك طريقتان لحذف ملف:

fso.deletefile (testfilepath & amp ؛ & quot ؛ beatlesoctopusgarden.txt & quot ؛)

set file = 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 ؛)

تعيين testfolder = fso.getfolder (testFilePath)

testfolder.delete

نهاية الفرعية

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

'

'المعلقات

'

' غاية:

'

إنشاء ملفين نصي في المجلد.

'

'

"إظهار ما يلي

'

' - fileSystemObject.createTextFile

' - TextStream.Writeline

' - textstream.write

' - textstream.writeBlanklines

' - TextStream.Close

'

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

المخلوقات الفرعية (مجلد)

Dim Textstream

</a> <a name = createTextFile>

تعيين textstream = folder.createTextFile (& quot ؛ octopusgarden.txt & quot ؛)

</a> <a name = writetofile>

TextStream.write (& quot ؛ Octopus 'Garden & quot ؛) "لاحظ أن هذا البيان لا يضيف لفات الخط إلى الملف.

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 ؛ Bathratwindow.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)

Dim Textstream

قاتمة

ملف قاتمة

هناك طرق متعددة لفتح ملف نصي ، وطرق متعددة لقراءة البيانات من الملف.

فيما يلي طريقتان لفتح وقراءة الملفات:

تعيين 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 ؛)

تعيين textstream = file.openastextstream (OpenFileForReading)

افعل بينما لا TEXTSTEAM.ATENDOFSTEREAM

S = S & amp ؛

حلقة

TextStream.Close

getlyrics = s

وظيفة نهاية

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

'

'BuildTestDirectory

'

' غاية:

'

"قم بإنشاء التسلسل الهرمي للدليل لإظهار ملفات fileyStembject.

'

"إنشاء بنية هرمية بهذا الترتيب:

'

'ج: الاختبار

'C: TestReadMe.txt

'ج: testbeatles

'C: TestBeatlesoctopusgarden.txt

'C: TestBeatsBathRoomwindow.txt

'

'

"إظهار ما يلي

'

' - fileystemobject.drivexists

' - fileystemobject.folderexists

' - fileystemobject.createfolder

' - fileSystemObject.createTextFile

' - المجلدات

' - FOLDER.CREATETEXTFILE

' - TextStream.Writeline

' - TextStream.Close

'

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

</a> <a name = folderinfo>

وظيفة buildtestdirectory (FSO)

خافت Testfolder

المجلدات الفرعية الخافتة

المجلد الفرعي الخافت

Dim Textstream

"يستبعد (أ) محرك الأقراص غير موجود ، أو (ب) يوجد الدليل الذي سيتم إنشاؤه بالفعل.

إذا لم يكن fso.drivexists (TestDrive) ثم

BuildTestDirectory = خطأ

وظيفة الخروج

إنهاء إذا

إذا fso.folderexists (testFilePath) ثم

BuildTestDirectory = خطأ

وظيفة الخروج

إنهاء إذا

تعيين testfolder = fso.createfolder (testFilePath)

تعيين textstream = fso.createTextFile (testFilePath & amp ؛ & quot ؛ readme.txt & quot ؛)

TextStream.Writeline (& quot ؛ مجموعة كلمات الأغاني الخاصة بي & quot ؛)

TextStream.Close

تعيين المجلدات الفرعية = testfolder.subfolders

تعيين المجلد الفرعي = sublespers.add ("البيتلز")

المجلد الفرعي المخلوقات

BuildTestDirectory = صحيح

وظيفة نهاية

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

'

البرنامج الرئيسي

'

أولاً ، ينشئ دليل اختبار ، وكذلك بعض المجلدات الفرعية والملفات.

ثم ، يتفريغ بعض المعلومات حول محركات الأقراص المتاحة وأدلة الاختبار ،

أخيرًا ، امسح دليل الاختبار وجميع محتوياته.

'

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

الفرعي الرئيسي

قاتمة FSO

"إعداد المتغيرات العالمية.

tabstop = chr (9)

NewLine = CHR (10)

</a> <a name = createfso>

set fso = createObject (& quot ؛ scripting.filesystemObject & quot ؛)

إذا لم يكن بناء estdirectory (FSO) ثم

طباعة "دليل الاختبار موجود بالفعل أو لا يمكن إنشاؤه. لا يمكن الاستمرار."

الخروج الفرعي

إنهاء إذا

PrintRiveInformation (FSO) & amp ؛

PrintEntestInformation (FSO) & amp ؛

print getlyrics (fso) & amp ؛

DESETESTDIRECTORY (FSO)

نهاية الفرعية