Count number of pages in Tiff's

[daveofgv]

I saw this code from JohnH:
(filename is replaced with the directory location of my file)

   Dim img As Image = Image.FromFile(filename)
        Dim numpages As Integer = img.GetFrameCount(Imaging.FrameDimension.Page)
        Label1.Text = numpages
        img.Dispose()

However, even though this works perfect (everything from JohnH does) -

I am trying to loop through a folder with hundreds / thousands of Tiff images and write the page count (with image name) to a text file.

Can anyone give me any suggestions?

I don't need someone to write all the code for me, however, lead me the correct way.

Thanks in advanced.