Herbers Excel-Forum - das Archiv

ordner suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ TextBox
Bild

Betrifft: ordner suchen
von: jhaustein
Geschrieben am: 06.10.2003 12:08:08
hallo gemeinschaft

folgendes prob - möchte gerne die möglichkeit haben einen ordner zu suchen

im anschluss soll mir das verzeichnis angezeigt werden - stelle mir das so vor textbox, in der ich den ordner den ich suche eingebe - anschliessend soll mir dann das verzeichnis angeziegt werden, in dem der ordner liegt

könnt ihr mir dabei bitte helfen

gruss
jörg

Bild

Betrifft: AW: ordner suchen
von: geri
Geschrieben am: 06.10.2003 13:41:06
Hallo Jürg

es geht sicher noch kürzer aber es funktioniert so ....

Option Explicit
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare 


Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare 



Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long




Function FunktionGetDirectory(Optional strAufforderung) As String
Dim bInfo As BROWSEINFO
Dim Path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(strAufforderung) Then
bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
Else
bInfo.lpszTitle = strAufforderung
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
Path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal Path)
If r Then
pos = InStr(Path, Chr$(0))
FunktionGetDirectory = Left(Path, pos - 1)
Else
FunktionGetDirectory = ""
End If
End Function







'hier starte Makro





Sub Dateien_Search_Listing_2()
Dim fsObjekt As Object, index As Integer
Dim C               As Range
Dim datErweiterung  As String
Dim Meldung         As String
Dim letzteZeile     As String
Dim DataOption1     As String
Dim intPos          As Integer
Dim strLink         As String
Dim sPath           As Variant
Dim Merker          As String
Dim Pruef           As Integer
Application.ScreenUpdating = False
sPath = FunktionGetDirectory
MsgBox "der Pfad heisst    " & sPath & vbCr & vbLf & ""
End Sub




    

in Modul kopieren

du kannst Spath auch in Zelle ausgeben




gruss geri



Bild




Betrifft: AW: ordner suchen



von: jhaustein


Geschrieben am: 06.10.2003 14:36:29

hi




bekomme leider rot markierten bereich




Declare

Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long



Bild




Betrifft: AW: ordner suchen



von: geri


Geschrieben am: 06.10.2003 14:43:19

Jürg




bei mir funktionierts mit OFF2000 un XP




gruss geri



Bild




Betrifft: AW: ordner suchen



von: jhaustein


Geschrieben am: 06.10.2003 14:48:51

sorry geri - bin zu blöd - hab die declare function aufgeteilt in zwei zeilen




tschuldige nochmal -- wie ruftst du die function denn auf



Bild




Betrifft: AW: ordner suchen



von: geri


Geschrieben am: 06.10.2003 14:52:27

Jörg




in Code habe ich markiert --> Macrostart --> Dateien_Search_Listing_2







gruss geri



Bild




Betrifft: AW: ordner suchen



von: jhaustein


Geschrieben am: 06.10.2003 14:55:27

hi geri 




jo hab ich - was ich allerdings suche ist - ich möchte einen ordnernamen eingeben und nicht im verzeichnis auswählen und dann möchte ich ihn angezeigt bekommen - kannst du da nochmal schaun




gruss

jörg



Bild




Betrifft: AW: ordner suchen



von: geri






Geschrieben am: 06.10.2003 15:16:52

Jüerg




stelle die Frage nochmals im Forum, denn für mich ist Frage bzw. Zweck nicht

klar für mich ist Verzeichnis und Ordner daselbe




die Vorlage von mir dient mir dazu mit der Auswahl von LAUFWERK / Verzeichnis

alle Dateien im Verzeichnis mit Hyperlink erstellen und im Blatt aufzulisten

so kann ich jedes File öffnen nach Wahl via Hyperlink, der Code war nur 

Auszug für die Wahl des Laufwerkes und des Ordners




falls Inrtesse kann ich dir schicken




gruss geri



Bild




Betrifft: AW: ordner suchen



von: jhaustein


Geschrieben am: 06.10.2003 15:42:32

hi geri

ich wollte letztendlich dahin kommen, dass ich einen ordner eingeben kann und dann wollte ich ich alle verzeichnisse nach diesem ordenr durchsuchen lassen




meine mail jhaustein@web.de



Bild




Betrifft: AW: ordner suchen



von: geri


Geschrieben am: 06.10.2003 22:25:08

Hallo Jörg




habe im Archiv nichts gefunden was einiger Massen deinen wunsch erfüllt,

in dieser Weise nicht mal ein Ansatz, alles beginnt so im Macro wie du 

Code von mir hast.




gruss geri 



Bild




Betrifft: AW: ordner suchen



von: jhaustein






Geschrieben am: 07.10.2003 09:42:47

hi geri




vielen dank für deine mühe - leider hab ich auch die gleiche erfahrung machen müssen - nichts weas passt - schade













Bild




Betrifft: AW: ordner suchen



von: Nike


Geschrieben am: 06.10.2003 14:34:49

Hi,

könnte nicht schaden den Ansatz oder zumindest den Link darauf als

Anhaltspunkt mitzuliefern, so haben mögliche Antworter wengistens 

schon mal nen Einstiegspunkt...




Bye




Nike





 Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " ordner suchen"
Excel-Dateien eines Ordners listen Ordner eines Verzeichnisses in ListBox übernehmen
Bei Doppelklick Ordner im Explorer öffnen Dateien einer Ordnerliste in einer Tabelle zusammenstellen
Ordnernamen eines Verzeichnisses in Zelle einfügen Dateisuche unter Einbeziehung der untergeordneten Ordner
Ordnerdialog mit nachfolgendem Dateidialog aufrufen Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen
Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern Vorhandensein von Verzeichnissen prüfen und Ordner anlegen