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

จะตรวจสอบได้อย่างไรว่ามีไฟล์บนดิสก์หรือไม่? ฉันเชื่อว่าหลายคนจะอยากรู้ว่าเราควรตัดสินอย่างไร? ทีนี้ลองมาดูวิธีการเพื่อตรวจสอบว่ามีไฟล์บนดิสก์หรือไม่ เพื่อนที่สนใจมาดู

-

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 ทั้งหมด

-

อื่น

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

สิ้นสุดถ้า

อื่น

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

สิ้นสุดถ้า

-

ข้างต้นเป็นเนื้อหาทั้งหมดของบทความนี้ ฉันหวังว่ามันจะเป็นประโยชน์ต่อการเรียนรู้ของทุกคนและฉันหวังว่าทุกคนจะสนับสนุนช่องเทคโนโลยีใหม่ที่ผิด