Getting disk volume

[Benjamins via AccessMonster.com]

Hi,

I have used CreateObject("S cripting.FileSy stemObject") to get the disk volume.
Is there any other way of get the disk volume other than using the FSO.

Thanks

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200801/1

[John Mishefske]

Benjamins via AccessMonster.c om wrote:

I have used CreateObject("S cripting.FileSy stemObject") to get the disk volume.
Is there any other way of get the disk volume other than using the FSO.

Yes, Windows provides an API for programming languages to interact with
the operating system.

The disk's volume name? or the disk's serial number?
http://www.freevbcode.com/ShowCode.Asp?ID=44

this next site uses the API declarations from the above link and returns
the serial number:

http://www.vb-helper.com/howto_volume_info.html

I haven't verified either - just did a quick Goggle search.

--
'--------------------------
' John Mishefske
' UtterAccess Editor
' Microsoft MVP 2007, 2008
'--------------------------

[Allen Browne]

See:
http://vbnet.mvps.org/index.html?code/disk/index.html

The site contains lots of API calls that work with VB. You should be able to
grab the one you need.

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Benjamins via AccessMonster.c om" <u39077@uwewrot e in message
news:7dfcc9c1e6 545@uwe...

Hi,

I have used CreateObject("S cripting.FileSy stemObject") to get the disk
volume.
Is there any other way of get the disk volume other than using the FSO.

[Stuart McCall]

"Benjamins via AccessMonster.c om" <u39077@uwewrot e in message
news:7dfcc9c1e6 545@uwe...

Hi,

I have used CreateObject("S cripting.FileSy stemObject") to get the disk
volume.
Is there any other way of get the disk volume other than using the FSO.

Thanks

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200801/1

You can retrieve this info from the windows API. Paste the following code
into a new module:

Private Declare Function GetVolumeInform ation Lib "Kernel32" _
Alias "GetVolumeInfor mationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuf fer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialN umber As Long, lpMaximumCompon entLength As Long, _
lpFileSystemFla gs As Long, ByVal lpFileSystemNam eBuffer As String, _
ByVal nFileSystemName Size As Long) As Long

Public Function DriveSerial(Dri veLetter As String) As String
Dim Serial As Long, dummy As String
dummy = String$(255, Chr$(0))
GetVolumeInform ation DriveLetter & ":\", _
dummy, 255, Serial, 0, 0, dummy, 255
DriveSerial = CStr(Serial)
End Function

Then call like this:

Debug.Print DriveSerial("C" )

[Chuck Grimsby]

Dir$("C:\",vbVo lume)

Replace the "C:\" with whatever drive you like.

(Warning: Disk Volumes don't always have names......)
On Thu, 10 Jan 2008 06:31:16 GMT, "Benjamins via AccessMonster.c om"
<u39077@uwewrot e:

>Hi,

I have used CreateObject("S cripting.FileSy stemObject") to get the disk volume.
Is there any other way of get the disk volume other than using the FSO.

Thanks

---
Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!