'ANSI
Public Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type

'Unicode
Public Type WIN32_FIND_DATA
   dwFileAttributes     As Long
   ftCreationTime       As Currency
   ftLastAccessTime     As Currency
   ftLastWriteTime      As Currency
   nFileSizeBig         As Currency
   dwReserved0          As Long
   dwReserved1          As Long
   cFileName(0 To 519)   As Byte
   cAlternate(0 To 27)   As Byte
End Type

 Dim lFind As Long
 Dim tInfo As WIN32_FIND_DATA
 
 sFileSpec = "D:\media\mp3\1\*.*"
 lFind = FindFirstFile(sFileSpec, tInfo)