اقرأ جميع الملفات في الدليل (بما في ذلك جميع الملفات في الدليل الفرعي)

******************************

في كثير من الأحيان ، قد نحتاج إلى جزء من التعليمات البرمجية التي ستحصل على جميع اللاعبين الفرعيين من الخادم وأيضًا جميعها

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

سوف يقوم السطر التالي من رمز ASP بتخطيط مجلد محدد ويبحث عن جميع المراكز الفرعية

(ليس بشكل متكرر ، يمكن توسيع الكود للقيام به) ويقرأ جميع الملفات (الملفات النصية بشكل أساسي) واحدة تلو الأخرى.

يمكنك تحديد أي اسم مجلد ، في الملاحظات الواردة في الكود (من الداخل)

"إنشاء كائن نظام الملفات

تعيين نظام الملفات = server.createBject (scripting.filesystemObject)

Dim DBConn

المجلد = server.mappath (مسار المجلد الرئيسي)

تعيين sfolder = fileystem.getFolder (FolderPath) .Subfolders

لكل مجلد في sfolder

تعيين الملفات = FOLDERITEM.FILES

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

fname = server.mappath (مسار المجلد الرئيسي و folderitem.name & / & fileitem.name

تعيين ملف = fileystem.opentextFile (fname ، 1 ، خطأ)

بينما file.atendofstream <> صحيح

سجل = split (file.readline ، ~)

ويند

file.close

FileSystem.DeleteFile (fname)

التالي

التالي

******************************