Folder with number of files

ozzii · 2010-04-16 21:19

Hello,
Can someone provide me a pascal script (I thing that it can do it) for adding at the end of folder the number of txt files in it.
For example I have:
C:\TEST\test1.txt
C:\TEST\test2.txt
C:\TEST\test3.txt

And after I would like to have:
C:\TEST(3)\test1.txt
C:\TEST(3)\test2.txt
C:\TEST(3)\test3.txt

Thanks in advance.

SafetyCar · 2010-04-16 21:52

Try with this

var
  Files: TStringsArray;
  BasePath: WideString;

begin
  BasePath := WideExcludeTrailingPathDelimiter(WideExtractFilePath(FilePath));
  
  SetLength(Files, 0);
  WideScanDirForFiles(BasePath, Files, False, False, False, '*.txt');
  
  FileName := BasePath + ' (' + IntToStr(length(Files)) + ')\' + FileName;
end.

ozzii · 2010-04-17 08:56

This is almost it.
One problem, I have a new folder created at each run with the new number.
OLD:

C:\TEST\test1.txt
C:\TEST\test2.txt
C:\TEST2\test1.txt
C:\TEST2\test2.txt

RESULT

C:\TEST\
C:\TEST(2)\test1.txt
C:\TEST(2)\test2.txt
C:\TEST2\
C:\TEST2(2)\test1.txt
C:\TEST2(2)\test2.txt

Any way to rename the existent folder or maybe to delete the old folder after the rename (only when the rename occur) ?
Am I clear ?!!? I'm not sure !!

Last edited by ozzii (2010-04-17 08:57)

SafetyCar · 2010-04-17 09:51

What I would do is add the folder instead of the files. (Add folders as files: http://www.den4b.com/wiki/ReNamer:Filte … lters_menu)

And then use this to get the new name for the folder

var
  Files: TStringsArray;
  BasePath: WideString;

begin
  SetLength(Files, 0);
  WideScanDirForFiles(FilePath, Files, False, False, False, '*.txt');
  
  FileName := FileName + ' (' + IntToStr(length(Files)) + ')';
end.

With the first script if you forget adding files to the list, the result could be a chaos. (For example, "Folder (3)" with only 2 files inside)

But with this last script If there are non TXT files inside the folders, them will also be in the renamed folder. (Well, but I don't know if you wanted to separate the TXT from the other files)

ozzii · 2010-04-17 14:32

My first attempt with the first script was with just folders and not files, and had as a result (0) for all folders.
This is why i had to use files instead of folders.
This new script is good now with just folders

Another question: how to also add "doc" files for searching. I have tried with adding '*.doc' after .txt but no luck. Same with OR; no luck. Maybe something like WideScanDirForFiles +=
I don't know pascal sorry

SafetyCar · 2010-04-17 16:24

Well, I had to put the line SetLength(Files, 0); because it was remembering the last files and not counting from 0 each time.

Knowing that it doesn't reset itself automatically we can take advantage by adding after the first WideScanDirForFiles line, another similar, but changing only *.txt to *.doc

WideScanDirForFiles(FilePath, Files, False, False, False, '*.txt');
WideScanDirForFiles(FilePath, Files, False, False, False, '*.doc');

It works but I don't know if there's a better solution...

Last edited by SafetyCar (2010-04-17 16:28)

ozzii · 2010-04-17 17:07

I didn't try two WideScanDirForFiles !!!!!
Shame on me
I just add a delete rule in the first place to delete the old number so I didn't have duplicates.

Thanks for your help SafetyCar.

den4b Forum

#1 2010-04-16 21:19

Folder with number of files

#2 2010-04-16 21:52

Re: Folder with number of files

#3 2010-04-17 08:56

Re: Folder with number of files

#4 2010-04-17 09:51

Re: Folder with number of files

#5 2010-04-17 14:32

Re: Folder with number of files

#6 2010-04-17 16:24

Re: Folder with number of files

#7 2010-04-17 17:07

Re: Folder with number of files

Board footer