Categories

Thousands of experts bid on your personal project at ScriptLance.com

Mp3 search

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.

You must be logged in to post a comment.