Is there an easy way to retrieve a volume label in QB64?

[hanness]

My goal is to be able to retrieve the volume label of a disk (HD, flash drive, etc.) place that into a string variable.

I know that I could run a command line command via the shell command, redirect the output to a file, then read the contents of that file in QB64, but I'm wondering if there is a simpler way to do this.

Example:

From the "vol d:" command below, we can see that the volume label of the D: drive is "USB WINBOOT". I want to be able to grab that label (USB WINBOOT) and place it in a string variable.

C:\>vol d:
 Volume in drive D is USB WINBOOT
 Volume Serial Number is 8861-3C84

[hanness]

Funny, I was trying for an hour to figure out a good way to do this. Minutes after my post I found a way:

SHELL "vol D: | CLIP"
Temp$ = _CLIPBOARD$
' Write code here to parse Temp$ for the info wanted.


You could also get fancier by saving the old contents of the clipboard and restoring it so that the user doesn't loose the clipboard contents like this:

SavedClip = _CLIPBOARD$

SHELL "vol D: | CLIP"
Temp$ = _CLIPBOARD$
' Write code here to parse Temp$ for the info wanted.

_CLIPBOARD$ = SavedClip$


EDIT: The idea of saving the initial contents of the clipboard was a bad idea. If what is stored in the clipboard initially is an image that won't work since QB64 is saving the contents as text to a string.

[SpriggsySpriggs]

When I get home I'll share some code with you that works much quicker than using the clipboard

[SpriggsySpriggs]

@hanness

Here you go. Doesn't use the clipboard so it should work faster plus this library can be used to store ANY console output like command prompt to a variable or print to the screen. Works better than outputting to a file or using the clipboard. Just put the header file with your source code and you will be golden. The header file will compile with the rest of your source and won't be needed if you distribute just the executable. Also, this library works with ALL systems. Linux, Mac, and Windows.

Code: QB64: [Select]

1. OPTION _EXPLICIT 'force of habit. I use this quite often
2.  
3. DECLARE LIBRARY ".\pipecom"
4.     FUNCTION pipecom$ (cmd AS STRING)
5. END DECLARE
6.  
7. DIM volumelabel AS STRING
8. volumelabel = pipecom("vol L:")
9.  
10. volumelabel = MID$(volumelabel, INSTR(volumelabel, " is ") + 4) 'Trimming the result
11. volumelabel = MID$(volumelabel, 1, INSTR(volumelabel, CHR$(10)) - 1)
12. PRINT volumelabel

Also, I did a test between my library and using _CLIPBOARD$ for this command specifically. My library got the volume label and trimmed it in 0.03125 seconds whereas using SHELL with clip took 0.1992188 seconds without changing the string.

[euklides]

Perhaps this could help ??

https://www.qb64.org/forum/index.php?topic=1507.msg107057#msg107057

[hanness]

Thanks for the help. Very much appreciated!

[SpriggsySpriggs]

@hanness

Another way you can get the volume label (Windows only)

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3. DECLARE DYNAMIC LIBRARY "Kernel32"
4.     FUNCTION GetVolumeInformation% ALIAS GetVolumeInformationA (lpRootPathName AS STRING, BYVAL lpVolumeNameBuffer AS _OFFSET, BYVAL nVolumeNameSize AS LONG, BYVAL lpVolumeSerialNumber AS _OFFSET, BYVAL lpMaximumComponentLength AS _OFFSET, BYVAL lpFileSystemFlags AS _OFFSET, BYVAL lpFileSystemNameBuffer AS _OFFSET, BYVAL nFileSystemNameSize AS LONG)
5. END DECLARE
6.  
7. PRINT VolumeName("L:\")
8.  
9. FUNCTION VolumeName$ (volumeletter AS STRING)
10.     DIM volume AS STRING
11.     volume = SPACE$(260)
12.     IF GetVolumeInformation(volumeletter + CHR$(0), _OFFSET(volume), LEN(volume), 0, 0, 0, 0, 0) THEN
13.         VolumeName = LTRIM$(volume)
14.     END IF
15. END FUNCTION

[hanness]

Thanks for that!