รหัสที่ใช้ใน ASP เพื่อส่งคืนจำนวนไฟล์ในโฟลเดอร์ที่ระบุ จะถูกคัดลอกดังนี้:
'ส่งคืนจำนวนไฟล์ในโฟลเดอร์ที่ระบุ ค่าอินพุตคือเส้นทางที่แน่นอนของฮาร์ดดิสก์ของโฟลเดอร์ที่ตรวจพบ
ฟังก์ชั่น CountFilesNumber (ข้อมูลจำเพาะโฟลเดอร์)
ดิม objfso,f,fc
ตั้งค่า objfso=CreateObject(Scripting.FileSystemObject)
ตั้งค่า f=objfso.GetFolder(folderspec)
ตั้งค่า fc=f.Files
CountFilesNumber=fc.Count
ตั้ง fc=ไม่มีอะไร
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า objfso=nothing
ฟังก์ชันสิ้นสุด