複数のﾌｫﾙﾀﾞを削除する

仕事が薄い時に、日頃の不満を解消したい。

PowerMill内のﾌｫﾙﾀﾞを削除したい時が多々あるのですが、
まとめて削除出来ず、一個一個ﾁﾏﾁﾏやるのが辛いです。

一度に複数のﾌｫﾙﾀﾞを削除する為のﾏｸﾛを作りました。

//PMill_Macro2018
//ﾌｫﾙﾀﾞｰ削除 ver0.0.1

function main(string args) {
	//ﾌｫﾙﾀﾞﾘｽﾄ
	string list folderLst = {}
	call GetFolderNameLIST($args, $folderLst)
	if is_empty($folderLst) {
		message error  'ﾌｫﾙﾀﾞがありません!!'
		return
	}
	
	string msg = '削除するﾌｫﾙﾀﾞｰを選択してください'
	call Exec_DownMenu($folderLst, $msg, 1, $folderLst)
	if size($folderLst) < 1 {
		return
	}
	
	//削除
	call Msgoff()
	string  path = ""
	foreach fdr in $folderLst {
		$path = $args + '\' + replace($fdr, '@', '\')
		//message info  $path 
		string cmd = 'DELETE ' + $args + ' FOLDER "' + $path + '"'
		call Exec_Cmd(cmd) 
	}
	call Msgon()
	
	//終了
	message info  'Done'	
}

//指定した組み込みﾙｰﾄﾌｫﾙﾀﾞ内のﾌｫﾙﾀﾞ名を取得
function GetFolderNameLIST(string FolderType, output string list Outlst ) {
	string list Folders = get_folders($FolderType)
	if (size($Folders) == 0) {
		return
   }
   
	string list names={}
	foreach path in $Folders {
		string name = path
		$name = replace($name, $FolderType + '\', '')
		$name = replace($name, '\', '@')
		int dmy = add_last($names,$name)
   }
	$Outlst= $names
	return
}
//ｺﾏﾝﾄﾞ
function Exec_Cmd(string cmd) {
	docommand $cmd
}

function Msgoff() {
	graphics lock
	dialogs message off
	dialogs error off
}

function Msgon() {
	graphics unlock
	dialogs message on
	dialogs error on
}
include downmenu.inc

mainのargsは、"Toolpath"等のﾌｫﾙﾀﾞ名で、ｺﾝﾃｷｽﾄﾒﾆｭｰから起動させる
ﾀｲﾌﾟです。

過去に、こちらでﾌｫﾙﾀﾞ名を取得するものを作りましたが、
ｲﾏｲﾁだった為、Forumにあった方法をﾊﾟｸﾘ参考に
させてもらいました。
ﾌｫﾙﾀﾞ名ﾘｽﾄを取得する - C#ATIA

又、以前作成したﾌﾟﾙﾀﾞｳﾝﾘｽﾄが必要です。
"group" ﾌｫﾙﾀﾞは犠牲にした、ﾌﾟﾙﾀﾞｳﾝﾘｽﾄﾗｲﾌﾞﾗﾘ - C#ATIA