<％
DIM OBJFOLDER
dim objfso
dim j
fso = server.createObject（scripting.filesystemObject）を設定します
objfolder = fso.getFolder（d：/）を設定します
objfolder.size> 0の場合
j = 0
objfolder.filesの各objfileについて
j = j+1
次
J> 0の場合、このディスクにファイルがあります、合計jファイルがあります
.....
それ以外
..... 'このディスクにファイルはありません
ifを終了します
それ以外
..... 'このディスクにファイルはありません
ifを終了します
％>