Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema Image | |
|---|---|
 Screenshot zu Image |
Image-Seite mit Beispielarbeitsmappe aufrufen |
Suchfunktion nach Folder & Dateien
- Suchfunktion nach Folder & Dateien von Peter vom 08.09.2004 17:17:28
- AW: Suchfunktion nach Folder & Dateien - von Nepumuk am 08.09.2004 17:31:14
 |
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 Long) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpStr1 As String, ByVal lpStr2 As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pList As Long, ByVal lpBuffer As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As String) As 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
| |