modified date of the file

  • Thread starter Thread starter naveencn023
  • Start date Start date
N

naveencn023

HI,

I have the folder( sub folders) keywords in column A and the folder paths in column B. I need to macro to search the folder with the keyword in the path and it should throws message "PASS" if folder exists or "FAIL" if folderdoesn't exists in column C. Also if folder exists, it should show last modified date in column D.

Please do the needful.

Thanks in advance for your help..
 
naveencn023 said:
I have the folder( sub folders) keywords in column A and the folder
paths in column B. I need to macro to search the folder with the keyword
in the path and it should throws message "PASS" if folder exists or
"FAIL" if folder doesn't exists in column C. Also if folder exists, it
should show last modified date in column D.

Please do the needful.

Thanks in advance for your help..
Click to expand...

Did you try to do it yourself? If so, post what you've already got, so we can
give you some pointers.

If not, I'll do it for you, US$1000, paid in advance, no refunds.
 
naveencn023 said:
Did you try to do it yourself? If so, post what you've already got,
so we can give you some pointers.

If not, I'll do it for you, US$1000, paid in advance, no refunds.
Click to expand...

<bg>!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
naveencn023 wrote:










Did you try to do it yourself? If so, post what you've already got, so we can

give you some pointers.



If not, I'll do it for you, US$1000, paid in advance, no refunds.
Click to expand...

Hi,

I have the below mentioned code which will retrieve only file present/ not and i want to retrieve last modified date of the file too...


Sub IsItThere()
Dim KeyWd As String
Dim Pathh As String, fName As String
Dim N As Long, J As Long
N = Cells(Rows.Count, "A").End(xlUp).Row
For J = 1 To N
KeyWd = Cells(J, 1).Value
Pathh = Cells(J, 2).Value
If Right(Pathh, 1) = "\" Then
Pathh = Mid(Pathh, 1, Len(Pathh) - 1)
End If
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace((Pathh))

For Each strFileName In objFolder.Items
fName = objFolder.GetDetailsOf(strFileName, 0)
If InStr(1, fName, KeyWd) > 0 Then
Cells(J, 3).Value = "File Present"
GoTo NextRecord
End If
Next
Cells(J, 3).Value = "File Not Present"
NextRecord:
Set objFolder = Nothing
Set objShell = Nothing
Next J
End Sub
 
Back
Top