modified date of the file

Discussion in 'Excel Programming' started by, Apr 11, 2014.

  1. Guest


    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..
    , Apr 11, 2014
    1. Advertisements

  2. Auric__ Guest

    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.
    Auric__, Apr 13, 2014
    1. Advertisements

  3. GS Guest



    Free usenet access at
    Classic VB Users Regroup!
    GS, Apr 13, 2014
  4. Guest


    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
    Cells(J, 3).Value = "File Not Present"
    Set objFolder = Nothing
    Set objShell = Nothing
    Next J
    End Sub
    , Apr 18, 2014
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.