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