Excel Read Directory and count files 1

[ninash]

Hi All,

I need to read a directory and count the files contained in it. Also I need to read the files names for file processing.
Any help you can provided will be very welcome

Tony

 

[Loomah]

Hi
Just as a starting point for you

Sub sell()
Dim fso As Object
Dim fold
Dim file
Dim s As String

s = "C:\My Documents\YOUR FOLDER NAME HERE"

Set fso = CreateObject("scripting.filesystemobject")
Set fold = fso.getfolder(s)

With fold
    For Each file In .Files
        MsgBox file.Name
    Next
    MsgBox "There are " & .Files.Count & " files in folder " & s
End With

Set fso = Nothing
Set fold = Nothing
End Sub

If a man says something and there are no women there to hear him, is he still wrong?
The faqs ma'am, just the faqs. Get the best from these forums : faq222-2244

 

[PHV]

You may also take a look at the Dir function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Dreamboat]

We are working on something VERY like this:

http://www.vbaexpress.com/forum/showthread.php?p=7088

Anne Troy

http://www.vbaexpress.com/forum

 

[ninash]

Thanks Loomah

Just what I needed to get the job done

You are a star but I will give you another to make you shine even brighter

Ta
Tony