searches a location for mp3 files and then displays them in a word document
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objWord.Visible = True
objSelection.TypeText "MP3 lister"
objSelection.TypeParagraph()
objSelection.TypeText "" & Now
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objWord.FileSearch.FileName = "*.mp3"
objWord.FileSearch.LookIn = "D:\"
objWord.FileSearch.SearchSubfolders = True
objWord.FileSearch.Execute
For Each objFile in objWord.FileSearch.FoundFiles
objSelection.TypeText objFile
objSelection.TypeParagraph()
Next
No related posts.
Related posts brought to you by Yet Another Related Posts Plugin.
