Filesearch

[janus1janus1]

LS
Ik gebruikte in Excel 2003 de optie Filesearch. In 2010 werkt deze echter niet meer. Weet iemand hoe ik het aantal files in een directory kan tellen?

bvd Janus

With Application.FileSearch
        .NewSearch
        .LookIn = PathData
    End With
    With Application.FileSearch
        'een = .FoundFiles(1)
        'twee = .FoundFiles(2)
        If .Execute() = 1 Then
            
            bestand1 = .FoundFiles(1)
        Else
        
            MsgBox "Er mag maar één bronbestand aanwezig zijn in de betreffende directory"
        
        End
        End If
    End With

 

[OctaFish]

Met DIR. Kijk in de help voor een paar voorbeeldjes.

 

[janus1janus1]

Ik ben al met Dir aan de slag geweest, maar de voorbeelden daarvan zijn wel erg beperkt.
Ik kom niet verder dan dat ik de naam van een bestand en de grootte ervan kan opvragen. Het aantal bestanden tellen in een directory lukt me helaas niet.

mvrgr
janus

 

[alphamax]

2 manieren

Option Explicit

Public Sub listing1()
    Dim objFile As Object
    Dim objFolder As Object
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Users\gebruikersnaam\Documents")
    For Each objFile In objFolder.Files
        MsgBox objFile.Name
    Next
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

Public Sub listing2()
    Dim strFile As String
    strFile = Dir("C:\Users\gebruikersnaam\Documents\*.*")
    Do While strFile <> vbNullString
        MsgBox strFile
        strFile = Dir
    Loop
End Sub

 

[janus1janus1]

Beste Alphamax,

Geweldig, hier ben ik echt mee geholpen.

mvrgr
Janus:d