Excel file list (dir) 2

[faxof]

I need to use excel to pull a list of all the files held in a network folder, m:\apps\usage\ad
i need to pull out a list of all the files in that directory and their modified date

any ideas?
faxof

 

[kshanes]

faxof,

Try this code in VBA:

-----------------------------
Dim m_FSObject
Dim m_Folder
Dim m_File
Dim m_Files
Dim iCnt

Set m_FSObject = CreateObject("Scripting.FileSystemObject&quot

Set m_Folder = m_FSObject.GetFolder("m:\apps\usage\ad&quot
Set m_Files = m_Folder.Files

For Each m_File In m_Files
iCnt = iCnt + 1

With ThisWorkbook
.Application.Cells(iCnt, 1) = m_File.Name
End With

Next
------------------------------------------------------

Hope this helps,
~Kevin

 

[faxof]

Kevin
That's good - but it only seems to pull out the file names - how can i get the Last Modified data also?


faxof

 

[kshanes]

faxof,

just add the following line of code under the .Application.Cells(iCnt,1) = m_File.Name line:

.Application.Cells(iCnt, 2) = m_File.DateLastModified

This will put the last modified date in column B for each file in column A.

~Kevin

 

[kshanes]

faxof,

I just want to make sure my last post answered your question. I don't want to leave you hanging. If it didn't answer your question please let me know.

Thanks

 

[faxof]

It worked liek a treat.
thanx

faxof