[VBA/Excel] Dmv Win32 API zoeken in bestanden *

[456]

Ik zou graag de onderstaande functie van windows willen gebruiken, om het aantal bestanden te tellen die aan een voorwaarde voldoen:
(CLickable)



Is het mogelijk om middels VBA in excel de invoer te bepalen welke bij pijl 1 staat?
Is het mogelijk om bij de output (pijl2) het aantal bestandjes te tellen wat de zoekfunctie als resultaat terug geeft.

Nu zou ik al geholpen zijn, als iemand me op weg helpt OF het uberhaupt mogelijk is of de zoekfunctie aan te roepen is.

[ Voor 7% gewijzigd door 456 op 30-09-2003 16:16 . Reden: plaatje ]

[.oisyn]

Je plaatje doet het hier niet echt. Heb je nog andere hosting?

[Woudloper]

Wellicht kan je hier even kijken. Als het goed is kan je hiervoor gewoon gebruik van maken. Dan met name van de volgende API Declaraties:

Visual Basic:

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

[ Voor 49% gewijzigd door Woudloper op 30-09-2003 16:13 ]

[456]

Dank, daar kan ik denk ik wel iets mee. Kga er even mee aan de slag. Ik hoop dat mijn plaatje het inmiddels 'weer' doet?(ik kon hem gewoon zien, wellicht cache, of heeft provider er even uitgelegen)
Zie ondertitel

[ Voor 4% gewijzigd door 456 op 30-09-2003 17:16 ]

[.oisyn]

Woudloper: daar heeft de TS weinig aan, daarmee kan hij alleen maar files vinden die aan een bepaalde naam voldoen, en niet zoeken naar een bepaalde tekst in files

[456]

Klopt, was ik ook al achter. Maar de gegeven link heeft me enorm veel meer informatie (aan vnl.links) opgeleverd, welke ik nu aant doorspitten ben. Als ik een oplossing heb, meld ik me weer, of als iemand iets weet, spui het.

[Woudloper]

.oisyn :: helemaal gelijk, maar dit was alleen een handreiking hoe je de bestanden kon vinden en op de link (staat bij geaccepteerde antwoorden) hetgeen de topicstarter (TP) wilde weten als je het mij vraagt.

Overigens kan de TP'er ook nog op deze link klikken want daar staat het gebruik van de gegeven functie helemaal uitgelegd.

[456]

Dan nu zelf maar het antwoord geven. Ik heb het gevonden op een ander vba forum. Die kerel kwam gewoon met een excel bestandje zelf aan, werkend op *.txt. Deze kun je echter makkelijk in *.doc veranderen:

code:

Option Explicit

Sub z()

    Dim lngIndex As Long
    Dim strSearchFor As String
    Dim strLocation As String
    Dim rngFiles As Range
    
    strLocation = Range("D2").Text
    If Range("D5") <> "" Then
        strSearchFor = Range("D5").Text
        If Range("D7") <> "" Then
            If Range("D6") = "And" Then
                strSearchFor = strSearchFor & " and " & Range("D7").Text
            Else
                strSearchFor = strSearchFor & " or " & Range("D7").Text
            End If
            If Range("D9") <> "" Then
                If Range("D8") = "And" Then
                    strSearchFor = strSearchFor & " and " & Range("D9").Text
                Else
                    strSearchFor = strSearchFor & " or " & Range("D9").Text
                End If
            End If
        End If
    End If
    
    If strSearchFor = "" Then
        MsgBox "Nothing to search for", vbExclamation
        Exit Sub
    End If
    
    With Application.FileSearch
        .NewSearch
        .LookIn = strLocation
        .SearchSubFolders = False
        .TextOrProperty = strSearchFor
        .Filename = "*.txt"
        .Execute
        
        Range("B:B").Clear
        Set rngFiles = Range("B15")
        rngFiles.Offset(0, 0) = "Found " & .FoundFiles.Count & " containing " & .TextOrProperty
        For lngIndex = 1 To .FoundFiles.Count
            ActiveSheet.Hyperlinks.Add Anchor:=rngFiles.Offset(lngIndex, 0), Address:=.FoundFiles.Item(lngIndex)
        Next
    End With


End Sub

Bron: http://ozgrid.com/forum/viewthread.php?tid=6532
Bestand: http://ozgrid.com/forum/v...chment&tid=6532&pid=30911

Ik weet niet of je je een voorstelling kan maken van de sheet zelf, anders moet het bestandje even gedownload worden (ik host niet zelf, is van dat betreffende forum, als ie offline is, jammer maar helaas. Daarom wel even de code hier gepost, voor later)

edit:
Ik heb even, voor de duidelijkheid, dit erbij/onder gezet:

code:

    With Application.FileSearch
        .NewSearch
        .LookIn = strLocation
        .SearchSubFolders = False
        .TextOrProperty = strSearchFor
        .Filename = "*.txt"
        .Execute

Laatst genoemde code is dus de daadwerkelijke zoekfunctie. O o o o o o wat simpel he
De opties spreken voor zich, enkele licht ik er even uit:
.Lookin = de directory waar in gezocht moet worden
.TextOrProperty = de waarde die gezocht moet worden
.Filename = welke bestanden moeten er in bovengenoemde directory worden bekeken of ze de bovengenoemde string bevatten.
Er is ook een beperkte Help in VBA zelf te vinden over FileSearch
C'est tout!

[ Voor 32% gewijzigd door 456 op 01-10-2003 14:05 ]