help driveletter help

I have files on a CD that are hyperlinked. I am using VB as a front end to the .pdf files that I have on that CD. If the CD drive is D: , I may want to:

ShellExecute hwnd, "open", "D:\bookD.pdf", vbNullString, CurDir$, SW_SHOW

but if the CD is Z: , then I may want it to point to:

ShellExecute hwnd, "open", "Z:\bookZ.pdf", vbNullString, CurDir$, SW_SHOW

that way I get the execution of the correct set of hyperlinked files.

You get the picture....

How do I determine what the driveletter is, and then get the (say button in my form) to point to the correct file???

I don't know if I'm making this more difficult than it needs to be, but I don't know how else to do it.

HELP!!??

there is an API cant remember what its name but it should be at http://www.vbapi.com/

Is there another way to go about this??

Here is a wrapper function that will get the first CD-Rom Drive letter:

Code:

---



Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_CDROM = 5


Public Function CDRomDriveLetter() As String
    Dim iCt As Integer
    Dim sCurDrv As String
    Dim lRet As Long
   
    For iCt = Asc("a") To Asc("z")
       
        sCurDrv = Chr(iCt) & ":\"
        lRet = GetDriveType(sCurDrv)
       
        If lRet = DRIVE_CDROM Then
            CDRomDriveLetter = sCurDrv
            iCt = Asc("z")
        End If
   
    Next iCt
   
End Function

---

The only way I can see this won't work is if the computer being checked has multiple cd-rom drives attached, this function will always return the first cd-rom drive found.

(BTW here is the link klintsovi was thinking of http://www.vbapi.com/ref/g/getdrivetype.html )

Just strip it out of the app.path string!

Code:

---

Dim strDrive As String
strDrive = Left$(App.Path, 3)
MsgBox ("Hey, my drive letter is: " & strDrive)

---