Sayfayı çalıştırdığınız zaman bilgisayarınızdaki sürücüleri, sürücülerin boş alanlarını ve toplam alanlarını gösteren bir kod.Uygulamada terimler türkçe olarak değiştirilmiştir.Kodu .asp uzantılı olacak şekilde herhangi bir isimde kayıt edip çalıştırmanız yeterli olacaktır.



<%
Sub writeLn(strVal)
Response.write strVal & "
"
end sub

on error resume next
set objFS = server.CreateObject("Scripting.FileSystemObject")
for each drive in objFS.Drives
 

    writeLn "<b>Sürücü : " &  drive.DriveLetter & "</b>"
    writeln ""
 
  if

İçeriğin devamı sadece üyeler içindir!