Finde drevbogstav

hvorfor skal du bruge drevbogstav ? Kører du ikke programmet fra cd´en ?

Du kan finde den fulde sti til programmet, altså der hvor det bliver kørt fra og så vil det første tegn være drevbogstavet. Du kan så med FSO findes ud af om det er et cd-rom drev eller ej.

/Rune

hvad hvis personen har flere cdrom-drev, hvordan finder jeg så det drevbogstav på det cdromdrev som han har sat cden i???

han må have 1000 cd-rom og det vil stadigvæk ikke være noget problem! Først skal du finde stien til programmet - altså der hvor det bliver kørt fra! Du vil så få fx: "E:\test.exe". E er så det drev programmet bliver kørt fra. Du kan så med FSO tjekke om det nu også er et cd-rom drev.

/Rune

Se dette projekt, der er noget du kan bruge :
http://www.hyde.dk/sys/sysopl.zip

Msgbox(Left(App.Path, 1))

'--------------------------------- Form1 ---------------------------------
Option Explicit

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

Private Sub Form_Load()
Dim i As Long
Dim FilePath As String

Me.AutoRedraw = True

  FilePath = "Track01.cda" '(AudioCD)
    For i = 65 To 90
      If GetDriveType(Chr(i) & ":\") = 5 Then
        If ChkFile(CStr(Chr(i) & ":\" & FilePath)) = "FILE" Then
          Me.Print "CD-ROM " & CStr(Chr(i) & ":\" & FilePath) 'Ok
            Else
          Me.Print "CD-ROM " & CStr(Chr(i) & ":\") 'Error
        End If
      End If
    Next i
End Sub

Public Function ChkFile(Path As String) As String
On Error Resume Next
  If Dir(Path, vbDirectory) <> "" Then
    If (GetAttr(Path) And vbDirectory) = vbDirectory Then
      ChkFile = "DIR"
        Else
      ChkFile = "FILE"
    End If
      Else
    ChkFile = "ERROR"
  End If
End Function
'--------------------------------- Form1 ---------------------------------

jeg fik det aldrig til at virke så jeg lukker