Insert into a document the names of all files in a selected folder

Article contributed by Bill Coan

Sub InsertNamesOfFilesInAFolder()

Dim MyPath As String
Dim MyName As String

'let user select a path
With Dialogs(wdDialogCopyFile)
    If .Display() <> -1 Then Exit Sub
    MyPath = .Directory
End With

'strip quotation marks from path

If Len(MyPath) = 0 Then Exit Sub

If Asc(MyPath) = 34 Then
    MyPath = Mid$(MyPath, 2, Len(MyPath) - 2)
End If

'get files from the selected path
'and insert them into the doc

MyName = Dir$(MyPath & "*.*")
Do While MyName <> ""
    Selection.InsertAfter MyName & vbCr
    MyName = Dir

'collapse the selection
Selection.Collapse wdCollapseEnd

End Sub