以下サンプルです。
取り扱いに注意。
下層フォルダ&ファイルも根こそぎ削除しますので。
//カレントディレクトリにフォルダを作ったものを削除するサンプルです。
//この操作はゴミ箱へいかず直接削除しますので、扱い次第で大変危険なものです。
//ルートドライブに指定したら…HDD内全削除?怖いですね。
#uselib "shell32"
#func SHFileOperation "SHFileOperationA" int
dc=dir_cur
testfolder="test"
button "DirMake",*make
mes "↓適当にフォルダ名を指定↓最初は無難にtestのままで!"
input testfolder
button "DirDelete",*del
stop
*make
if testfolder="":dialog "空白は使えないざんす":stop
dirlist tmp,testfolder,5
if tmp="":mkdir testfolder:else:dialog "フォルダが存在するざんす":stop
dialog ""+dc+"\\"+testfolder+"\\を作成しました。\n確認の為、Explorerを起動します。"
exec dc,,"explore"
stop
*del
dirlist tmp,testfolder,5
if tmp="":dialog "フォルダがないざんす":stop
fname=""+dc+"\\"+testfolder
SHFILEOPSTRUCT = hwnd,0x0003, varptr(fname), 0,0x0114
SHFileOperation varptr(SHFILEOPSTRUCT)
dialog ""+dc+"\\"+testfolder+"\\を削除しました。"
//exec dc,,"explore"
stop