determine hard drive number from the actual drive letter

App.Path will give you the drive and path to where your program is installed

yes i know that : )
but i need the actual drive number like 0, 1, 2 etc etc.
trying to get the drive number if you DO know the letter.

Linux Rocks? In a VB forum? That's rich...

Since C:\ is (always? 99.99%?) the main (or, root) directory, if you assign C=0, then D=1, E=2, etc.

LOL
Badotz:  i have to cover a lot of ground!!!  : )
Linux handles all my server related stuff, PHP/mysql-apache, firewalling....

windows = applications! : )

someone said in VB.NET you could use:

In VB.net you can use:


        Dim i As Integer = 1
        Dim ImOnDrive As String = "C:\"

        For Each x As System.IO.DriveInfo In My.Computer.FileSystem.Drives
            If ImOnDrive = x.ToString Then MsgBox("I'm on drive: " & i) : Exit For Else i += 1
        Next x

-------------------------------------------------------------------------------------------------------------
not sure what that equates to in VB6 though or if it's possible.

There's a Dir object in VB6 - not sure if it is "auto-populated" or not, but it might be woth a shot.

not sure what all the Dir object does but i'm not needing the drive letter..that's simple.
i need the number.....the drive number(location)... 0, 1, 2 etc etc
i understand your logic on your previous post about the 99.99 percent of the time...but there must be a way to actually determine a drives location such as 0, 1, or 2 if you know it's letter such as c, d, or e.

Dim dNum
dNum = Asc$(UCase$(Mid$(DriveLetter,1,1))) - 65

Seems like a lot of work :-/

hmmm...put it in a Function?:

Function getDriveNumber(byval Drv as String) As Integer
    getDriveNumber= CInt(Asc$(UCase$(Mid$(DriveLetter,1,1))) - 65)
End Function

I don't personally know of a pure VB method, but you can either use WMI or if you're using XP/2k3 - you can use diskpart...

Would you be interested in either of these?

Besides what are you expecting to get back when c: d: e: are all on the same physical drive ?

hes:  i would expect to get the drive number that c, d, and e are on; doesn't matter to me that they are on the same physical drive.

Do you mean the drive number from a boot.ini perspective? Thats the only place I'm aware of that a drive gets a logical number. How will the drive number be used?

Wow. All that for [0,1,2...]

Who knew?

Haha...well the output would read...

C: is located on Disk #0, Partition #0

for every disk found...

Sirbounty:  that may very well work.  because then i could simply do an if/then within that loop to see if c: is indeed the drive letter that my app is installed in.  so that code will work fine in VB6 right?  do i need to make reference to anything special within the project?

No, I don't believe so...but it is not 'technically' pure vb code.
There may be a pure vb method for querying wmi - I've just gotten so used to doing it via vbscript, that I've not really looked.
But I did test it as-is under vb6 with no references and no problems...

ok, think that should work under win2k, xp and 2003?  possibly vista?

i got runtime error 424 object required..

this gives that error:
(i have serial ATA drives by the way)

Private Sub Form_Load()
Const wbemFlagReturnImmediately = &H10
Const wbemFlagForwardOnly = &H20

Dim objWMI: Set objWMI = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMI.ExecQuery("Select * From Win32_LogicalDiskToPartition", "WQL", _
  wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems
  wscript.echo Mid(objItem.Dependent, InStr(LCase(objItem.Dependent), "deviceid") + 9) & " is located on " & _
     Mid(objItem.Antecedent, InStr(LCase(objItem.Antecedent), "deviceid") + 9)
  wscript.echo
Next

Set objWMI = Nothing
End Sub

Probably the wscript.echo lines
Replace them with debug.print, or msgbox or however you're wanting to output it..

yea that did it dude....think of any reason that wouldn't run on vista?  then again, it just came out..  : )

Can't say for sure..haven't played much with it - but I'd lean more towards probably - than not..

Thanx!
Happy to have helped. :^ )

no problemo...now just gotta find a good datagrid component for VB6!!! suckers aren't cheap it doesn't seem!
thanks for the help!