How can I open a Folder for it's files to be examined?

[kanejone]

Here's what I have. I want to look in the folder D:\Credit\newFolder for a number of files all with the same file extension. I want to know how to open this pariticular folder(D:\Credit\newFolder) to look for the file extensions .JPG.


<code>
'Taken from Crispin
Option Explicit
Dim fs As New FileSystemObject
Dim folCurrent
Dim ColFiles
Dim VarCurrentFile

Private Sub doJpg()
'can I add in here a open statement for a folder????
Set folCurrent = fs.GetFolder(Text1.Text)
Set ColFiles = folCurrent.Files
fs.CreateFolder (folCurrent & "\NEWDIR")
For Each VarCurrentFile In ColFiles
If UCase(Right$(VarCurrentFile, 3)) = "JPG" Then
'process the filenames one by one
Debug.Print VarCurrentFile
fs.CopyFile VarCurrentFile, folCurrent & "\NEWDIR", True
end if
Next
End Sub
</code>

Thanks a lot for all your help
JK