Here is one more interesting VBA tool from the ExcelSirJi team. File Properties Tool is an Excel VBA tool that gets the following properties of the file.
You just need to browse the folder where your files are and click on ‘Get File Properties’ button
'This function loops through all the files in the folder and
'gets the properties of each file and displays them on the sheet
Public Sub GetFileProperties()
'Variable Declaration
Dim objFS As Object
Dim objFile As Object
Dim strPath As String
Dim vFile As Variant
Dim iCurRow As Integer
'Clear old data from the sheet
Sheet1.Range("C7:H" & Sheet1.Rows.Count).ClearContents
'Set the path of the folder
strPath = Sheet1.Range("C3").Value
'Add slash at the end of the path
If Right(strPath, 1) <> "/" And Right(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
'Set Directory to folder path
ChDir strPath
vFile = Dir(strPath & "*.*") 'Change or add formats to get specific file types
'Set the variable to FileSystemObject
Set objFS = CreateObject("Scripting.FileSystemObject")
iCurRow = 7
Do While vFile <> "" 'LOOP until all files in folder strPath have been looped through
Set objFile = objFS.getfile(vFile)
'File name
Sheet1.Cells(iCurRow, 3).Value = objFile.Name
'Date Created
Sheet1.Cells(iCurRow, 4).Value = objFile.DateCreated
'Date Last Accessed
Sheet1.Cells(iCurRow, 5).Value = objFile.DateLastAccessed
'Date Last Modified
Sheet1.Cells(iCurRow, 6).Value = objFile.DateLastModified
'Size
Sheet1.Cells(iCurRow, 7).Value = Round(objFile.Size / 1024 / 1024, 2)
'Type
Sheet1.Cells(iCurRow, 8).Value = objFile.Type
vFile = Dir
iCurRow = iCurRow + 1
Loop
End Sub
We hope that you loved this article and tool. Please share this with your friends and share your feedback, views in below comment box.Looking forward to see you again.
Note: ExcelSirJi team works hard to help it’s subscribers and visitors to make full use of the free templates. As part of this objective, you are free to use this template. To get unprotected copy, you may refer the below link.
QR Code Generator Tool in Excel Hi Friends, today we are going to learn something which is more closure to many businesses. As the businesses going global and digital, there is a need to adopt…
This Excel VBA Code helps to Get User Name. Here is an example environ(username) or Application.username.This macro gets the username from active directory.
Merge Excel Files From last few months, we have been receiving frequent requests from users for a VBA tool which can consolidate Excel files from a folder. So here we come with one more free…
How to Insert Symbol in Excel? I came across many queries regarding inserting special symbols in Excel. Here we are guiding how you may do this quickly in excel. Follow these steps and you may…
Here is one more wonderful free tool from ExcelSirJi.com which makes your life easy. Time & Motion Tracker helps you to track Start and End time of any type of transaction or activity. The good thing is, it is VBA based tool which helps you to protect from manual manipulation in the data by the user. It is also easy to use, just click on Start (shortcut: Ctrl+Shift+A) or Stop (Ctrl+Shft+S) buttons to record the time
How to use VBA to open Workbook in Excel? There are few VBA codes which are commonly used by every developer. One of them is giving an option to user to browse a file. Below is a…
It’s just what I need, but the download does not work.
Thank you Michela,
Could you please try now? Its working else you may download the same from here also. Happy Reading 🙂
https://excelsirji.com/wp-content/uploads/2018/11/File-Properties-Tool.zip
Your Excel Mate
Now it works perfectly. Thank you very much for your prompt reply!
Hi. Is there any chance to get unprotected version?
Hello Jed,
Please accept our apologies for delay in response.
As you know that we at ExcelSirJi works hard to help our subscribers and visitors to make full use of the free codes and templates published by our team.
As part of our objective, you are free to use these templates. However to access the code, you may refer the below link to get unprotected version.
https://courses.excelsirji.com/cartflows_flow/file-properties-tool/file-properties-tool/
Regards,
Your Excel Mate
This is a good bit of code. What I am struggling with is to amend the code to carry on the search in all subfolders. Ideally I’d love some code that would allow me to look for all Purchase Orders files containing “(SPO)” and to list them as you have here with a hyperlink on the file name. Again ideally this files contains field, would be a user typed variable, so we could look at all acknowledgements “(ACK)” or project references etc
Hi Paul,
Looking at your requirements, you may be interested in the File Manager Tool.
https://courses.excelsirji.com/cartflows_flow/file-manager-tool/download-file-manager-tool/
Regards,
ExcelSirJi Team