Das ist nicht weiter wild, einfach ein
bischen was in VB zusammenbauen, nur das
Problem ist das Auslesen des
Laufwerksbuchstabens, daran bin ich uach
mal gescheitert. (Das brauchst du, um den
Pfad für die index.htm angeben zu
können). Aber vielleicht kann Dir da ja
jemand helfen.
Hi,
mit ein bißchen api-programmierung geht alles:
Private Declare Function GetLogicalDriveStrings Lib „kernel32“ Alias „GetLogicalDriveStringsA“ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib „kernel32“ Alias „GetDriveTypeA“ (ByVal nDrive As String) As Long
Public Function CD_ROM() As String
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim strSave As String
Dim ret&
Dim keer As Integer
Dim lw As String
'Create a buffer to store all the drives
strSave = String(255, Chr$(0))
'Get all the drives
ret& = GetLogicalDriveStrings(255, strSave)
'Extract the drives from the buffer and print them on the form
For keer = 1 To 100
If Left$(strSave, InStr(1, strSave, Chr$(0))) = Chr$(0) Then Exit For
lw = Left$(strSave, InStr(1, strSave, Chr$(0)) - 1)
If GetDriveType(lw) = 5 Then
CD_ROM = lw
End If
strSave = Right$(strSave, Len(strSave) - InStr(1, strSave, Chr$(0)))
Next keer
End Function
debug.print cd_rom()
F:\
(bei mir zumindest 
(Die API-Guide aus der og. Seite ist toll!)
Gruß
J.
