Function: File Count in a Directory

[Intrigued]

-- This funciton will allow for the counting of all files in a directory (aka. folder)
function f_FileCount(dir)
tblFiles = File.Find(dir, "*.*", true, false, nil, nil)
if tblFiles ~= nil then
for i,v in tblFiles do
count = i
end
-- This is just one way to display the results
Dialog.Message("Directory file count...", "There are "..count.." files in that directory")
else
Dialog.Message("Directory file count...", "There are 0 files in that directory")
end
end

-- Example on how to use this function (also known as a "function call")
f_FileCount("AutoPlay\\Docs")

[gogubooman]

If the folder has waay to many files....the response of the function will be slow...

My snippets folder...has around 13.300 files it took ~10 seconds to produce the result

[RizlaUK]

nice function, right about the time on large dir, i just added a status dialog to it so it dosent give the hanging effect

eg:

StatusDlg.Show(MB_ICONNONE, false);
-- Example on how to use this function (also known as a "function call")
f_FileCount("C:\\")
StatusDlg.Hide();

scaned my whole c drive in 20 seconds, while displaying all files scaned

[Intrigued]

Another version with a Cancel button this time:

-- This funciton will allow for the counting of all files in a directory (aka. folder)
function f_FileCount(dir)
	StatusDlg.Show(MB_ICONNONE, false);
	StatusDlg.ShowCancelButton(true, "Cancel")
		tblFiles = File.Find(dir, "*.*", true, false, nil, nil)
			if tblFiles ~= nil then
				for i,v in tblFiles do
					blnIsCancelled = StatusDlg.IsCancelled()
						if blnIsCancelled ~= true then 
							count = i
						else
							blnQuit = true
								break
						end				
				end
					StatusDlg.Hide()
					
					if blnQuit ~= true then
						-- This is just one way to display the results
						Dialog.Message("Directory file count...", "There are "..count.." files in that directory")
			end
							blnQuit = false
					end
end

-- Example on how to use this function (also known as a "function call")
f_FileCount("C:\\")

[Stefan_M]

Another version with "Table.count" instead of a loop

function f_FileCount(dir)
local count=0;
tblFiles = File.Find(dir, "*.*", true, false, nil, nil)
if tblFiles ~= nil then
count = Table.count(tblFiles);
end;
return count;
end;

usage:
number_of_files=f_FileCount("C:\")


Stefan_M

[latell]

Hi

Just made this one today.

it's a file list counter
put the whole path into the Directory Tab
and pressing Commence or Enter will do.

http://mfiles.naver.net/69bb5f8992c3...6-terratan.exe

[spider]

excuse me
can the files be arranged with filename ,or by CreationDate,or by WriteDate?
can some body give some ideas or example

[arb]

Originally Posted by spider

excuse me
can the files be arranged with filename ,or by CreationDate,or by WriteDate?
can some body give some ideas or example

You can use File.GetAttributes and .CreationDateISO in loop then remove "-" from result of date and sync. each file with other.

[RizlaUK]

You can use File.GetAttributes and .CreationDateISO in loop then remove "-" from result of date and sync. each file with other.

yup, used with "Table.Sort" should do the trick