Explorer Suche nach Ordner starten mit Vba

Forumthread: Explorer Suche nach Ordner starten mit Vba
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Explorer Suche nach Ordner starten mit Vba

28.11.2012 20:13:07

bruno

Hallo zusammne
möchte gern mit vba die Explorer Suchfunktion starten. Gesucht soll nach einem Ordner, welche ich vorher per Makro ermittelt habe. (Name steht in einer Zelle)
Gruss
Bruno

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Explorer Suche nach Ordner starten mit Vba

28.11.2012 20:38:04

Hajo_Zi
AW: Explorer Suche nach Ordner starten mit Vba

28.11.2012 20:46:00

bruno
AW: Explorer Suche nach Ordner starten mit Vba

29.11.2012 20:23:53

schauan

AW: Explorer Suche nach Ordner starten mit Vba

28.11.2012 20:38:04

Hajo_Zi

Hallo Bruno,
Du willst also feststellen ob es den Ordner gibt?


Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\", vbDirectory)  "" Then
MsgBox "vorhanden"
Else
MkDir "L:\Eigene Dateien\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso As Object, Ordnername As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
Set Fso = Nothing

AW: Explorer Suche nach Ordner starten mit Vba

28.11.2012 20:46:00

bruno

Hallo Hajo
Danke für die Antwort. Das Problem ist nur, dass ich den genauen Pfad nicht kenne (nur das Laufwerk und den ersten Ordner). Darum die Suchfunktion. Der Ordner ist/kann irgendwo in einer xten ebene weiter unten sein.
Darum der Gedanke/oder zur Zeit mache ich es so mit der Explorer Suche.

AW: Explorer Suche nach Ordner starten mit Vba

29.11.2012 20:23:53

schauan

Hallo Bruno,
schaue mal hier rein:
http://www.online-excel.de/fom/fo_read.php?f=3&bzh=0&h=120&ao=1
Grüße, André