FileSystemObject error

[wence]

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".

[ashokkumard]

Hi

a minor change in for each, try this

For Each fileo In diro.files
m_filename = "": m_filename = fileo.Name
Next