Dir2File

Преобразует директории в файлы нулевого размера
Название Dir2File
Имя файла (*.txt) Dir2File.txt
Описание
Автор Вахмурка
Параметры Список_директорий, Путь-приемник, Расширение
Вызываемые плагины file
Иконка
Версия 1.0
Дата обновления 28.10.19
args List, Target, Ext

local fh = file.open(List, "r")
local Str, Out, New

if(fh > 0) do
	for(!fh.eof)
		Str = fh.readstring
		if(!Str)
			continue

		if(!file.isfolder(Str))
			continue

;;Sub_ParsePath - имя скрипта ParsePath
		New = Target ++ .Subs\Sub_ParsePath(Str, 1) ++ "." ++ Ext
		Out = file.open(New, "w")

		if(!Out) do
			messagebox("ok error", New ++ " not created", "File Plugin Error #2")
			quit all
		endif

		Out.close
	endfor
else
	messagebox("ok error", "File not opened", "FILE plugin error #1")
endif

fh.close

На главную Все о Total Commander PowerPro Все скрипты