Public Function ListFiles()
  Dim hFile As Long
  Dim fd As WIN32_FIND_DATA
  Dim list() As String
    
  If (bInitialize = 0) Then Exit Function
  hFile = FtpFindFirstFile(hConnection, "*.*", fd, 0, 0)
  If hFile = 0 Then
    If Err.LastDllError = ERROR_NO_MORE_FILES Then
      MsgBox "No files found"
      Exit Function
    Else
      ShowError
      Exit Function
    End If
  End If
  ReDim list(0)
  Do
    ReDim Preserve list(UBound(list))
    list(UBound(list)) = fd.cFileName
    Debug.Print fd.cFileName
  Loop While InternetFindNextFile(hFile, fd) <> 0
  
  ListFiles = list
End Function