Getting Amount Free Disk Space On A Drive

[mrclinker]

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

 

[Bob Phillips]

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)

 

[Ardus Petus]

In VBE: Tools>References tick Microsoft Scripting Runtime

Function FreeSpace(sDriveName As String)
Static oFSO As FileSystemObject
If oFSO Is Nothing Then Set oFSO = New FileSystemObject
FreeSpace = oFSO.GetDrive(sDriveName).FreeSpace
End Function

HTH