Speciale Filesearch

[Navanax]

Ik wil enkel de a*.jpg files van een bepaalde directory inlezen, maar alle files behalve diegenen die numeriek beginnen, worden getoond.

hier is de code.

Wil eigenlijk buttons creeren voor de a*, b*, c* files om gemakelijker de foto's selecteren en in te laden in de database.

Dim I As Integer

Set fs = Application.FileSearch
With fs
    .LookIn = "D:\== Garden ==\= Pictures ="
    .Filename = "a*.jpg"
    .MatchTextExactly = False
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        Max_Pointer = .FoundFiles.Count
        ReDim ImgRay(.FoundFiles.Count)
        
        For I = 1 To .FoundFiles.Count
            ImgRay(I) = .FoundFiles(I)
        Next I
        
        Pointer = 1
        Call Pic_Loader
    Else
        MsgBox "There were no files found."
    End If
End With

[\code]

 

[Wigi]

Zet jouw code eens tussen code tags aub? Dit is niet echt leesbaar nu.

 

[Wigi]

Dit werkt toch echt wel bij mij hoor:

Sub w()

    Set fs = Application.FileSearch
    With fs
        .LookIn = "C:\"
        .Filename = "a*.jpg"
        .MatchTextExactly = False
        
        If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
            MsgBox .FoundFiles.Count
        Else
            MsgBox "There were no files found."
        End If
    End With

End Sub

Wigi

 

[Navanax]

Als ik jouw code overneem krijg ik nog steeds hetzelfde resultaat, alle file groter of gelijk aan a*.jpg

Sub w()

Set fs = Application.FileSearch
    
With fs
    .LookIn = "D:\== Garden ==\= Pictures ="
    .Filename = "a*.jpg"
    .MatchTextExactly = False
    
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox .FoundFiles.Count
         
    Else
        
        MsgBox "There were no files found."
    
    End If

End With

End Sub

[\code]

 

[Navanax]

na even zoeken kwam ik tot deze vaststelling

.Filename = "x*.jpg"

levert alle files met een x in de filenaam op, niet enkel die met een x beginnen !!!

 

[Wigi]

Hoi

Hier is nog meer uitgewerkte code:

Sub wigiFilesearch()

    Dim l As Long
    Dim arr
    Dim sFileName As String

    Set fs = Application.FileSearch
    
    With fs
    
        .LookIn = "C:\"
        .Filename = "*.jpg"
        .MatchTextExactly = False
        
        If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
            
            For l = 1 To .FoundFiles.Count

                arr = Split(.FoundFiles(l), "\")
                
                sFileName = arr(UBound(arr))
                
                If sFileName Like "x*.jpg" Then MsgBox sFileName
                
            Next
            
        Else
            
            MsgBox "There were no files found."
        
        End If
    End With

End Sub

Wigi

 

[Navanax]

Bedankt voor de tip, maar heb het ondertussen zo opgelost

Private Sub Z_Click()

Letter = "z"
Call Letter_Loader

End Sub

Private Sub ALL_Click()

Letter = ""
Call Letter_Loader

End Sub

Private Sub Letter_Loader()
'-'-'-'-'-'-'-'-'-'-'-'-'-'

Dim I As Integer

    Dim TMPfile As String

I = 0
TMPfile = Dir("D:\== Garden ==\= Pictures =\" & Letter & "*.jpg")

Do Until TMPfile = ""

    TMPfile = Dir
    
    If TMPfile = "" Then
        Exit Do
    Else
        I = I + 1
    End If
    
Loop

If I = 0 Then

    MsgBox "There were no files found."

Else

    ReDim ImgRay(I)
    I = 0
    TMPfile = Dir("D:\== Garden ==\= Pictures =\" & Letter & "*.jpg")
    
    Do Until TMPfile = ""
    
        TMPfile = Dir
        
        If TMPfile = "" Then
            
            Exit Do
        
        Else
        
            I = I + 1
            ImgRay(I) = "D:\== Garden ==\= Pictures =\" & TMPfile
        
        End If
    
    Loop

    Max_Pointer = I
    Pointer = 1
    Call Pic_Loader

End If

End Sub
[\code]

en nu werkt het

filesearch is een raar ding volgens mij ...

 

[Wigi]

De backslash voor de code tags moet een slash zijn. Graag dit nog even veranderen in je posts aub.