You are not logged in.
Может кто писал такой, нужно чтобы папки переименовались в количество файлов внутри, а если количества совпадают, то, например, букву добавляло после числа
ps ничего, что по-русски?
Last edited by Daredee (2014-08-28 10:10)
Offline
>>>Может кто писал такой, нужно чтобы папки переименовались в количество файлов внутри,
Попробуйте это
- Проверка фильтр
--- Не включать файлы
--- Для добавления папок в виде файлов
- Добавить папки
- Использовать этот скрипт ниже
>>>Can someone wrote this, need to renamed folder with the number of files inside,
Try this
- Check the filter:
--- to not include files
--- to add a folder as a file
- Add Folder
- Use this script below
Example:
FROM:
\foldername (with 6 files inside)
TO:
\foldername_(6 Files)
Code: scan folders for amount of files inside, then rename the folder to add that ascertained number.
var
Filesarray:TStringsArray;
begin
SetLength(Filesarray, 0); //start with zero for each next file/folder to process.
//Folder , array var , Recurse?, Hidden?, System?, mask
WideScanDirForFiles(FilePath, Filesarray, False, False , False , '*' );
FileName := FileName + '_(' + IntToStr(length(Filesarray)) + ' Files)';
end.
How to use >> http://www.den4b.com/wiki/ReNamer:Rules:PascalScript
Infos: >> http://www.den4b.com/wiki/ReNamer:Pasca … Management
// WideScanDirForFiles(Dir: WideString; var Files: TStringsArray; const Recursive, IncludeHidden, IncludeSystem: Boolean; const Mask: WideString);
// You can get a list of the files inside a folder.
// Dir: The folder you want to scan.
// Files: A TStringsArray var to store the list of files.
// Recursive: scan the subfolders?
// IncludeHidden: list the hidden files?
// IncludeSystem: list the system files?
// Mask: list everything '*', or e.g. '*.txt'
>>>а если количества совпадают, то, например, букву добавляло после числа
Смотреть варианты
Options > Fix conflicting new names
>>>ps ничего, что по-русски?
Yes, wait for "den4b"
- - -
EDIT:
Sorry, I forgot about clearing the var for each iteration as den4b does below by setting it to zero.
That's why Daredee got that wrongly result. So I added """SetLength(Filesarray, 0);""" NOW too.
Last edited by Stefan (2014-08-29 06:50)
Read the *WIKI* for HELP + MANUAL + Tips&Tricks.
If ReNamer had helped you, please *DONATE* to Denis or buy a PRO license. (Read *Lite vs Pro*)
Offline
Thanks alot!
- Использовать этот скрипт ниже
How to reset counter after each dir?
Now I'm getting something like Dir1_(1 Files), Dir2_(4 Files), Dir3_(11 Files), Dir4_(13 Files) and so on but I need to rename it like Dir1_(1 Files), Dir2_(3 Files), Dir3_(7 Files), Dir4_(2 Files)
Last edited by Daredee (2014-08-28 15:44)
Offline
A small variation of Stefan's script which will reset counter for every directory and change new name only if it's a directory.
var
Files: TStringsArray;
begin
if WideDirectoryExists(FilePath) then
begin
SetLength(Files, 0);
WideScanDirForFiles(FilePath, Files, False, False, False, '*');
FileName := FileName + ' (' + IntToStr(Length(Files)) + ' Files)';
end;
end.
P.S. Да, можно и по-русски, но здесь большая часть говорит на английском.
Offline
works great, thank you
Offline