Below is an excerpt from WordTips (12/11/99). Hope this is helpful. I haven't tried it.<br>
------------------------------<br>
Printing a File List<br>
------------------------------<br>
Many users of WordPerfect may be familiar with the feature that allows<br>
you to print the contents of a directory. Indeed, it can be very handy<br>
to have a printout of all the documents in a directory. Unfortunately,<br>
Word does not have an intrinsic command that allows you to accomplish<br>
the same task. There are a couple of ways you can approach this<br>
problem, however.<br>
<br>
The first is the old tried-and-true DIR method, which has been used by<br>
"techies" since the days of DOS. Simply open a command prompt (MS-DOS)<br>
window, locate the directory of which you want a list, and then type<br>
the following command:<br>
<br>
dir /b > mydir.txt<br>
<br>
This creates a text file (mydir.txt) that contains only the names of<br>
the files in the directory. You can then locate the file in Word and<br>
load it as a document. While this approach is not a single step, it is<br>
not particularly difficult, either.<br>
<br>
If you are using Word 97 or Word 2000 and would like a macro solution<br>
to the problem, you can use the following. It displays the standard<br>
Open dialog box, in which you can browse for the directory of which<br>
you want a list. When you select a file in that directory and click on<br>
Open, the macro creates a new Word document that lists all the files<br>
that the directory contains. Note that you must select a file from the<br>
directory.<br>
<br>
Sub ListFiles()<br>
Dim PathWanted As String<br>
Dim Temp As String<br>
Dim i As Integer<br>
<br>
With Dialogs(wdDialogFileOpen)<br>
.Name = "*.*"<br>
If .Display = -1 Then<br>
Documents.Add<br>
PathWanted = Options.DefaultFilePath(wdDocumentsPath)<br>
Selection.TypeText "Files in " & PathWanted & ":" & vbCrLf<br>
With Application.FileSearch<br>
.LookIn = PathWanted<br>
.FileName = "*.*"<br>
If .Execute > 0 Then<br>
For i = 1 To .FoundFiles.Count<br>
Temp = .FoundFiles(i)<br>
While InStr(Temp, "\"

> 0<br>
Temp = Mid(Temp, InStr(Temp, "\"

+ 1)<br>
Wend<br>
Selection.TypeText Temp & vbCrLf<br>
Next<br>
End If<br>
End With<br>
End If<br>
End With<br>
End Sub<br>
<br>
If you want to limit the files returned by the macro (for instance, to<br>
only those ending in .DOC), then you can change the file<br>
specifications ("*.*"

in two of the program lines.<br>
<p>Gary (akbryer)<br><a href=mailto:Gary_Bryer@Vanguard.com>Gary_Bryer@Vanguard.com</a><br><a href= > </a><br> <br>
<br>
Good deeds do not go unrewarded!