![](http://take-web.com/cad/wp-content/uploads/2017/01/Snap_170116_134226.png)
![](http://take-web.com/cad/wp-content/themes/cocoon-master/images/man.png)
現在UWSCのサイト見れなくなり残念です。
世界の人が開発に協力してる、「Autoit」がUWSCを超えるいいソフトです。
ファイル管理ソフトから、ファイル新規作成
![](http://take-web.com/cad/wp-content/uploads/2017/01/Snap_170116_135123.png)
フィラー(FreeCommander XE)に「新規ファイル作成」のアイコンを作り、そこから起動できるようにしました。
(1) お気に入りツールバーに「NewFileMake.bat」を登録します。
uwsファイルを登録すると、引数(フォルダ)が渡せないのでbatでワンクッション入れました。
![](http://take-web.com/cad/wp-content/uploads/2017/01/Snap_170116_135759.png)
◎ batファイルに、現在のディレクトリ・フォルダ名を引数でつくようにします。
◎ bat最小化で起動するようにします、窓が表示されると邪魔。
echo off set uws=%1 echo %uws% C:\Data\UWSC\UWSC\test\NewFileuws.UWS set uws=""
UWSファイル:
// ファイル名をたずね0バイトのFile新規作成 fileName=INPUT("新規作成ファイル名は??") dir=DOSCMD("Echo %uws%") dir=REPLACE(dir,"<#DBL>","") //dir="c:\dat" "邪魔 dir=TRIM(dir) // dir="c:\dat" 最後に「改行」がある 取り除く //sam=dir+"\"+fileName DOSCMD("Type 123>"+dir+"\"+fileName) //Dosコマンド実行 //DOSCMD("Type null>"+fileName) //Dosコマンド実行 //スクリプトがあるフォルダになってしまう。
Autoitで作成:
$name=InputBox("","ファイル名は? = ","","",250,130) ;input画面の大きさ250X130 $f = FileOpen ($name ,1 ) ;//"ファイル名",1=新規ファイルを作る FileClose($f)