كيفية تحديد ما إذا كانت هناك ملفات على قرص

<٪

قاتمة objfolder

قاتمة objfso

قاتمة ي

set fso = server.createObject (scripting.filesystemObject)

تعيين objfolder = fso.getfolder (d:/)

إذا كان objfolder.size> 0 ثم

J = 0

لكل objfile في objfolder.files

J = J+1

التالي

إذا كان j> 0 ثم هناك ملفات على هذا القرص ، فهناك ما مجموعه ملفات J

.....

آخر

..... 'لا يوجد ملف على هذا القرص

إنهاء إذا

آخر

..... 'لا يوجد ملف على هذا القرص

إنهاء إذا

٪>