Automatic Index For Jpg Folder

I`m trying to create a macro that produces an index of jpgs contained in a folder.
I need also some properties of the file. With these I will create a new naming system and rename existing files. To do part of this I copied from here a macro and adapted it. Copied: i.e. I don`t know much!!!

Problem 1)
Initially it worked, then "Run-time error 53, file not found" started appearing without me being aware of making any changes to the code.

Problem 2)
I would like to capture some of the properties of the files (pics from digital camera). Which jpgs properties can I access to and how?
What about exif data?
Explorer shows 3000x2000 pixels. Can I get this too?

Sub Get_Folder_Contents()
Dim folderstring As String
Sheets("Sheet1").Select
folderstring = ThisWorkbook.Path
f = Dir(CStr(folderstring & "*.jpg"))
n = 2
Do While Len(f) > 0
Cells(n, 1) = folderstring
Cells(n, 2) = f
Dim fs, fl
Set fs = CreateObject("Scripting.FileSystemObject")................