Kernell32 GetDiskFreeSpace any idea?

Author

Message

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 17th Oct 2010 21:52

Link

I try to acces to hard disk total space and free space using a kernell32 windows dll.. but i can't .. any help.. plis, plis..
this is the command GetDiskFreeSpace (GetDiskFreeSpaceEx not work)
Thanks..

Back to top

Profile PM Email Website

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 18th Oct 2010 17:32

Link

here is my code..

+ Code Snippet

load dll "kernel32.dll",1
a$="c:\"
Call dll 1,"GetDiskFreeSpaceA",a$,Sectors, Bytes, Freec, Totalc
print str$(Freec)
print call dll (1,"GetLastError",0)
wait key

Back to top

Profile PM Email Website

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 19th Oct 2010 00:46

Link

And... this is the context..
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

Back to top

Profile PM Email Website

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 19th Oct 2010 21:15

Link

Take a look at the parameter names: lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters

lp means a pointer in Microsoft-speak - you need to allocate some memory (memblock, bank etc), pass addresses for these parameters, then read the data from memory when done.

You don't need to do anything for lpRootPathName, as strings are already passed as an address.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 20th Oct 2010 19:41

Link

Thanks IanM.. always you have a god response..
but..

thanks i make a investigation.

mmm...
GetDiskFreeSpace not work
GetDiskFreeSpaceA work bu niot well
GetDiskFreeSpaceEx not work

i find.. enhancement pack have this command..

Back to top

Profile PM Email Website

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 20th Oct 2010 23:29

Link

"GetDiskFreeSpaceExA" works!
but give me bad information..

Back to top

Profile PM Email Website

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 22nd Oct 2010 00:15 Edited at: 22nd Oct 2010 00:18

Link

I did some editing to your posted code and this seems to indeed work as intended;

+ Code Snippet

load dll "kernel32.dll",1
a$=checklist string$(d)
pSectorsPerCluster  = alloc(4)
pBytesPerSector     = alloc(4)
pFreeClusters       = alloc(4)
pTotalClusters      = alloc(4)
Call dll 1,"GetDiskFreeSpaceA",a$,pSectorsPerCluster, pBytesPerSector, pFreeClusters, pTotalClusters
print "Free clusters: "; peek dword(pFreeClusters); " / "; peek dword(pTotalClusters)

print "Sectors per cluster: "; peek dword(pSectorsPerCluster)
print "Sector size: "; peek dword(pBytesPerSector); " bytes"

Hope that helps

Back to top

Profile PM Email Website

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 22nd Oct 2010 06:45

Link

thanks..
but,,

not work.. thaks.. i keep searchig ..

Back to top

Profile PM Email Website

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 22nd Oct 2010 12:35 Edited at: 22nd Oct 2010 12:58

Link

Oh sorry, just copied a part of my code, leaving some things in there that doesn't work without the other context.
I'm sure you already figured out these minor changes, but this compiles as-is:

+ Code Snippet

load dll "kernel32.dll",1
a$="c:\"
pSectorsPerCluster  = alloc(4)
pBytesPerSector     = alloc(4)
pFreeClusters       = alloc(4)
pTotalClusters      = alloc(4)
Call dll 1,"GetDiskFreeSpaceA",a$,pSectorsPerCluster, pBytesPerSector, pFreeClusters, pTotalClusters
print "Free clusters: "; peek dword(pFreeClusters); " / "; peek dword(pTotalClusters)

print "Sectors per cluster: "; peek dword(pSectorsPerCluster)
print "Sector size: "; peek dword(pBytesPerSector); " bytes"
wait key

Edit: oh yeah, IanM's utility plugin pack is reuired also, if you don't already have that. Just see his signature a few posts up

This version uses only DBP native functions:

+ Code Snippet

load dll "kernel32.dll",1
a$="c:\"
pSectorsPerCluster  = make memory(4)
pBytesPerSector     = make memory(4)
pFreeClusters       = make memory(4)
pTotalClusters      = make memory(4)
Call dll 1,"GetDiskFreeSpaceA",a$,pSectorsPerCluster, pBytesPerSector, pFreeClusters, pTotalClusters
print "Free clusters: "; *pFreeClusters; " / "; *pTotalClusters

print "Sectors per cluster: "; *pSectorsPerCluster
print "Sector size: "; *pBytesPerSector; " bytes"
wait key

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DLL Talk / Kernell32 GetDiskFreeSpace any idea?