"kaisersose1995" <ka************@hotmail.comwrote in message
news:11**********************@d55g2000hsg.googlegr oups.com...
Hi,
I'm trying to get Novell Netware information using vba into my access
database and have no
idea how to progress. Basically when i right click the properties on
my computer the free space of a network drive is showing as 30Gb.
When
i click on the NetWare Info tab it is showing as 15Gb. Retrieving the
30Gb value from windows was relativley easy, but it is the "true"
free
space of 15Gb that i need.
does anyone have any ideas how i'd do this?
thanks in advance
Rich
p.s. i've tried trawling through the developer help at novell but
nothing is availavle for vba, mainly c
Paste this code into a new module:
''' START CODE '''
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As
Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long,
lpTtoalNumberOfClusters As Long) As Long
Sub TestFreeSpace()
Dim Sectors as Long, Bytes as Long, FreeC as Long
Dim TotalC as Long, Total as Long, Freeb as Long
'Retrieve information about C:\
GetDiskFreeSpace "C:\", Sectors, Bytes, Freec, Totalc
Debug.Print " Sectors per Cluster:" & Str$(Sector)
Debug.Print " Bytes per sector:" & Str$(Bytes)
Debug.Print " Number Of Free Clusters:" & Str$(Freec)
Debug.Print " Total Number Of Clusters:" & Str$(Totalc)
Total = Totalc * Sector * Bytes
Debug.Print " Total number of bytes in path:" & Str$(Total)
Freeb = rFreec& * rSector& * rBytes&
Debug.Print " Free bytes:" & Str$(Freeb)
End sub
''' END CODE '''
(Make sure the declare function part is all on one line).
Run the TestFreeSpace proc from the debug window.
