Dir2File

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