a2k - find out diskspace remaining

[Deano]

Given a drive letter is there some cut and paste code out there that will
check the space remaining?
I want to be able to warn the user if the backup operation might not succeed
due to a lack of diskspace.

Haven't been able to track down what I need hence the post.

thanks
Martin

[David Schofield]

On Sat, 2 Oct 2004 20:25:23 +0100, "Deano" <ma**********@gmail.com>
wrote:

Given a drive letter is there some cut and paste code out there that will
check the space remaining?
I want to be able to warn the user if the backup operation might not succeed
due to a lack of diskspace.

Haven't been able to track down what I need hence the post.

thanks
Martin

Hi
Here's an amusing way of doing it. The free space can exceed long.
Set refs to include Microsoft Scripting Runtime

Function testit()
Dim FreeString As String
MsgBox "Free space on C is " & GetFreeSpace("C")
End Function

Private Function GetFreeSpace(ByVal strDriveLetter As String) As
Currency
Dim fso As Scripting.FileSystemObject
Dim dr As Scripting.Drive

Set fso = New Scripting.FileSystemObject
GetFreeSpace = fso.GetDrive(strDriveLetter).FreeSpace
Set fso = Nothing

End Function

Incidentally I found this out by typing "disk free space vba" into
Google and looking at the first reference returned. I did change it to
use the currenct type however!

David

[Deano]

David Schofield wrote:

On Sat, 2 Oct 2004 20:25:23 +0100, "Deano" <ma**********@gmail.com>
wrote:

Given a drive letter is there some cut and paste code out there that
will check the space remaining?
I want to be able to warn the user if the backup operation might not
succeed due to a lack of diskspace.

Haven't been able to track down what I need hence the post.

thanks
Martin

Hi
Here's an amusing way of doing it. The free space can exceed long.
Set refs to include Microsoft Scripting Runtime

Function testit()
Dim FreeString As String
MsgBox "Free space on C is " & GetFreeSpace("C")
End Function

Private Function GetFreeSpace(ByVal strDriveLetter As String) As
Currency
Dim fso As Scripting.FileSystemObject
Dim dr As Scripting.Drive

Set fso = New Scripting.FileSystemObject
GetFreeSpace = fso.GetDrive(strDriveLetter).FreeSpace
Set fso = Nothing

End Function

Cool, though it would be nice to have something that didn't require a
reference.

Incidentally I found this out by typing "disk free space vba" into
Google and looking at the first reference returned. I did change it to
use the currenct type however!

Roll on the semantic web I say.

[David Schofield]

On Sat, 2 Oct 2004 21:59:05 +0100, "Deano" <ma**********@gmail.com>
wrote:

David Schofield wrote:

On Sat, 2 Oct 2004 20:25:23 +0100, "Deano" <ma**********@gmail.com>
wrote:

Given a drive letter is there some cut and paste code out there that
will check the space remaining?
I want to be able to warn the user if the backup operation might not
succeed due to a lack of diskspace.

Haven't been able to track down what I need hence the post.

thanks
Martin

Hi
Here's an amusing way of doing it. The free space can exceed long.
Set refs to include Microsoft Scripting Runtime

Function testit()
Dim FreeString As String
MsgBox "Free space on C is " & GetFreeSpace("C")
End Function

Private Function GetFreeSpace(ByVal strDriveLetter As String) As
Currency
Dim fso As Scripting.FileSystemObject
Dim dr As Scripting.Drive

Set fso = New Scripting.FileSystemObject
GetFreeSpace = fso.GetDrive(strDriveLetter).FreeSpace
Set fso = Nothing

End Function

Cool, though it would be nice to have something that didn't require a
reference.

Incidentally I found this out by typing "disk free space vba" into
Google and looking at the first reference returned. I did change it to
use the currenct type however!

Roll on the semantic web I say.

Hi
Well you can use the api GetDiskFreeSpaceEx

David

[David Schofield]

....
Search google on "GetDiskFreeSpaceEx vba"
Pick first reply
I already sent this but I think i emailed it by mistake
David

[Douglas J. Steele]

"Deano" <ma**********@gmail.com> wrote in message
news:41***********************@ptn-nntp-reader02.plus.net...

David Schofield wrote:

On Sat, 2 Oct 2004 20:25:23 +0100, "Deano" <ma**********@gmail.com>
wrote:

Given a drive letter is there some cut and paste code out there that
will check the space remaining?
I want to be able to warn the user if the backup operation might not
succeed due to a lack of diskspace.

Haven't been able to track down what I need hence the post.

thanks
Martin

Hi
Here's an amusing way of doing it. The free space can exceed long.
Set refs to include Microsoft Scripting Runtime

Function testit()
Dim FreeString As String
MsgBox "Free space on C is " & GetFreeSpace("C")
End Function

Private Function GetFreeSpace(ByVal strDriveLetter As String) As
Currency
Dim fso As Scripting.FileSystemObject
Dim dr As Scripting.Drive

Set fso = New Scripting.FileSystemObject
GetFreeSpace = fso.GetDrive(strDriveLetter).FreeSpace
Set fso = Nothing

End Function

Cool, though it would be nice to have something that didn't require a
reference.

If you want to avoid having to set a reference, but still use that same
code, you can always use Late Binding:

Private Function GetFreeSpace(ByVal strDriveLetter As String) As Currency
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
GetFreeSpace = fso.GetDrive(strDriveLetter).FreeSpace
Set fso = Nothing

End Function
It is possible, I suppose, that some shops may have disabled FSO though, due
to security concerns.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)