drevbogstav

Hvis programmet skal ligge på harddisken:

Start programmet med at undersøge hvilke drev der eksisterer på den pågældende maskine. Ud fra dette finder du hvilket drev der er CD og bruger derefter dette i programmet.

Så virker det ens på alle maskiner. Og på maskiner med 2 eller flere cd-drev tager du bare det første, eller spørger brugeren hvilket drev han vil bruge.

Hvis programmet skal ligge på CD-en:

Så kan du bruge "currentdir" og tage drevbogstav herfra. Se hjælpen til "GetCurrentDir".

sjensen

En cdrom menu skal selvfølgelig køres fra CD'en. Så det du kan gøre er at når AUTORUN.INF kører din .EXE fil, så tager du drev betegnelsen på følgende måde:

Brug denne funktion:

Public Function GetDrive(ByVal Path As String) As String
' PRE  : C:\WINDOWS\SYSTEM  eller
' PRE  : C:\WINDOWS\SYSTEM\  eller
' PRE  : C:\WINDOWS\SYSTEM\WIN.COM
' POST : C:

Dim i As Integer, Pos As Integer
  GetDrive = ""
  Path = Trim(Path)
  Pos = 0

  If InStr(1, Path, ":", vbTextCompare) > 0 Then
    For i = Len(Path) To 1 Step -1
      If Mid(Path, i, 1) = ":" Then Pos = i
    Next i
    If Pos Then GetDrive = Left(Path, Pos)
  End If

End Function


Drev bogstavet returneres således:
 
Drevbogstav = GetDrive(App.Path)

JanusKH

Hvis du gerne vil vide hvilket drevbogstav CD ROM drevet har hvis dit program ligger på CD ROMMEN, skal du bare bruge følgende kode:
-------------
Dim CDROM

Private Sub Form_Load()
    CDROM = Left (App.Path, X)
End Sub
-------------
Herefter vil CDROM variablen indeholde CD ROM drevbogstavet.

x:

Hvis du gerne vil have skråstregen med i variablen (X:\) brug 3 i stedet for x.
Hvis du kun vil have drevbogstavet og kolon med (X:) så skriv 2 i stedet for x.
Hvis du kun vil have selve bogstavet bruger du 1 i stedet for x.

Tillykke med Spørgsmål nr. 9000 !

WANGEREN var her.. .,'¨´,.

TILLYKKE MED DE 9000

HIHI