#SingleInstance, force SetBatchLines, -1 SetFormat, float, 0.2 files=0 directories=0 j=1 FileSelectFolder, Folder, , 3, Please select folder. If Folder= ExitApp MsgBox, 35, , Do you want to list subfolders? IfMsgBox, No IncludeDirectories=no IfMsgBox, Yes IncludeDirectories=yes IfMsgBox, Cancel ExitApp if (IncludeDirectories="yes") { Loop, %Folder%\*.*, 2 { FormatTime, FileTimeM, %A_LoopFileTimeModified%, dd.MM.yyyy HH:mm:ss FormatTime, FileTimeC, %A_LoopFileTimeCreated%, dd.MM.yyyy HH:mm:ss FormatTime, FileTimeA, %A_LoopFileTimeAccessed%, dd.MM.yyyy HH:mm:ss if (j>0) tr_bgcolor=#E9E3C4 else tr_bgcolor=#D9D3B7 j:=j*(-1) directories++ tr_dir= (LTrim %tr_dir% <tr bgcolor="%tr_bgcolor%"> <td>%A_LoopFileName%\</td> <td>%A_LoopFileSize%</td> <td>%A_LoopFileSizeKB%</td> <td>%A_LoopFileSizeMB%</td> <td>%FileTimeM%</td> <td>%FileTimeC%</td> <td>%FileTimeA%</td> <td>%A_LoopFileAttrib%</td> </tr>`r`n ) } } Loop, %Folder%\*.* { if (A_LoopFileName=A_ScriptName) continue FileSizeKB:=A_LoopFileSize/1024 FileSizeMB:=A_LoopFileSize/(1024**2) FolderSizeB += A_LoopFileSize FormatTime, FileTimeM, %A_LoopFileTimeModified%, dd.MM.yyyy HH:mm:ss FormatTime, FileTimeC, %A_LoopFileTimeCreated%, dd.MM.yyyy HH:mm:ss FormatTime, FileTimeA, %A_LoopFileTimeAccessed%, dd.MM.yyyy HH:mm:ss if (j>0) tr_bgcolor=#E9E3C4 else tr_bgcolor=#D9D3B7 j:=j*(-1) files++ tr_file= (LTrim %tr_file% <tr bgcolor="%tr_bgcolor%"> <td>%A_LoopFileName%</td> <td>%A_LoopFileSize%</td> <td>%FileSizeKB%</td> <td>%FileSizeMB%</td> <td>%FileTimeM%</td> <td>%FileTimeC%</td> <td>%FileTimeA%</td> <td>%A_LoopFileAttrib%</td> </tr>`r`n ) } FolderSizeKB:=FolderSizeB/1024 FolderSizeMB:=FolderSizeB/(1024**2) if (directories>0) dirs=%directories% directories if (directories=1) dirs=%directories% directory time=%A_Now% FileAppend, ( <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html; charset=ISO-8859-1" http-equiv="content-type"> <title>%Folder%\</title> </head> <body bgcolor="white" text="black" link="black" vlink="black" alink="red"> <span style="font-family:arial; font-size:14"> %Folder%\%files% files (%FolderSizeB% B - %FolderSizeKB% KB - %FolderSizeMB% MB)%dirs% </span> <table border="0" cellspacing="2" cellpadding="2"> <tbody style="font-family:arial; font-size:14"> <tr bgcolor="#B2AD96"> <th align="left">Name</th> <th align="left">B</th> <th align="left">KB</th> <th align="left">MB</th> <th align="left">Modified</th> <th align="left">Created</th> <th align="left">Last Access</th> <th align="left">Attributes</th> </tr> %tr_dir% %tr_file% </tbody> </table> <p> <span style="font-family:arial; font-size:12"> Attributes: R = READONLY A = ARCHIVE S = SYSTEM H = HIDDEN N = NORMAL D = DIRECTORY O = OFFLINE C = COMPRESSED T = TEMPORARY </span> </p> </body> </html> ), %Folder%\dirlist_%time%.html Run, %Folder%\dirlist_%time%.html
** Updated script to use FileSelectFolder **
Thanks, dinkosta!
Regards,
olfen