<% DriveObject.DriveType() %>
<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Drive Object</title> </head> <body> <% Dim objFSO, objDrive Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objDrive = objFSO.GetDrive("C:") Response.Write "DriveLetter : " & objDrive.DriveLetter & "<br>" Response.Write "DriveType : " & objDrive.DriveType & "<br>" Response.Write "IsReady : " & objDrive.IsReady & "<br>" Response.Write "FileSystem : " & objDrive.FileSystem & "<br>" Response.Write "Path : " & objDrive.Path & "<br>" Response.Write "RootFolder : " & objDrive.RootFolder & "<br>" Response.Write "ShareName : " & objDrive.ShareName & "<br>" Response.Write "SerialNumber : " & objDrive.SerialNumber & "<br>" Response.Write "VolumeName : " & objDrive.VolumeName & "<br>" Response.Write "AvailableSpace : " & objDrive.AvailableSpace & " bytes<br>" Response.Write "FreeSpace : " & objDrive.FreeSpace & " bytes <br/>" Response.Write "TotalSize : " & objDrive.TotalSize & " bytes" Set objFSO = Nothing Set objDrive = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท