Vba-word

Формулировка задачи:

как с помощью find
добыть имена файлов из директории
все экземплы почему то ограничиваются msgbox ом
если не затруднит
спасибо...

Решение задачи: «Vba-word»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> intI

    <font color="blue">With</font> Application.FileSearch
        .FileName = <font color="teal">"*.*"</font>
        .LookIn = <font color="teal">"C:\My Documents"</font>
        .Execute
        <font color="blue">For</font> intI = <font color="darkblue"><b>1</b></font> <font color="blue">to</font> .FoundFiles.Count
            MsgBox .FoundFiles(intI)
        <font color="blue">Next</font> intI
    <font color="blue">End</font> <font color="blue">With</font>
                        