Private Sub Form_Load()
Dim fso As FileSystemObject, fileo As File, diro As Folder
Dim m_folderpath As String
m_folderpath = "c:\test\xu\"
Dim m_filename As String

Set fso = New FileSystemObject
Set diro = fso.GetFolder(m_folderpath)
For Each fileo In diro
m_filename = "": m_filename = fileo.Name
Next

End Sub

Error highlighting "For Each fileo In diro", indicating that "object doesnt support this property or method".