يتم نسخ التعليمات البرمجية المطبقة في ASP لإرجاع عدد الملفات الموجودة في مجلد محدد على النحو التالي:
'إرجاع عدد الملفات في المجلد المحدد، قيمة الإدخال هي المسار المطلق للقرص الصلب للمجلد المكتشف
الدالة CountFilesNumber (مواصفات المجلد)
خافت objfso،f،fc
تعيين objfso=CreateObject(Scripting.FileSystemObject)
تعيين f=objfso.GetFolder(folderspec)
تعيين fc=f.Files
CountFilesNumber=fc.Count
تعيين FC = لا شيء
تعيين و = لا شيء
تعيين objfso=لا شيء
وظيفة النهاية