![]() ObjXL.Range("B1:B1").Numbe rFormat = "d-m-yyyy" 'raise counter with 1 for a new row in excelįor Each objNewFolder In objCurrentFolder.subFolder s 'Counter 1 for writing in cell A1 within the excel workbookįor Each objFolder In objCurrentFolder.SubFolder s Set objXL = CreateObject( "Excel.Application" ) If fso.fileexists(outputfile) then fso.deletefile(outputfile) Set fso = CreateObject("scripting.fi lesystemob ject") Outputfile = "c:\foldersize_" & Day(now) & Month(now) & Year(now) & ".xls" ![]() ![]() It puts the output in an Excel file but you can of course change that. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |