Hi All,
i have been using the code below to get file names from folders which works perfectly but i need to make a minor adjustment. i need to add in to fetch the following:
- file last updated by (Column O)
- file last updated date (Column P)
- hyperlink the file to the spreadsheet (Column Q)
can someone help me update this code to include these?
Code:
[Sub GetFileNames_Assessed_As_ICSR_T2()Dim sPath As String, sFile As String
Dim iRow As Long, iCol As Long
Dim ws As Worksheet: Set ws = Sheet9
'declare and set the worksheet you are working with, amend as required
sPath = "Z:\CLIENTNAME\Articles Assessed as ICSRs\T2"
'specify directory to use - must end in ""
sFile = Dir(sPath)
Do While sFile <> ""
LastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row 'get last row on Column I
Filename = Left(sFile, InStrRev(sFile, ".") - 1) 'remove extension from file
Set FoundFile = ws.Range("I1:I" & LastRow).Find(what:=Filename, lookat:=xlWhole) 'search for existing filename
If FoundFile Is Nothing Then ws.Cells(LastRow + 1, "I") = Filename 'if not found then add it
sFile = Dir ' Get next filename
Loop
End Sub]
i have been using the code below to get file names from folders which works perfectly but i need to make a minor adjustment. i need to add in to fetch the following:
- file last updated by (Column O)
- file last updated date (Column P)
- hyperlink the file to the spreadsheet (Column Q)
can someone help me update this code to include these?
Code:
[Sub GetFileNames_Assessed_As_ICSR_T2()Dim sPath As String, sFile As String
Dim iRow As Long, iCol As Long
Dim ws As Worksheet: Set ws = Sheet9
'declare and set the worksheet you are working with, amend as required
sPath = "Z:\CLIENTNAME\Articles Assessed as ICSRs\T2"
'specify directory to use - must end in ""
sFile = Dir(sPath)
Do While sFile <> ""
LastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row 'get last row on Column I
Filename = Left(sFile, InStrRev(sFile, ".") - 1) 'remove extension from file
Set FoundFile = ws.Range("I1:I" & LastRow).Find(what:=Filename, lookat:=xlWhole) 'search for existing filename
If FoundFile Is Nothing Then ws.Cells(LastRow + 1, "I") = Filename 'if not found then add it
sFile = Dir ' Get next filename
Loop
End Sub]
Last edited: