ASP MagicDisk Component

The MagicDisk should be your standard component if you want to have robust, crash-proof application. In just couple lines of code you can get all disk information that you need, such as free space and disk total capacity. It even calculates used and free space percent. Based on this information you can allow or disallow some user actions, but you may be sure that your application or server will not crash because of insufficient disk space.

Purchasing MagicDisk Component

Evaluation of MagicDisk Component

Support

Installation

Working with MagicDisk

Evaluation of MagicDisk Component
Click here to download a 30-days evaluation copy of MagicDisk Component.

Purchasing MagicDisk Component

You can order MagicDisk on-line or by phone from The Registration Network.

Also, you may order by sending check to to: Dana Consulting Inc. (in the memo field specify MagicDisk)
Send it to:
Dana Consulting Inc.
14936 CreditView Drive
Savage, MN 55378

Please, print, fill out and enclose Order Form located in OrderForm.html file

Support
With any questions and/or suggestions email to support@dana-net.com.

 

Installation

  1. Stop the web server using the Service Manager.

 

  1. To register MagicDisk component move the MagicDisk.dll into a subdirectory (like \winnt\system32 for NT). To register the component on the system change to the directory where you installed the DLL and type: regsvr32 MagicDisk.dll
  2. Run Register.exe program, which comes with a component. Leave the Key filed empty and make sure you have word Evaluation in the name field and have the right component chosen under Component pull-down menu. Click Register button. It will give you a message saying when your component expires.
  3. Restart the web server.

Working with MagicDisk

To call the MagicDisk Object from an Active Server Page, you will need to create the object using the following code:

<%
Dim myTotalSpace
Dim myFreeSpace
Dim myFreePercent
Dim myUsedPercent
Set MyObj=Server.CreateObject("MagicDisk.Tricks")
Call MyObj.SetDisk ("c:\")
myTotalSpace=MyObj.GetTotalSpace
myFreeSpace=myobj.GetFreeSpace
myFreePercent=myobj.GetFreePercent
myUsedPercent=myobj.GetUsedPercent
strFreePercent=myFreePercent*100
strUsedPercent=myUsedPercent*100
response.write ("Total Disk Space: " & myTotalSpace & " bytes <br>")
response.write("Free Space: " & myFreeSpace & " bytes <br>")
response.write("Free Space is: " & strFreePercent & "% <br>")
response.write("Used Space is: " & strUsedPercent & "% <br>")
if myFreePercent < 0.2 then
    response.write "<b>You have left less then 20% of disk space</b>"
end if
%>

Remember to enclose the code within <% %> brackets.