if VB6, then one option would be to do something like
VB Code:
  1. Private Sub Command1_Click()
  2.     Dim sPath As String
  3.     sPath = "C:\Path\To\File\"
  4.     Debug.Print Dir(sPath & "*.*")
  5. End Sub
(if there's just one file in the folder that is.)