How to print a list of documents in folder

[ERNIE ORNELLAS]

I AM USING EXCEL TO MAINTAIN A PERMANENT LIST OF WORK
ORDER DOCUMENTS. I WANT TO TAKE MY NUMERICAL LIST OF
DOCUMENTS AS THEY APPEAR WHEN I OPEN THE FOLDER AND PRINT
THEM TO USE AS AN INDEX.

CAN ANYONE GIVE ME DIRECTION ON HOW TO ACCOMPLISH THIS
TASK?

 

[Bob Phillips]

Ernie,

Try this which lists the files, and create and modify dates

Sub SubGetMyData()

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim iRow As Long

iRow = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\MyTest\")
For Each objFile In objFolder.Files
Cells(iRow, 1).Value = objFile.Name
Cells(iRow, 2).Value = objFile.DateCreated
Cells(iRow, 3).Value = objFile.DateLastModified
iRow = iRow + 1
Next
End Sub

 

[Rafael Ortiz]

You could simply open the folder, then hit ALT + Print Scrn, then go to Word
(or Paint) and Paste, then print this out.

or look at:

http://www.csun.edu/itr/guides/winnt-folderlist.html


MRO