Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
Sub TestListFilesInFolder() Workbooks.Add ' create a new workbook for the file list ' add headers With Range("A1") .Formula = "Folder contents:" .Font.Bold = True .Font.Size = 12 End With Range("A3").Formula = "File Name:" Range("D3").Formula = "Date Created:" Range("A3:H3").Font.Bold = True ListFilesInFolder "X:\Co50Reports\", True ' list all files included subfolders End Sub Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean) ' lists information about the files in SourceFolder ' example: ListFilesInFolder "C:\FolderName\", True Dim FSO As Scripting.FileSystemObject Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder Dim FileItem As Scripting.File Dim r As Long Set FSO = New Scripting.FileSystemObject Set SourceFolder = FSO.GetFolder(SourceFolderName) r = Range("A65536").End(xlUp).Row + 1 For Each FileItem In SourceFolder.Files ' display file properties Cells(r, 1).Formula = FileItem.Path & FileItem.Name Cells(r, 2).Formula = FileItem.DateCreated ' use file methods (not proper in this example) ' FileItem.Copy "C:\FolderName\Filename.txt", True ' FileItem.Move "C:\FolderName\Filename.txt" ' FileItem.Delete True r = r + 1 ' next row number Next FileItem If IncludeSubfolders Then For Each SubFolder In SourceFolder.SubFolders ListFilesInFolder SubFolder.Path, True Next SubFolder End If Columns("A:H").AutoFit Set FileItem = Nothing Set SourceFolder = Nothing Set FSO = Nothing ActiveWorkbook.Saved = True End Sub
|Seeking a modification of Ribbon.button.superTip content - for a customised ribbon button - to remove References to file.Name and to hyperlinks to Application.help||3||17|
|Why did I get the file extension .xlk when I added a plug-in in my Excel 2007 and can/should I save it as .xlsm next time?||3||19|
|Excel Macro to Extract Specific Columns to a New Tab||4||29|
|3rd level dependant list||4||33|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
9 Experts available now in Live!