Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen

Suchfunktion nach Folder & Dateien

Betrifft: Suchfunktion nach Folder & Dateien von: Peter
Geschrieben am: 08.09.2004 17:17:28

Hallo

Ich möchte aus Excel einen Ordner in der Windows folder structure nach verschiedenen Krierien suchen und diesen danach angeben. Kann man so was machen?

Wäre toll, wenn ein Experte das wüsste.

Peter

  


Betrifft: AW: Suchfunktion nach Folder & Dateien von: Nepumuk
Geschrieben am: 08.09.2004 17:31:14

Hallo Peter,
meinst du so?


Option Explicit

Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As InfoT) As Long
Private Declare Function CoTaskMemFree Lib "ole32" (ByVal hMem As LongAs Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpStr1 As StringByVal lpStr2 As StringAs Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pList As LongByVal lpBuffer As StringAs Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As StringByVal lpWindowName As StringAs Long

Private Type InfoT
    hwnd As Long
    Root As Long
    DisplayName As Long
    Title As Long
    Flags As Long
    FName As Long
    lParam As Long
    Image As Long
End Type

Private Function GetAOrdner() As String
    Dim xl As InfoT, IDList As Long, RVal As Long, FolderName As String
    With xl
        .hwnd = FindWindow("xlmain", vbNullString)
        .Title = lstrcat("Bitte wählen Sie ein Verzeichnis", "")
        .Flags = &H1
    End With
    IDList = SHBrowseForFolder(xl)
    If IDList <> 0 Then
        FolderName = Space(256)
        RVal = SHGetPathFromIDList(IDList, FolderName)
        CoTaskMemFree (IDList)
        FolderName = Trim(FolderName)
        FolderName = Left(FolderName, Len(FolderName) - 1)
    End If
    GetAOrdner = FolderName
End Function

Public Sub Ordner_suchen()
    Dim strFoldername As String
    strFoldername = GetAOrdner
    If Trim$(strFoldername) <> "" Then
'    dein Code
    End If
End Sub


Gruß
Nepumuk


 

Beiträge aus den Excel-Beispielen zum Thema "Suchfunktion nach Folder & Dateien"