0バイトの新規ファイルをUWSC, Autoitで作る

2017.01.16

現在UWSCのサイト見れなくなり残念です。
世界の人が開発に協力してる、「Autoit」がUWSCを超えるいいソフトです。

 

http://take-web.com/cad/2019/06/uw_autit/
take-web.com

 

ファイル管理ソフトから、ファイル新規作成

フィラー（FreeCommander XE）に「新規ファイル作成」のアイコンを作り、そこから起動できるようにしました。

(1) お気に入りツールバーに「NewFileMake.bat」を登録します。
uwsファイルを登録すると、引数（フォルダ）が渡せないのでbatでワンクッション入れました。

◎ 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)

コメント