per VBA nach Lw suchen

[Jürgen Stadermann]

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

[Claus Busch]

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

[Claus Busch]

Hallo Jürgen,

wenn du nur suchen willst, kannst du es auch so machen (Lw-Buchstabe
wird in eine InputBox eingegeben):

Sub LwSuche()
Dim objFSO As Object
Dim Antwort As String

Set objFSO = CreateObject("Scripting.filesystemobject")

Antwort = Application.InputBox("Geben Sie den zu suchenden " _
& "Lw-Buchstaben ein", "Lw_Suche", Type:=2)

If objFSO.driveexists(Antwort & ":\") = True Then
MsgBox "Laufwerk " & UCase(Antwort) & " ist vorhanden"
Else
MsgBox "Laufwerk " & UCase(Antwort) & " ist nicht vorhanden"
End If

[Ingo Moch]

Hallo Juergen,

Jürgen Stadermann wrote:

> Per VBA soll auf dem PC nach einem bestimmten
> Lw gesucht werden

a) Wie definierst sich "bestimmtes Laufwerk"?

b) Meinst Du vielleicht "bestimmter Datentraeger"?

c) geht es um lokale oder Netzlaufwerke?

Ingo