[test] 書きこみテスト 専用スレッド 5 [ﾃｽﾄ]

//whileを消してその前にフォルダビューを最新の情報に更新したものです。
//上の佐野さんのものを現時点でそのまま使えるように。
//===================mknewtxt.js=====================
objFso = new ActiveXObject( "Scripting.FileSystemObject" );
objWsh = new ActiveXObject( "WScript.Shell" );
strDTxtReg = objWsh.RegRead( "HKCR\\.txt\\" );
strTxtReg = objWsh.RegRead( "HKCR\\" + strDTxtReg + "\\" );
strFileName = FolderView.Pass + "\\新規" + strTxtReg + "\.txt";
for ( i = 2 ; objFso.FileExists( strFileName ) ; i++ ) {
strFileName = FolderView.Pass + "\\新規" + strTxtReg + " (" + i + ")\.txt";
}
objFso.CreateTextFile( strFileName );
MDIE.Command( 5207 );
FolderView.Open( strFileName );
FolderView.FocusItem.Selected = true;
MDIE.Command( 5206 );