File System Object


Me.lst.Clearim fso As new scripting.FilesystemObject

Dim drs as scripting.Drives

Set drs=fso.Drives

Dim dr as Scripting.Drive

For each dr In drs

if dr,IsReady Then

With Me.lst

.AddItem (dr.DriveLetter)

.AddItem (vbTab & dr.VolumeName)

.AddItem (vbTab & dr.FileSystem)

.AddItem (vbTab & dr.TotalSize)

.AddItem (vbTab & dr.FreeSpace)

.AddItem (vbTab & dr.AvailableSpace)

.AddItem (vbTab & dr.SerialNumber)

.AddItem (vbNullString)

End with

End if

Next dr

Set fso=Nothing

2 responses to “File System Object

  1. Pingback: Recent Links Tagged With "sourcecode" - JabberTags

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s