List files recursively AB

[Forbes]

So I have been playing with listing files in a list box from a directory using Allen Browne's List Files Recursively http://allenbrowne.com/ser-59.html it works great and I understand most of it. The thing I'm being nit picky about today is it lists the directory path behind the file names, where in the call function would i specify to leave this out, and what would I have to type?

[June7]

I tested function and not getting that output. The full path\filename is listed as a single string and column in listbox.

[Forbes]

I'm not the best at wording things sometimes haha, I want to get rid of the file path to just show the file names.

[June7]

Try:

lst.AddItem Right(varItem, InStrRev(varItem, "\"))

[Forbes]

Not sure if I have the code added correctly, it doesn't return errors.. but also doesn't seem to be doing this either.

[ssanfu]

You could try this:

<snip>
    'Add the files to the folder.
    strFolder = TrailingSlash(strFolder)
    strTemp = Dir(strFolder & strFileSpec)
    Do While strTemp <> vbNullString
      ' colDirList.Add strFolder & strTemp   '<<<<<< strFolder is the path
        colDirList.Add strTemp    '<< change the above line to this
        strTemp = Dir
    Loop
<snip>

Realize if there are more than one file name the same in different directories (bIncludeSubfolders is TRUE), you won't know what
directory they are in......

[June7]

Sorry, thought that worked but now not sure what I did. So this one definitely worked:

lst.AddItem Right(varItem, Len(varItem) - InStrRev(varItem, "\"))

In case the forum drops it, should be a \ in between those quote marks.

I looked at modifying the FillDir function but decided not to mess with the primary code that iterates folders.

[Forbes]

You could try this:

<snip>
    'Add the files to the folder.
    strFolder = TrailingSlash(strFolder)
    strTemp = Dir(strFolder & strFileSpec)
    Do While strTemp <> vbNullString
      ' colDirList.Add strFolder & strTemp   '<<<<<< strFolder is the path
        colDirList.Add strTemp    '<< change the above line to this
        strTemp = Dir
    Loop
<snip>

Realize is there are more than one file name the same in different directories (bIncludeSubfolders is TRUE), you won't know what
directory they are in......

Thank you so much for all your help guys this ended up solving the problem very easily, June7 I did not try your new method but it will be useful if this doesn't last as expected. Ssanfu, Basically what my program does is use shell commands to rename (ren) a massive list of files to a imported list of file names, so with any luck.. no file names should ever be the same and it's only in one child directory