OpenTextFile

OpenTextFile
OpenTextFile ; TextStream Nesnesi bölümde ayrıntıları bulabilirsiniz.

Drives :

Sürücü Koleksiyonu

Bir bilgisayar üzerindeki tüm sürücüleri içeren bir dizi değişken döndürür

<%
Dim DosyaSistemi, Surucu, Suruculer
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Set Suruculer = DosyaSistemi.Drives
For Each Surucu In Suruculer
%>
<b>Sürücü:</b> <%=Surucu.DriveLetter%><br>
<% If Surucu.IsReady = True Then%>
<b>Disk Adı:</b> <%=Surucu.VolumeName%><br>
<b>Boş alan:</b> <%=Surucu.FreeSpace%><br>
<% Else %>
<i>Sürücü hazır değil!</i><br>
<% End If
Next %>
Yukardaki Örnek sunucunun disk-disket-CD-ROM durumunu size listeleyecektir