Hi everyone.
I need a code that can go into a specific folder in SharePoint and then create a list of all files in this folder, together with a direct link or Path to that file. I also need the date and time for when it last was modified.
So I need an output like this:
FileName |
FilePath (or Link) |
Date and Time |
Example.xlsx |
https://company.sharepoint.com/...etc. |
12-06-2021 17:39:40 |
Example2.xlsx |
https://company.sharepoint.com/...etc. |
13-06-2021 15:09:12 |
Today (not in SharePoint) I use the following code to create the list:
Sub ListFiles()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
List.Activate 'My sheet for the list
Range("AndreFiler").Activate 'Where I have my list where I check for postings.
A = 0
For A = 1 To 100
If ActiveCell.Value = "" Then Exit For
With Xmarked(A)
.Navn = ActiveCell.Value
.Bogfør = ActiveCell.Offset(0, -1).Value
.Bogført = ActiveCell.Offset(0, 3).Value
End With
ActiveCell.Offset(1, 0).Activate
Next A
Range("OtherArea").ClearContents 'clear the list area
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Range("FilePath"))
i = 1
For Each objFile In objFolder.Files
If objFile.Name = "Thumbs.db" Then GoTo NextIteration
Cells(i + 4, 13) = objFile.Name
Cells(i + 4, 14) = objFile.Path
Cells(i + 4, 15) = FileDateTime(objFile.Path)
i = i + 1
NextIteration:
Next objFile
Range("AndreFiler").Activate 'recreate the list (to check if the files have been updated/posted)
c = 0
For c = 1 To 100
If ActiveCell.Value = "" Then Exit For
b = 0
For b = 1 To 100
If Xmarked(b).Bogfør = "x" Or Xmarked(b).Bogført = "x" Then
If ActiveCell.Value = Xmarked(b).Navn Then
ActiveCell.Offset(0, -1).Value = Xmarked(b).Bogfør
ActiveCell.Offset(0, 3).Value = Xmarked(b).Bogført
End If
End If
Next b
ActiveCell.Offset(1, 0).Activate
Next c
End Sub
Does anyone have a code that can do the same thing with folders in SharePoint?
Best regards
Rasmus