[Iska]

ruslaw, VBScript устроит?

[ruslaw]

я в нем не разбираюсь совсем, а JS я смог бы потом модифицировать

[Busla]

ruslaw, в таком виде задача выглядит бессмысленной деятельностью, т.к. содержимое директории на нижнем уровне практически и есть "текстовый файл со списком содержащихся в ней файлов"

Iska, с вашим опытом перенести перенести простой скрипт из VB в JS - всё равно, что почесаться. А вы продолжаете некромантию пропагандировать.

[megaloman]

js

Код:

var AllDir = "D:\\CMD_Forum\\Муз";    // ---------  Полное имя рабочего каталога (без слэжа \ на конце) 

var Maska = "^.*\\..*$";

var FSO = WScript.CreateObject("Scripting.FileSystemObject");

var RegMaska = new RegExp(Maska);
RegMaska.IgnoreCase = true;

AllFiles(AllDir);

// -------------------------------------------
function AllFiles(WDir) {
	var Folds = FSO.GetFolder(WDir);
	var Finfo = FSO.OpenTextFile(WDir + "\\!!! " + Folds.Name + ".Info", 	2, true);
	var SubF =  new Enumerator(Folds.SubFolders);
	var Files = new Enumerator(Folds.Files);
	var jf;
	Finfo.WriteLine("+++ " + Folds.Name + " +++  " + WDir);

	while (!Files.atEnd()) {
		jf = Files.item().Name;	
		if (RegMaska.test(jf)) {
			Finfo.WriteLine(jf);
		}
		Files.moveNext();
	}
	Finfo.Close();

	while (!SubF.atEnd()) {
		AllFiles(WDir + "\\" + SubF.item().Name);
		SubF.moveNext();
	}
}

vbs

Код:

Public FSO, RegMaska

AllDir = "D:\CMD_Forum\Муз"    ' ---------  Полное имя рабочего каталога (без слэжа \ на конце)
Maska= "^.*\..*"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set RegMaska = New RegExp
RegMaska.Pattern = Maska
RegMaska.IgnoreCase = True

Call AllFiles(AllDir)

MsgBox "Скрипт завершился"

' ---------------------------------------------------------------------------
Sub AllFiles(WDir)

    Set Folds = FSO.GetFolder(WDir)
    Set SubF = Folds.SubFolders
    Set Files = Folds.Files

    Set Finfo = FSO.OpenTextFile(WDir + "\!!! " + Folds.Name + ".Info", 	2, True)
    Finfo.WriteLine "+++ " + Folds.Name + " +++  " + WDir

    For Each jF In Files
	If RegMaska.Test(jf) Then 
        	Finfo.WriteLine FSO.GetFileName(jF)
        End If
    Next

    Finfo.Close

    For Each Folder In SubF
        Call AllFiles(WDir + "\" + Folder.Name)
    Next

End Sub

bat

Код:

@Echo Off
chcp 1251 >nul

Set "AllDir=D:\CMD_Forum\Муз"

Set "Maska=*.*"

Call :SpisFiles "%AllDir%"
FOR /F "usebackq delims=" %%d IN (`2^>nul Dir "%AllDir%" /B /S /A:D`) DO Call :SpisFiles "%%d"
GoTo :Eof

:SpisFiles
	>"%~1\!!! %~nx1.Info" (
		Echo +++ %~nx1 +++  %~1
		FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%~1\%Maska%" /B /A:-D`) DO Echo %%f
	)
GoTo :Eof

cmd/bat ваяется многократно быстрее

[Iska]

Iska, с вашим опытом перенести перенести простой скрипт из VB в JS - всё равно, что почесаться.»

Busla, вовсе нет, я крайне слабо знаю JScript.

А вы продолжаете некромантию пропагандировать. »

Что значит «некромантию»? Они ровесники. И вообще — «Мы работаем дедовскими методами, но зато на совесть»™ .

cmd/bat ваяется многократно быстрее »

Кому как .

[ruslaw]

megaloman, большое спасибо, JS-скрипт отработал отлично.
Кстати, батник создал только один индекс-файл - в указанной папке, а по подпапкам не пошел, но это не страшно, меня интересует именно JS.
И еще вопрос. Можно ли исключить из индексации (на JS-скрипте) скрытые папки, причем у меня в таких папках находятся видимые (не скрытые) подпапки и файлы?

[megaloman]

ruslaw,

ruslaw, а как насчет: а JS я смог бы потом модифицировать? :)

Код:

var AllDir = "D:\\CMD_Forum\\Box_In";    // ---------  Полное имя рабочего каталога (без слэжа \ на конце) 
 
var Maska = "^.*\\..*$";

var FSO = WScript.CreateObject("Scripting.FileSystemObject");

var RegMaska = new RegExp(Maska);
RegMaska.IgnoreCase = true;

AllFiles(AllDir);

// -------------------------------------------
function AllFiles(WDir) {
	var Folds = FSO.GetFolder(WDir);
	var FAttr = Folds.Attributes;
	if (FAttr & 2 || FAttr & 4) {return}	

	var Finfo = FSO.OpenTextFile(WDir + "\\!!! " + Folds.Name + ".Info", 	2, true);
	var SubF =  new Enumerator(Folds.SubFolders);
	var Files = new Enumerator(Folds.Files);
	var jf;
	Finfo.WriteLine("+++ " + Folds.Name + " +++  " + WDir);

	while (!Files.atEnd()) {
		jf = Files.item().Name;	
		if (RegMaska.test(jf)) {
			Finfo.WriteLine(jf);
		}
		Files.moveNext();
	}
	Finfo.Close();

	while (!SubF.atEnd()) {
		AllFiles(WDir + "\\" + SubF.item().Name);
		SubF.moveNext();
	}
}

Пора начинать, есть повод!

я крайне слабо знаю JScript. »

- Скромничаете? Рискую быть подвергнутым остракизму и нехорошим словам, я крайне слабо знаю JScript и, главное, его недолюбливаю. Предложенное решение с атрибутами наверное очень кривое. Дело в том, что значение атрибута папки может принимать достаточно многочисленные значения, как сумма всех атрибутов, например: Папка (16), папка архивная (48), скрытая (18), системная (20), скрытая и системная (22), скрытая системная архивная (54) и это далеко не все значения. Как вычленить из всего многообразия значений признак скрытости не знаю. Наверное, есть какой-то метод или арифметический трюк .... Либо определить атрибуты папок, которые Вы хотите обрабатывать, а остальные отсекать. Наверное, это легче.
Исправил решение в соответствии с предложением Busla. Отсекаются скрытые и системные папки.

батник подправил

[Busla]

megaloman, конечно, костыльное: надо проверять один единственный бит, а не перечислять все мыслимые комбинации:

Код:

if (FAttr & 16) { // это директория }

и к языку программирования это не имеет отношения - оно везде так

Attributes Property

[Iska]

Busla, мысль правильная, но выражена не вполне точно. Проверять надо не один единственный бит, а все биты. К языку программирования это также имеет отношение — надо использовать именно битовые логические операторы/функции, а не просто логические (там, где они отличаются).