変更は許可されていません
\n')
end
if post then
itemList=EdcbRecFolderPathList()
item=mg.get_var(post,'dir') or ''
if mg.get_var(post,'add') then
for i,v in ipairs(itemList) do
if IsEqualPath(v,item) then
--既にある
item=nil
break
end
end
if item and item:find('^[^%c'..(WIN32 and '*?"<>|' or '')..']+$') then
ff=EdcbFindFilePlain(item)
if (ff and ff.isdir) or (WIN32 and item:find('^[A-Za-z]:\\$')) then
itemList[#itemList+1]=item
ct:Append('追加しました
\n')
end
end
else
for i,v in ipairs(itemList) do
if v==item then
if mg.get_var(post,'del') then
table.remove(itemList,i)
ct:Append('削除しました
\n')
elseif mg.get_var(post,'up') and i>1 then
table.remove(itemList,i)
table.insert(itemList,i-1,v)
ct:Append('移動しました
\n')
elseif mg.get_var(post,'down') and i<#itemList then
table.remove(itemList,i)
table.insert(itemList,i+1,v)
ct:Append('移動しました
\n')
end
break
end
end
end
for i,v in ipairs(itemList) do
if #itemList==1 and IsEqualPath(v,EdcbSettingPath()) then
--既定値なので記録しない
itemList={}
break
end
edcb.WritePrivateProfile('SET','RecFolderPath'..(i-1),v,commonIni)
end
edcb.WritePrivateProfile('SET','RecFolderNum',#itemList,commonIni)
for i=#itemList+1,999 do
--掃除
if edcb.GetPrivateProfile('SET','RecFolderPath'..(i-1),'',commonIni)=='' then break end
edcb.WritePrivateProfile('SET','RecFolderPath'..(i-1),nil,commonIni)
end
edcb.ReloadSetting(false)
end
edcb.htmlEscape=15
for i,v in ipairs(EdcbRecFolderPathList()) do
ct:Append([=[