I can't get the DIR function to return anything other than a zero length string...................I must be loosing it! (I hard coded the directory expression for purposes of the post. The directory expression normally is passed in an unbound text box.)
Code:Option Compare Database Dim strFileName As String Private Sub FixCommand_Click() strFileName = Dir("c:\crs") While strFileName <> "" Debug.Print Wend End Sub