dotNETportal.cz

Cauko, vie mi niekto pomoct so zadani spravnej cesty videa pre WMP. Kdyz vytvorim program napr. na CD a prenesiem na iny pocitac nemusi byt totozna mechanika. dik

CD mechaniky pomocí WMI :

Dim strComputer As String
strComputer = "."
Dim objWMIService
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Dim colItems, objItem
Set colItems = objWMIService.ExecQuery( _
    "Select * from Win32_CDROMDrive")
For Each objItem In colItems
    Debug.Print "Drive: " _
        & objItem.Drive
    Debug.Print "Media Loaded: " _
        & objItem.MediaLoaded
Next

Nebo CD mechaniky pomocí API :

http://support.microsoft.com/kb/291575

Jednoduše:

    Dim AppAdresa As String = Application.StartupPath
    Dim PismenoDisku As String = AppAdresa.Substring(0, 2)

Anebo nikde úplnou adresu (včetně disku) nedávejte, Adresujte relativně od umístění aplikace - např. je-li soubor o dvě úrovně výše než program: ..\..\soubor.avi

Predpokládam, že tento kód je pre VB.NET, avšak toto vlákno je na fóre Visual Basic 6 a iné verzie.

Máte pravdu, nevšimnul jsem si, že jde o VB6, pak je to takto

  Dim AppAdresa As String
  Dim PismenoDisku As String
  AppAdresa = App.Path
  PismenoDisku = Mid(AppAdresa, 1, 2)

Způsoby adresování (absolutní, relativní) jsou shodné