GET DRIVE TOTAL SIZE( Driver Id, Return ) how pass Driver ID to a letter (c: d: etc..)

Author

Message

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 10th Nov 2010 13:19

Link

I try to join
perform checklist for drives
and
GET DRIVE TOTAL SIZE( Drive ID, Return )

but Driver ID ??? (0,1,2,3,4,5,6)
manual not have info about driver Id
thanks for your help..

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 10th Nov 2010 18:19

Link

When you use PERFORM CHECKLIST FOR DRIVES it puts only strings in the checklist but the order of the checklist probably represent the drive ID numbers you want.

+ Code Snippet

` Make a checklist for drives
perform checklist for drives

` Go through all the drives
for t=1 to checklist quantity()
 
 ` Show the drive ID number
 print "Drive ID #"+str$(t)
 ` Show the drive
 print "Drive = "+checklist string$(t)
 print ""

next t

wait key

Back to top

Profile PM Email

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 10th Nov 2010 19:19

Link

thanks Grog Grueslayer but not work..
Only i know is
drive ID 0 = current drive (C: or your base drive)
Drive ID 1,2,3,4 etc..(next drives or cD's..)

But how you know letter of driver id 2 or driver id 3 etc..
enhancement pack is incomplete .. only my opinion..

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 10th Nov 2010 20:44 Edited at: 10th Nov 2010 20:55

Link

Ah, unfortunately I don't have the Enhancement Pack. I did find this message that talks about the GET DRIVE COUNT() command.

http://forum.thegamecreators.com/?m=forum_view&t=46662&b=1

That may show the last drive ID #. The other commands listed in the help files in the same area as that command may shed some light on which commands you need to use.

Also on the Enhancement Pack page...
http://www.thegamecreators.com/?m=view_product&id=2083

... by Drive Information there's a picture of a program. Could that be an example that came with the Enhancement Pack that you can run to see how the Drive commands work?

Back to top

Profile PM Email

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 11th Nov 2010 02:23

Link

yes you have reason.. i use Enhancement Pack. but in help of Enhancement Pack no exist way to get a letter from driver id..
solution i make a small program in Neobook and pass all vars i need (numbers of drives, size, free, sytem, etc.) to clipboard. yes i know is not god but dark basic no have this basic instruction..
Drive Size, drive free space, drive id etc..
You can parse a simple cmd instruction in a bat file
gethdsise.bat
cd\
dir >hd.txt

but is not my idea i like get this info (disk size) from a native code or get from kernel 32 but i can't do.. ..

i gone cry like a baby..
ha ha ha..

thanks for your help.

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 13th Nov 2010 05:47 Edited at: 13th Nov 2010 08:32

Link

@Neodelito

Check out:

Get Available Drives

The second message that reads DLL. This uses the win32 API to get the logical drives and to get the drive types.

The ID is represented by whether a particular bit is turned on. Do you understand what I mean by this? A single number is returned that has BITs turned on or off in a number. If the BIT is on, then that bit position represents a drive letter:

0 0 1 0 0 1 1 1 1
- - G - - D C B A

In this code from the link above, you can add a counter to get the Drive Number:

+ Code Snippet

drivenum=-1
for n = bitpos to 1 step -1
   bit=val(mid$(drivemap$,n))
   inc ascii
   inc drivenum
   if bit = 1      
      drive$(bitpos-(n-1))=chr$(ascii)+":\"
      print drive$(bitpos-(n-1));" ";
      drivetype=call dll(1,"GetDriveTypeA",drive$(bitpos-(n-1)))

      rem print the drive number
      print drivenum

      print drivetype$(drivetype)
   endif
next n

Enjoy your day.

Back to top

Profile PM

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 13th Nov 2010 16:28 Edited at: 13th Nov 2010 16:36

Link

thanks Latch.. is very impresive..
But the enhancement pack command is very particular..
this enumerated disk like this..
Driver ID
0 is actual drive
1 next partition *
2 third partition *
3 etc... partition *
4 floppy
5 CD

In the example they use this method
Status counter
1 a (64)
1 b (65)
0 c (66)
1 d (67)
1 e (68)
1 etc... (...)

is not the same

Now how in the world.. you can find a simply letter from Driver ID (using enhancement pack)..

if you see in all languages is very simply use a command like this but in dark basic not exist a god reference..
i experiment using many methods..
only serious i found is your example, and some clue to use kernel32 and GetDiskFreeSpace command, but i cant make this work..

i'm a god modeler, and can make a real goooooood custom model to any can make a simple dll or script to have total disk space, free space using the classic command perform check-list for drives..

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 13th Nov 2010 17:32

Link

Quote: "Now how in the world.. you can find a simply letter from Driver ID (using enhancement pack)..
"

What is the drive ID ? Is it the serial number of the disk, or just a counting number?

What do you want to do, enter the serial number and get back a letter or enter a counting number (if that is the ID) and get back a letter?

For example:

+ Code Snippet

serial_number=0000-A0D7

function get_letter(serial_number)
   rem lookup information from serial_number
endfunction drive letter

or

+ Code Snippet

id=0

function get_letter(id)
   rem lookup information from id counting number
endfunction drive letter

Quote: "...any can make a simple dll or script to have total disk space, free space using the classic command perform check-list for drives..
"

What exactly do you want? Something like:

+ Code Snippet

sync on
sync rate 0

kernel32=1
load dll "kernel32.dll",1

rem classic command
perform checklist for drives

for d=1 to checklist quantity()
   drive$=checklist string$(d)
   print drive$

   rem get drive size
   make memblock 1,24
   ptr=get memblock ptr(1)
   call dll kernel32,"GetDiskFreeSpaceExA",drive$,ptr,ptr+8,ptr+16
   print "Drive Space Available to User : ";memblock dword(1,0)
   print "Available Space / Total Space : (";memblock dword(1,16);" / ";memblock dword(1,8);")"
   print
   delete memblock 1
   `sync
next d
sync

Enjoy your day.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 13th Nov 2010 18:07

Link

If you want to use old methods you can use DOS commands to get the free space.

Unfortunately I think there's a bug with EXECUTE FILE that doesn't allow file creation with DOS commands. I tried in both Vista-64 and XP-32 and no DOS command accepted the standard file creation (it outputs all info that would be on the screen to a file instead) ">filename.ext". It still works fine in DOS but not via Darkbasic Pro with EXECUTE FILE.

FSUTIL allows you to see all you want. Go to the command prompt and type "fsutil volume diskfree c:\ >temp.txt" and it'll create temp.txt and have this inside it:

+ Code Snippet

Total # of free bytes        : 27097993216
Total # of bytes             : 310932140032
Total # of avail free bytes  : 27097993216

But try to do that with EXECUTE FILE and it doesn't like the ">temp.txt" part so getting the data in a file you can load is impossible till that bug is fixed... if it is a bug.

Back to top

Profile PM Email

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 13th Nov 2010 21:00 Edited at: 13th Nov 2010 21:12

Link

hi latch and thanks for your code..
i like do this..
print TotalSpace("C:\")
print FreeSpace("C:\")

is only and example..

now you cam make this using enhancement pack using this command:
"GET DRIVE TOTAL SIZE
This function allows you to find out the size of the selected hard drive. Setting the "return" parameter determines how the data will be returned. "0" will return bytes, "1" will return megabytes and "2" will return gigabytes
SYNTAX
return integer = GET DRIVE TOTAL SIZE( Drive ID, Return )
"
But where you find the "DRIVE ID"
this is the only one reference i found..
"The parameter "Drive ID" is the index of the drive you want to check."

again 0 is for your local drive, where your app is running
this is not problem, the problem exist if you have various partitions in the disk. example 1 fisical drive and 3 partitions fat32 C:\ d:\ e:\
print GET DRIVE TOTAL SIZE( 0, 1 )
print GET DRIVE TOTAL SIZE( 2, 1 )
print GET DRIVE TOTAL SIZE( 3, 1 )

but if your base dir is D:\ or E:\

And Grog Grueslayer you have reason EXECUTE FILE that doesn't allow file creation with DOS commands. This will be a solution ...

for now i use external programs to get a decent results.. but this is not the idea..

this i try to do..

+ Code Snippet

sync on
sync rate 0

kernel32=1
load dll "kernel32.dll",1

rem classic command
perform checklist for drives

for d=1 to checklist quantity()
   drive$=checklist string$(d)
   print drive$

   rem get drive size
   make memblock 1,24
   ptr=get memblock ptr(1)
   call dll kernel32,"GetDiskFreeSpaceExA",drive$,ptr,ptr+8,ptr+16
   print "Drive Space Available to User : ";memblock dword(1,0)
   print "Available Space / Total Space : (";memblock dword(1,16);" / ";memblock dword(1,8);")"
   print
   delete memblock 1
   `sync
next d
sync

But not works... error line 17
Run time error - index number illegal at line 17
call dll kernel32,"GetDiskFreeSpaceExA",drive$,ptr,ptr+8,ptr+16

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 14th Nov 2010 01:34

Link

Quote: "again 0 is for your local drive, where your app is running
this is not problem, the problem exist if you have various partitions in the disk. example 1 fisical drive and 3 partitions fat32 C:\ d:\ e:\
print GET DRIVE TOTAL SIZE( 0, 1 )
print GET DRIVE TOTAL SIZE( 2, 1 )
print GET DRIVE TOTAL SIZE( 3, 1 )"

I see. Well, the partitions are stored as logical drives so their information would read as if they were physical drives. It may not be the case with the enhancement pack - I don't really know, but I think it would be.

Quote: ""The parameter "Drive ID" is the index of the drive you want to check.""

If this is true, then I would guess that the index numbers starting from 1, represent each letter in order. If you use index 0, that means read the current drive for the current directory. It could be anything if you use zero.

To test, try

+ Code Snippet

perform checklist for drives
for d=1 to checklist quantity()
   print d
   print checklist string$(d)
next d

That will get your drive letters and hopefully the index of each drive. Then try

+ Code Snippet

for d=1 to checklist quantity()
   print GET DRIVE TOTAL SIZE( d, 1 )
next d

Use your windows file explorer to compare the sizes. If they match, then you know what the relationship between the indexes and the letters are.

If they match, then your function might look like:

+ Code Snippet

function TotalSpace(drive$)
   result=0
   rem get the drive letters
   perform checklist for drives
   for d=1 to checklist quantity()
      if lower$(drive$)=lower$(checklist string$(d))
         result=GET DRIVE TOTAL SIZE( d, 1 )
         exit
      endif
   next d
endfunction result

Quote: "But not works... error line 17
Run time error - index number illegal at line 17
call dll kernel32,"GetDiskFreeSpaceExA",drive$,ptr,ptr+8,ptr+16
"

That's strange. It works here - but I have a pretty old computer and that code is for DBC. That code lists the drive letter and gives the memory for the drive.

I don't know what the index is that is illegal. Maybe try changing

+ Code Snippet

ptr=get memblock ptr(1)
call dll kernel32,"GetDiskFreeSpaceExA",drive$,ptr,ptr+8,ptr+16

to

+ Code Snippet

ptr1=get memblock ptr(1)
ptr2=ptr1+8
ptr3=ptr1+16
call dll kernel32,"GetDiskFreeSpaceExA",drive$,ptr1,ptr2,ptr3

Enjoy your day.

Back to top

Profile PM

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 14th Nov 2010 03:03 Edited at: 14th Nov 2010 03:04

Link

thanks latch.. see this image..

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 14th Nov 2010 03:06

Link

here is the dll but i lose the original file an autor.. you know??

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 14th Nov 2010 05:33

Link

I did figure out a workaround by creating a .bat file and using EXECUTE FILE to run the .bat file. The following code snip makes a .bat file to run FSUTIL to create the file temp.txt, reads the file and displays it.

` Define the variables
Total as double integer
FreeSpace as double integer

` Make a checklist for drives
perform checklist for drives

` Go through all the drives
for t=1 to checklist quantity()
 
 ` Check if the files exist and delete them
 if file exist("c:\Temp.bat") then delete file "c:\Temp.bat"
 if file exist("c:\Temp.txt") then delete file "c:\Temp.txt"
 
 ` Make the .bat file
 open to write 1,"c:\Temp.bat"
  write string 1,"@Echo off"
  write string 1,"fsutil volume diskfree "+checklist string$(t)+" >c:\temp.txt"
 close file 1
 
 ` Run the .bat file
 execute file "c:\Temp.bat","",checklist string$(t),1

` Open temp.txt (created by the .bat file) and read each line
 open to read 1,"c:\Temp.txt"
  read string 1,a$
  read string 1,b$
  read string 1,c$
 close file 1

` Extract the total size and free space
 if mid$(b$,30)=":" then Total=val(right$(b$,len(b$)-31)) else Total=0
 if mid$(c$,30)=":" then FreeSpace=val(right$(c$,len(c$)-31)) else FreeSpace=0
   
 ` Show the drive info
 print "Drive = "+checklist string$(t)
 print "Total Size = "+str$(Total)
 print "Free Space = "+str$(FreeSpace)
 print ""

next t

wait key

+ Code Snippet

` Define the variables
Total as double integer
FreeSpace as double integer

` Make a checklist for drives
perform checklist for drives

` Go through all the drives
for t=1 to checklist quantity()
 
 ` Check if the files exist and delete them
 if file exist("c:\Temp.bat") then delete file "c:\Temp.bat"
 if file exist("c:\Temp.txt") then delete file "c:\Temp.txt"
 
 ` Make the .bat file
 open to write 1,"c:\Temp.bat"
  write string 1,"@Echo off"
  write string 1,"fsutil volume diskfree "+checklist string$(t)+" >c:\temp.txt"
 close file 1
 
 ` Run the .bat file
 execute file "c:\Temp.bat","",checklist string$(t),1

 ` Open temp.txt (created by the .bat file) and read each line
 open to read 1,"c:\Temp.txt"
  read string 1,a$
  read string 1,b$
  read string 1,c$
 close file 1

 ` Extract the total size and free space
 if mid$(b$,30)=":" then Total=val(right$(b$,len(b$)-31)) else Total=0
 if mid$(c$,30)=":" then FreeSpace=val(right$(c$,len(c$)-31)) else FreeSpace=0
   
 ` Show the drive info
 print "Drive = "+checklist string$(t)
 print "Total Size = "+str$(Total)
 print "Free Space = "+str$(FreeSpace)
 print ""

next t

wait key

Back to top

Profile PM Email

Neodelito

19

Years of Service

User Offline

Joined: 29th Jul 2005

Location:

Posted: 14th Nov 2010 06:09

Link

yes is an method.. but here you have a better exe than fsutil..
(download)

but the plugin make all works..

i don't remenber the autor..

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / GET DRIVE TOTAL SIZE( Driver Id, Return ) how pass Driver ID to a letter (c: d: etc..)

Attachments

Attachments

Attachments