Macro Help with sample in From Article ID : 236162

[Guest]

From Article ID : 236162

I need to list out all the files in a folder. Macro works great, and I
modified to rid size, and date/time, BUT is it possible to just get the file
name and not the enitre "location" and file name? i.e. instead of the macro
returning the file name as C:\WINDOWS\Web\Wallpaper\Follow it would just
return the actual file name of Follow.

I have it narrowed down to this piece of code within the sample macro in the
article above (which is about 30 lines from the bottom of the macro):
Selection.TypeText .FileName

Thanks for your help in advance. Have a great day!

 

[Jay Freedman]

Replace that line with this one:

Selection.TypeText WordBasic.FileNameInfo(.FileName, 3) & vbCr

If you want to know about the FileNameInfo function, see
http://www.word.mvps.org/FAQs/MacrosVBA/WordBasicCommands.htm.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.