how to Get Folder Name VB6!!!

[Hack]

Try this

Private Sub Command1_Click()
Dim strLoad As String
Dim strDate As String
strDate = Format(Now, "mmddyyyy")
List1.Clear
strLoad = Dir("d:\*.*")
Do While strLoad > vbNullString
   If strDate = strLoad Then 'we have a match
      'do something
   End If
   strLoad = Dir
Loop
End Sub