Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige