<%@ Page Language="VB" %> <script runat="server"> Sub Page_Load(sender As Object, e As EventArgs) Dim Fso,Drive As Object Fso = Server.CreateObject("Scripting.FileSystemObject") Drive = Fso.GetDrive("C:") Me.lblText.Text = ("Drive C: = " &FormatNumber((Drive.TotalSize)/1024/1024/1024,0)&" GB") Fso = nothing Drive = nothing End Sub </script> <html> <head> <title>ThaiCreate.Com ASP.NET - Server Object</title> </head> <body> <form runat="server"> <asp:Label id="lblText" runat="server"></asp:Label><br /> </form> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 05
