Hi, this coding shld get some part started,
#Include <File.au3>
#Include <Array.au3>
$folder = FileSelectFolder ("Select a folder to list contents", "")
$accept = MsgBox(1+262144, "Folder Content Listing", "Program will list all files the directory '" & $folder & "'. OK to proceed?")
$totalFiles = 0
$totalsize = 0
If $accept = 1 Then
$savefolder = FileSelectFolder ("Select a folder to save the output", "")
$fileout = FileOpen ($savefolder & "\out.txt", 2)
FileWriteLine($fileout, $folder)
ListFolderFiles($folder, 0)
FileWriteLine($fileout, "Total: " & $totalFiles & " files and folders. " & "Total Files Size: " & $totalsize)
FileClose($fileout)
RunWait("notepad.exe " & $savefolder & "\out.txt")
Else
Exit(0)
EndIf
Func ListFolderFiles($folder, $lvl); recursive folder function
$lvlCounter = 0
$beforeString = "|- "
; MsgBox(262144, $lvl, $folder)
While $lvlCounter <> $lvl
$beforeString = StringReplace($beforeString, "|- ", "| ")
$beforeString = $beforeString & "|- "
$lvlCounter = $lvlCounter + 1
WEnd
$fileArray = _FileListToArray($folder)
If @Error <> 4 Then
$totalFiles = $totalFiles + ($fileArray[0] - 1)
For $r = 1 to UBound($fileArray, 1) - 1
If StringInStr($fileArray[$r], ".") = 0 Then
FileWriteLine($fileout, $beforeString & "<" & $fileArray[$r] & ">")
ListFolderFiles($folder & "\" & $fileArray[$r], $lvl + 1)
Else
$totalsize = $totalsize + FileGetSize ($folder & "\" & $fileArray[$r])
FileWriteLine($fileout, $beforeString & $fileArray[$r])
EndIf
Next
EndIf
EndFunc