الوظائف التي تجتاز الدلائل والملفات في الدلائل

<٪@ language = vbscript ٪>

<٪ وظيفة bianli (المسار)

set fso = server.createObject (scripting.filesystemObject)

عند استئناف الخطأ التالي

تعيين objfolder = fso.getfolder (المسار)

تعيين objsubfolders = objfolder.subfolders

لكل Objsubfolder في Objsubfolders

nowpath = path + / + objsubfolder.name

استجابة. write nowpath

تعيين objfiles = objsubfolder.files

لكل objfile في Objfiles

الرد. write <br> ---

الرد. write objfile.name

التالي

استجابة. write <p>

بيانلي (nowpath) '递归

التالي

تعيين objfolder = لا شيء

تعيين objsubfolders = لا شيء

تعيين fso = لا شيء

وظيفة نهاية

٪>

<٪

Bianli (D :) '遍历 D: 盘

٪>

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

很不错哦。