pop up the files in the folder

[matrik02]

How I pop up the files name in the folder without files name extension? I try to pop up the files name but i got this..data member not found

Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
Dim fldMainFolder As Folder
Dim fldAllSubFolders As Folders
Dim fldSubFolder As Folder
Dim flAllFiles As Files
Dim flFile As File

Set fldMainFolder = FSO.GetFolder("C:\Documents and Settings\fauzul\Desktop\Print Attribute")
Set fldSubFolders = fldMainFolder.Folders
For Each fldSubFolder In fldAllSubFolders
    Set flAllFiles = fldSubFolder.Files
    For Each flFile In flAllFiles
       ...
    Next
Next