Function GetDriveSpace(DriveLetter As String)
Dim oFSO As Object, oDrive As Object
If Right(DriveLetter, 1) < ":" Then DriveLetter = DriveLetter & ":"
Set oFSO = CreateObject("Scripting.FileSystemobject")
Set oDrive = oFSO.getDrive(DriveLetter)
GetDriveSpace = oDrive.freespace
Set oDrive = Nothing
Set oFSO = Nothing
End Function


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"mrclinker" wrote
in message ...

Dear experts:

I want to get the amount of free disk space on a drive or network
mapped drive, and store it in a cell. ¿How can you do that?

Thank you very much,

Mr.Clinker
Uruguay


--
mrclinker
------------------------------------------------------------------------
mrclinker's Profile:
http://www.excelforum.com/member.php...o&userid=33907
View this thread: http://www.excelforum.com/showthread...hreadid=541510