[RESOLVED] Detect where it's running from....

[doug68205]

I've got a little application that plays videos/mp3's. I want to place the application and associated avi's/mp3's on a DVD and play everything from the
dvd. How do I determine if the dvd is loaded in the D:, E:, or F: drive?

In other words the user loads the DVD into a drive, clicks on an executable, and my program knows which drive the DVD is in.

Thanks for everyones help!
doug

[lone_REBEL]

What does that actually mean?
Do you want to find out what is the drive name for the user's optical disk, or what?

[doug68205]

No, just the drive letter. My work computer has several DVD drives, some people have a CD & DVD drive. So if the program is loaded into my E: drive,
the application will know that the required avi's/mp3 are in the E: drive.

Same thing if it's loaded into the D: drive or the F: drive - I just don't know
how to code "if this application is executed from drive d: then avi's/mp3's are
also on drive d:....

[doug68205]

found this little bit of code after a couple of hours of searching.
Worked like a charm!!!!!

If Right$(App.Path, 1) = "\" Then
Target = App.Path & "\demo.avi"
Else '
Target = App.Path & "\demo.avi"
End If

[randem]

You do realize that both cases in the If statement amount to the same thing?

Perhaps you were looking for this

If Right$(App.Path, 1) = "\" Then
     Target = App.Path & "demo.avi"
Else '
     Target = App.Path & "\demo.avi"
End If

[randem]

But I prefer the code:

Option Explicit
 
Public AppPath as String
 
Private Sub Main()
 
     AppPath = App.Path
     if Right$(AppPath, 1) <> "\" then AppPath = AppPath & "\"
 
End Sub

In this way you just use AppPath everywhere you would normally use App.Path and you don't have to code all the extra lines of code each time... The all you would need to do is:

Target = AppPath & "demo.avi"

[doug68205]

Excellent, I'll try the other way Monday. I'm ashamed to admit I don't know what the Right$ does....

[randem]

That's where DOCUMENTATION comes in, but you do have to read it...