วิธีตรวจสอบว่ามีไฟล์บนดิสก์หรือไม่

-

Dim objfolder

Dim objfso

หรี่

ตั้งค่า fso = server.createObject (scripting.filesystemobject)

ตั้งค่า objfolder = fso.getFolder (d:/)

ถ้า objfolder.size> 0 แล้ว

J = 0

สำหรับแต่ละ objfile ใน objfolder.files

j = j+1

ต่อไป

ถ้า j> 0 แล้ว 'มีไฟล์ในดิสก์นี้มีไฟล์ j ทั้งหมด

-

อื่น

..... 'ไม่มีไฟล์บนดิสก์นี้

สิ้นสุดถ้า

อื่น

..... 'ไม่มีไฟล์บนดิสก์นี้

สิ้นสุดถ้า

-