HERBERS Excel-Forum - die Beispiele

Thema: Erstes CD-ROM-Laufwerk ermitteln

Home

Gruppe

API

Problem

Wie kann ich das erste CD-ROM-Laufwerk ermitteln?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
   (ByVal nDrive As String) As Long
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
   "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
   ByVal lpBuffer As String) As Long
Public Const DRIVE_CDROM As Long = 5

Function GetFirstCdRomDriveLetter() As String
   Dim lDriveType As Long
   Dim strDrive As String
   Dim lStart As Long: lStart = 1
   Dim strDrives As String
   strDrives = Space(150)
   Dim lRetVal As Long
   lRetVal = GetLogicalDriveStrings(150, strDrives)
   If lRetVal = 0 Then
      GetFirstCdRomDriveLetter = vbNullString
      Exit Function
   End If
   strDrive = Mid(strDrives, lStart, 3)
   Do
      lDriveType = GetDriveType(strDrive)
      If lDriveType = DRIVE_CDROM Then
         GetFirstCdRomDriveLetter = strDrive
         Exit Function
      End If
      lStart = lStart + 4
      strDrive = Mid(strDrives, lStart, 3)
   Loop While (Mid(strDrives, lStart, 1) <> vbNullChar)
End Function

Sub Main()
   Dim sDriveLetter As String
   sDriveLetter = GetFirstCdRomDriveLetter()
   MsgBox sDriveLetter
End Sub

Beiträge aus dem Excel-Forum zu den Themen API und System

Excel to Word Kapitel VBA Anfangskapital berechnen
Gestapelte Säulen-Diagramm: Ich kapier's nicht Googel Maps API in Excel VBA einfügen
Private Const CheckCell_1 = "System!AI9" Problem mit dem Rang-System
Berechnung vom Endkapital Systemp-Variable benötigt
Netzwerkpfad per FileSystemObject wechseln GetSystemMetrics
API? - xl-Parameter aus Long-Wert bestimmen Berechnung Kapitalanlage
System Variablen mit Excel auslesen Telefonnummer auslesen per TAPI
Schichtsystem im Kalender Läuft RSAPI.DLL mit WIN2000 und XP?
Auslesen Systemdaten, Zellschutz und Counter Systemauslastung mitloggen
JAVA API mit VBA verwenden Kurzzeitig steuerung des Systems übernehmen
Daten aus einer Tabelle auslesen-Koordinatensystem Systemunabhängige Email an mehrere Empfänger
fs - system (filesearch) Abfrage, ob Outlook oder Lotus Notes Mailsystem
Schichtsystem Systemvariable - Benutzername auslesen
PageSetup - absolute Systemauslastung Windows Systeminfo
Papierformat speichern FileSystemObject Frage
Kassensystem mit excel Excel -mangelnde Systemresourcen
Kleines Lager/Kassensystem verschiedene Papierquele beim Drucken
Entnahme mit Kapitalverzehr Berechnung Endkapital / Zinsen
Mehrfachberechnung linearesGleichungssystem-Solver Druck auf Papier und PDF mit und ohne Logo
Frage zur RSAPI.DLL Kombination Seitenumbruch Papierformat Anpassen
Koordinatensystem mit 4 Quadranten Kein Download wenn Betriebssystem Vista ist
Hilfe bei der Fehlersuche (API) Frage zu XKAPITALWERT
API-Zugriff Endkapital? bei unterschiedlichen Zahlungen
Handelssystem API für Tastaturpuffer auslesen
API für Tastaturpuffer auslesen Koordinatensystem definieren