ColdFusion 8 - GetDriveInfo() UDF Powered By .NET

This is an example that I used when demonstrating ColdFusion 8 .NET integration

May. 31, 2007 08:30 AM

Ben Forta's Blog

This is an example that I used when demonstrating ColdFusion 8 .NET integration on the recent usergroup tour, and as requested, I am posting it publicly. GetDriveInfo() returns a query containing specifics about the hard drives on your server, it returns all drives unless an optional drive letter is passed to it. GetDriveInfo() uses the .NET System.IO.DriveInfo class (which was introduced in .NET 2, and thus this example requires .NET 2 or 3).

Here is the code:


<cffunction name="GetDriveInfo" returntype="query" output="false">
   <cfargument name="drive" required="no" default="">

   
   <cfset var result=QueryNew("name,type,isready,format,label,totalsize,freespace",
                     "varchar,varchar,bit,varchar,varchar,double,double")>
   <cfset var sidiClass="">
   <cfset var drives="">
   <cfset var i=0>

   
   <cfobject type=".NET"
            name="sidiClass"
            class="System.IO.DriveInfo">
   
   <cfset drives=sidiClass.GetDrives()>

   
   <cfloop from="1" to="#ArrayLen(drives)#" index="i">
      
      <cfif ARGUMENTS.drive IS ""
         OR ARGUMENTS.drive EQ drives[i].Get_Name()
         OR (Len(ARGUMENTS.drive) IS 1
            AND ARGUMENTS.drive EQ Left(drives[i].Get_Name(), 1))>
         
         <cfset QueryAddRow(result)>
         
         <cfset QuerySetCell(result, "name", drives[i].Get_Name())>
         <cfset QuerySetCell(result, "type", drives[i].Get_DriveType().ToString())>
         <cfset QuerySetCell(result, "isready", drives[i].Get_IsReady())>
         
         <cfif drives[i].Get_IsReady()>
            <cfset QuerySetCell(result, "format", drives[i].Get_DriveFormat())>
            <cfset QuerySetCell(result, "label", drives[i].Get_VolumeLabel())>
            <cfset QuerySetCell(result, "totalsize", drives[i].Get_TotalSize())>
            <cfset QuerySetCell(result, "freespace", drives[i].Get_AvailableFreeSpace())>
         </cfif>
      </cfif>
   </cfloop>

   
   <cfreturn result>

</cffunction>

And here is a simple test example:


<h3>All Drives</h3>
<cfdump var="#GetDriveInfo()#">


<h3>C: Drive</h3>
<cfdump var="#GetDriveInfo("C")#">


<h3>Free Space On C Drive</h3>
<cfdump var="#NumberFormat(GetDriveInfo("C").freespace)#">

Published May. 31, 2007— Reads 9,765 — Feedback 1
Copyright © 2007 SYS-CON Media, Inc. — All Rights Reserved.
Syndicated stories and blog feeds, all rights reserved by the author.

About Ben Forta
Ben Forta is Adobe's Senior Technical Evangelist. In that capacity he spends a considerable amount of time talking and writing about Adobe products (with an emphasis on ColdFusion and Flex), and providing feedback to help shape the future direction of the products. By the way, if you are not yet a ColdFusion user, you should be. It is an incredible product, and is truly deserving of all the praise it has been receiving. In a prior life he was a ColdFusion customer (he wrote one of the first large high visibility web sites using the product) and was so impressed he ended up working for the company that created it (Allaire). Ben is also the author of books on ColdFusion, SQL, Windows 2000, JSP, WAP, Regular Expressions, and more. Before joining Adobe (well, Allaire actually, and then Macromedia and Allaire merged, and then Adobe bought Macromedia) he helped found a company called Car.com which provides automotive services (buy a car, sell a car, etc) over the Web. Car.com (including Stoneage) is one of the largest automotive web sites out there, was written entirely in ColdFusion, and is now owned by Auto-By-Tel.

Latest Cloud Developer Stories

The Intersection of Data Virtualization and Enterprise Data Warehouses

By Robert Eve

Large enterprises and government agencies are drowning in data. IT teams deploy a myriad of data warehouse-centric solutions – BI, predictive analytics, data and content mining, portals and dashboards – to harness and deliver data for intelligent decision-making. Yet, large enter...

The Five Layers within Cloud Computing

By Ernest de Leon

As a preface to the series of articles I will be writing on the Value Proposition and Business Cases for Cloud Computing, I wanted to discuss the layers below and within the cloud. It is important to understand what each of the layers is composed of, what the intended function of...

The Next Sea Change Is Cloud Computing

By Yeshim Deniz

I've been at this 35 years and I've seen sea changes come and go. If you step back for a moment and look from a broad perspective, we've lived through the mainframeclient/server world and the Internet world. And now, the next sea change is cloud computing. The reality is that vis...

Cloud Expo New York Call for Papers Deadline December 15

By Jeremy Geelan

Cloud computing is a game changer. The cloud is disrupting traditional software and hardware business models by disrupting how IT service gets delivered. Entrepreneurial opportunities abound as this classic disruptive technology begins to proliferate, so it is no surprise that SY...

Cloud Expo New York Show Prospectus Mailed to More Than 100 Exhibitors

By Carmen Gonzalez

SYS-CON Events (http://events.sys-con.com) announced today that the "show prospectus" for the 5th International Cloud Computing Conference & Expo (www.CloudComputingExpo.com) is now shipping. 5th International Cloud Expo will take place April 19-21, 2010, at the Jacob Javits C...