| | | Xometry Europe erweitert das Angebot um Vakuumguss und Formpressen, eine Pressemitteilung
|
Autor
|
Thema: Laufwerksbuchstabe (1343 mal gelesen)
|
C. Thiel Mitglied
Beiträge: 442 Registriert: 15.10.2001 ACAD2k2, MDT6 mit aktuellen SP's, SE V17 SP13 + PM/KM WIN-XP/SP2 im Novell-Netz 3,4GHz Pentium, 2GB RAM
|
erstellt am: 13. Feb. 2002 08:40 <-- editieren / zitieren --> Unities abgeben:
Hi @ all! Ich hab schon im Internet recherchiert und auch schon die Windoof Hilfe durchforstet aber ich kann leider nichts finden. Ich suche ein Progrämmchen oder eine Möglichkeit wie z.B. eine Umgebungsvariable mit der ich auslesen kann, welchen Laufwerksbuchstaben das CD-ROM(am besten noch das, von dem gerade gelesen wird falls es mehrere Laufwerke gibt) ausgelesen und übergeben wird. Gibt es sowas? Läßt sich das realisieren? Wo kann ich sonst noch Infos dazu finden? MfG Chris Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StefanBerlitz Ehrenmitglied V.I.P. h.c. IT Admin (CAx)
Beiträge: 8756 Registriert: 02.03.2000
|
erstellt am: 13. Feb. 2002 11:16 <-- editieren / zitieren --> Unities abgeben: Nur für C. Thiel
Hallo Chris, ich kann dir zwar nur eine selbstgestrickte Lösung für VB zeigen, aber damit kannst du schon mal sehen, wie man es machen könnte. Code:
Option Explicit'API zum erkenne von Laufwerkstypen Declare Function GetDriveType Lib "kernel32.dll" _ Alias "GetDriveTypeA" (ByVal lpRootPathName As String) As Long 'GetDriveType return values Const DRIVE_REMOVABLE = 2 Const DRIVE_FIXED = 3 Const DRIVE_REMOTE = 4 Const DRIVE_CDROM = 5 Const DRIVE_RAMDISK = 6 Private Sub Main() ' MsgBox "Erstes CD-Laufwerk ist Buchstabe: " & BerFindFirstAudioCDS End Sub Function BerFindFirstAudioCDS() As String 'Funktion sucht nacheinander alle Laufwerksbuchstaben ab, bis es ein 'CD-Laufwerk mit eingelegter Audio-CD findet ' Rückgabewert: 0 - nix gefunden ' 1 - Laufwerk mit Audio-CD gefunden Dim i As Integer Dim lDrive As Long Dim szRoot As String On Error Resume Next 'wenn's einen Fehler hat, ist das Laufwerk nicht vorhanden For i = 0 To 24 '24 mögliche Buchstaben ohne die Floppys A: und B: szRoot = Chr$(Asc("C") + i) & ":\" lDrive = GetDriveType(szRoot) If lDrive = DRIVE_CDROM Then BerFindFirstAudioCDS = szRoot Exit Function End If Next 'i
Ciao, Stefan ------------------ Inoffizielle Solidworks Hilfeseite http://solidworks.cad.de EMail: Stefan.Berlitz@solidworks.cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|