Hi Steve,
Try this,
Sub listFile()
Dim myDir, myFileType, rowCount, first, myFileName, fileDate
myDir = "e:\scrap" ' 'change to suit
myFileType = "*.xls" 'change the extension
rowCount = 1
first = True
Do While True
If first = True Then
myFileName = Dir(myDir + "\" & myFileType)
first = False
Else
myFileName = Dir
End If
If myFileName = "" Then Exit Do
fileDate = Format(FileDateTime(myDir + "\" + myFileName), "dd/mm/yyyy")
Cells(rowCount, "A") = myFileName
Cells(rowCount, "B") = fileDate
rowCount = rowCount + 1
Loop
End Sub
or
You may download my addins "workbook navigation.xla" from below site from
the add-ins page.
http://in.geocities.com/shahshaileshs/
Regards,
Shailesh Shah
http://in.geocities.com/shahshaileshs/
(Excel Add-ins Page)
"steve" <(E-Mail Removed)> wrote in message
news:46592c76$0$15392$(E-Mail Removed)...
>I need to create an index with comments on a large database of engineering
> plans. I would like to copy "just" the filename and if possible the "date
> modified" from the plans directory to columns in an excell spreadsheet.
>
> Is this possible
>
> Steve
>
>