Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

laufwerke ermitteln

Forumthread: laufwerke ermitteln

laufwerke ermitteln
17.01.2003 09:12:55
Tobias
Hallo,

gibt es per VBA die Möglichkeit zu ermitteln welche Laufwerke in meinem Rechner vorhanden sind und diese nacheinander anzusprechen (ausser Diskette und CD-Rom) um eine Datei (Beispiel.xls) dorthin zu speichern.

Danke für Eure Hilfe

Tobias

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: laufwerke ermitteln
17.01.2003 09:19:25
Bernd Held
Hallo Tobias,

diese Aufgabe kannst Du über eine API-Funktion lösen:

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


Function Laufwerke() As String
Dim lLWTyp As Long
Dim sLW As String
Dim l As Long
Dim l1 As Long
Dim sBuffer As String

sBuffer = Space(200)
l = GetLogicalDriveStrings(200, sBuffer)
If l = 0 Then
CdRomLWBuchstabe = vbNullString
Exit Function
End If
l1 = 1
sLW = Mid(sBuffer, l1, 3)
Do While (Mid(sBuffer, l1, 1) <> vbNullChar)
lLWTyp = GetDriveType(sLW)

Laufwerke = Laufwerke & sLW

l1 = l1 + 4
sLW = Mid(sBuffer, l1, 3)
Loop
End Function


Sub LWAnzeigen()
Dim s As String

s = Laufwerke()
MsgBox "Vorhandene Laufwerke: " & s
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de

Anzeige
Re: laufwerke ermitteln
17.01.2003 10:23:21
Nepumuk
Hallo Tobias / Martin
geht auch ohne API:

Gruß
Nepumuk
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige