<div>
I use FSO (file system object) to do this but I'm not sure if this library was available for A2003 and I don't have any way to find out. 
 
Using FSO requires a reference to Microsoft Scripting Runtime. &nbsp;Open any code module and see if you can find that library loaded. &nbsp;If you can, I'll look for an example tomorrow if no one has posted one by then. &nbsp;I'm off to play Bridge.
</div>

<div>
Here are two options: 

<pre><code class="code-10 nolinks" id="code-20-41818911-1">Sub Demo(ByVal strFolder As String)
 Dim objFSO As Object
 Dim objFolder As Object
 Dim objFile As Object
 
 Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
 Set objFolder = objFSO.GetFolder(strFolder)
 
 For Each objFile In objFolder.Files
 Debug.Print &quot;Name: &quot; &amp; objFile.Name, &quot;Size: &quot; &amp; objFile.Size, &quot;Type: &quot; &amp; objFile.Type, &quot;Date last modified: &quot; &amp; objFile.DateLastModified; &quot;Date created: &quot; &amp; objFile.DateCreated, &quot;Date last accessed: &quot; &amp; objFile.DateLastAccessed,
 Next
 
 Set objFolder = Nothing
 Set objFile = Nothing
 Set objFSO = Nothing
End Sub

Sub Demo2(ByVal strFolder As String)
 Dim objShell As Object
 Dim objDir As Object
 Dim objFile As Object

 Set objShell = CreateObject(&quot;Shell.Application&quot;)
 Set objDir = objShell.Namespace(strFolder)

 For Each objFile In objDir.Items
 Debug.Print &quot;Name: &quot; &amp; objDir.GetDetailsOf(objFile, 0), &quot;Size: &quot; &amp; objDir.GetDetailsOf(objFile, 1), &quot;Type: &quot; &amp; objDir.GetDetailsOf(objFile, 2), &quot;Date last modified: &quot; &amp; objDir.GetDetailsOf(objFile, 3), &quot;Date created: &quot; &amp; objDir.GetDetailsOf(objFile, 4), &quot;Date last accessed: &quot; &amp; objDir.GetDetailsOf(objFile, 5)
 Next

 Set objShell = Nothin
 Set objDir = Nothin
 Set objFile = Nothin
End Sub
</code></pre>
</div>

<div>
since others have given you code to get information about a file, I will add code to loop through a directory and read filenames into an array then loop through the array 
<pre><code class="code-10 nolinks" id="code-20-41819009-1">Sub LoopFiles( _
 psPath As String _
 , Optional psMask As String = &quot;*.*&quot;)
'read files into array and open each one
's4p
 'PARAMETERS
 ' psPath is path to look in
 ' psMask is what to look for (ie: *.jpg)

 Dim psPathFile As String _
 , sFilename As String _
 , i As Integer

 Dim arrFile() As String
 
 psPath = Trim(psPath)
 If Right(psPath, 1) &lt;&gt; &quot;\&quot; Then
 psPath = psPath &amp; &quot;\&quot;
 End If
 
 'first array element will be 0
 i = -1
 sFilename = Dir(psPath &amp; psMask)
 
 'load files matching mask into an array
 Do While sFilename &lt;&gt; &quot;&quot;
 If (GetAttr(psPath &amp; &quot;\&quot; &amp; sFilename) And vbDirectory) &lt;&gt; vbDirectory Then
 i = i + 1
 'redimension array and preserve previous values
 ReDim Preserve arrFile(i)
 'assign filename to array element
 arrFile(i) = sFilename
 End If
 'get next filename
 sFilename = Dir()
 Loop
 
 'open all the files
 If Not UBound(arrFile) &gt;= 0 Then
 'No Files
 Exit Sub
 End If

 'loop through specified files and open
 For i = LBound(arrFile) To UBound(arrFile)
 psPathFile = psPath &amp; arrFile(i)
 ' ----------------------- do whatever you want
 Next i

End Sub
</code></pre>
</div>

<div>
Exactly what I was looking for, thanks.
</div>

<div>
<div class="content wysiwyg-content">
From within my Access 2003 application I would like a routine to read a list of the contents of a directory, including file name, file type, file size and date/time stamp of the file. 
 
I will pass the directory name (example: 'C:\Program\Test') &nbsp;to the routine and based on the file name and file type I will initiate pertinent logic.
</div>
</div>

From within my Access 2003 application I would like a routine to read a list of the contents of a directory, including file name, file type, file size and date/time stamp of the file.

I will pass the directory name (example: 'C:\Program\Test')  to the routine and based on the file name and file type I will initiate pertinent logic.

Reading the Contents of a Directory In Access VBA

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.