<%
redup objolder
redup objfso
redup j
atur fso = server.createObject (scripting.filesystemObject)
atur objolder = fso.getFolder (d:/)
Jika objolder.size> 0 lalu
j = 0
untuk setiap objfile di objolder.files
j = j+1
Berikutnya
Jika j> 0 maka 'ada file di disk ini, ada total file j
.....
kalau tidak
..... 'tidak ada file di disk ini
akhiri jika
kalau tidak
..... 'tidak ada file di disk ini
akhiri jika
%>