pop up the files in the folder

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

Code:

---

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

---

I don't use the FSO...but a few things...

Use Option Explicit if you are not already.

You have a variable named fldSubFolder and later you added an s to it here:

Set fldSubFolders = fldMainFolder.Folders

Also, there is no .Folders member. But there is a .SubFolders member.

Anything after that I probably can't help with since I don't use the FileSystemObject.

If you don't mind.. What method you use to get the filename? Can I see you sample?