Laufwerkabfrage aus Zellbereich
04.04.2006 08:39:03
Andre´
ich habe folgenden Code hier aus dem Forum erhalten. Ich möchte gern, dass ich die Laufwerkabfrage nicht im Makro festschreiben muss, sondern dass von einer anderen geöffneten Arbeitsmappe Namens Laufwerkabfrage das Tabellenblatt Namens Laufwerk aus der Zelle A1 (wo dann der Pfad steht z.B:G:) abgefragt wird ob er vorhanden ist.
Gibt es dafür eine Möglichkeit, wenn ja wie muss der Code dann lauten!
Bin für jeden Tipp dankbar.
MFG Andre
Public Sub Test()
If Ordner_vorhanden("G:") Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden!!!"
End If
End Sub
Private Function Ordner_vorhanden(Ordner As String) As Boolean
Dim FSYObjekt As Object
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
Ordner_vorhanden = FSYObjekt.FolderExists(Ordner)
End Function
Anzeige