per VBA nach Lw suchen

02/04/2012 - 18:28 von Jürgen Stadermann | Report spam
Hallo!
Per VBA soll auf dem PC nach einem bestimmten Lw gesucht werden
ist dieses Lw (Lw Buchstabe) nicht existent, soll per
Msgbox Meldung ausgegeben werden.

Wie bitte lautet der Code.
Danke schon mal für Antworten.
Jürgen

Excel2010
 

Lesen sie die antworten

#1 Claus Busch
02/04/2012 - 19:01 | Warnen spam
Hallo Jürgen,

Am Mon, 02 Apr 2012 18:28:32 +0200 schrieb Jürgen Stadermann:

Per VBA soll auf dem PC nach einem bestimmten Lw gesucht werden
ist dieses Lw (Lw Buchstabe) nicht existent, soll per
Msgbox Meldung ausgegeben werden.



mit folgendem Code kannst du dir eine Laufwerksliste anzeigen lassen.
Dabei werden Diskettenlaufwerke und auswechselbare Datentràger wie z.B.
Kartenleser nicht angezeigt. In CD- bzw. DVD-Laufwerke muss ein
Datentràger rein. Du kannst dir den Code auch umschreiben, um einen
speziellen Laufwerksbuchstaben zu suchen:

Sub Laufwerksliste()
Dim objFSO As Object
Dim Lw As Object
Dim LwName As String
Dim StrAusgabe As String

On Error GoTo Errorhandler
Set objFSO = CreateObject("Scripting.filesystemobject")
For Each Lw In objFSO.drives
'Diskettenlaufwerke und auswechselbare Datentràger
'werden nicht aufgeführt
If Lw.drivetype = 1 Or Lw.drivetype = 5 Then
LwName = ""
Else
LwName = Lw.volumename
StrAusgabe = StrAusgabe & Lw.driveletter & " - " _
& LwName & Chr(10)
End If
Next

MsgBox StrAusgabe
Set objFSO = Nothing
Exit Sub

Errorhandler:
MsgBox "Das Laufwerk " & Lw & " ist nicht bereit." _
& Chr(10) & "Legen Sie bitte einen Datentràger ein"
End Sub


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen