CDRom Drev

I enhedshåndtering- det skulle også gerne stå i denne computer

Eller i stifinderen :o)

Ja det kan jeg jo ritig bruge i mit program. Jeg bruger AKRip32.dll hvor jeg får at vide hvad dervet hedder men ikke drev bokstavet, og det er dette jeg skal bruge til nogle af de funtioner jeg vil anvende i mit program.

Hilsen

Lars

Hej.

Jeg skal lige tjekke om der skal defineres en funktion men ellers:

'---- undersøgelse af om der køres fra CD-drev -------
    For i = 65 To 90
        strdrev = Chr(i) & ":\"
     
      If GetDriveType(strdrev) = 5 Then

    .
    .
      end if
    next i

M.v.h.  Jørn

Hej igen.

Ja, du skal definere funktionen:

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

i din form.

M.v.h.  Jørn

Jeg forstod det lidt anderledes - dvs. at dit drevbogstav åbenbart kan skifte hele tiden - måske en ekstern brænder..
Over and out

hej joem.
Det er fint men det kan jeg godt selv. Det jeg har brug for er, at jeg kender navnet på mit cdrom drev, som hedder Plextor og ud fra det, skal jeg finde drev bokstavet.

hej igen joern. undskyld jeg stavet dit navn forkert.

Hej.

Faktisk hedder jeg jo Jørn, mit brugernavn på 'Eksperten' er joern.
Jeg har ingen anelse om, hvor du kan finde oplysningen fra enhedshåndteringen og identificere et drevbogstav ud fra fabrikatet.  Jeg ville droppe det og finde en anden løsning. 
Formentlig søger du en bestemt fil?    Ellers skal du nok lukke dette spørgsmål og formulere et andet, der præcis beskriver, hvad det er du søger hjælp til.  Også i overskriften til spørgsmålet!

Jeg står af.  M.v.h.  Jørn

Option Explicit

Private Sub Form_Load()
Dim objWMI As Object
Dim objItem As Object
Dim objItems As Object

  Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
  Set objItems = objWMI.ExecQuery("Select * from Win32_CDROMDrive", , 48)

  For Each objItem In objItems
    MsgBox "Name " & objItem.Name
    MsgBox "Caption: " & objItem.Caption
    MsgBox "Drive: " & objItem.Drive
  Next
End Sub

caption og name er det samme hos mig.. men det er jo ikke sikkert det er hos dig.. så må du bare prøve dig frem..

du kan se dem alle her:
http://www.planet-source-code.com/vb/scripts/ShowCodeAsText.asp?txtCodeId=41894&lngWId=1

Hej sjh.
Det var lige det jeg havde brug for. Mange tak.
Du får points.

ha ha selv tak ;)