ファイルのプロパティ - 版の履歴

MSY-07: 空行の除去

2024-09-09T01:12:45Z

空行の除去

← 古い版		2024年9月9日 (月) 10:12時点における版
1行目:		1行目:
	アクティブなドキュメントのプロパティを表示します。		アクティブなドキュメントのプロパティを表示します。


	== Mery で表示する ==		== Mery で表示する ==


	* 確認ダイアログ（OK／キャンセル）に表示し、親フォルダを開く		* 確認ダイアログ（OK／キャンセル）に表示し、親フォルダを開く
	* 警告メッセージボックス上に表示する		* 警告メッセージボックス上に表示する
	* アウトプットバーに表示する		* アウトプットバーに表示する
	※警告とアウトプットはソースコード内でコメントアウトしてあります。		※警告とアウトプットはソースコード内でコメントアウトしてあります。


	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript">
74行目:		70行目:

	== プロパティダイアログを開く ==		== プロパティダイアログを開く ==


	表示されるまでにちょっとタイムラグがありますが、エクスプローラの '''本物の''' プロパティダイアログを呼び出します。<br>		表示されるまでにちょっとタイムラグがありますが、エクスプローラの '''本物の''' プロパティダイアログを呼び出します。<br>
	※動作確認は Windows XP でしかしていません。		※動作確認は Windows XP でしかしていません。


	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript">
100行目:		93行目:
	}		}
	</syntaxhighlight>		</syntaxhighlight>


	１行ですませるなら		１行ですませるなら

MSY-07: タグをタグに置き換え

2023-05-16T19:23:51Z

<source>タグを<syntaxhighlight>タグに置き換え

← 古い版		2023年5月17日 (水) 04:23時点における版
11行目:		11行目:


	<~~source~~ lang="javascript">		<syntaxhighlight lang="javascript">
	#title = "ファイルのプロパティ"		#title = "ファイルのプロパティ"
	#tooltip = "ファイルのプロパティを表示し、親フォルダを開く"		#tooltip = "ファイルのプロパティを表示し、親フォルダを開く"
71行目:		71行目:
	+ dd.toLocaleTimeString();		+ dd.toLocaleTimeString();
	}		}
	</~~source~~>		</syntaxhighlight>

	== プロパティダイアログを開く ==		== プロパティダイアログを開く ==
80行目:		80行目:


	<~~source~~ lang="javascript">		<syntaxhighlight lang="javascript">
	#title = "ファイルのプロパティ"		#title = "ファイルのプロパティ"
	#tooltip = "ファイルのプロパティダイアログを表示する"		#tooltip = "ファイルのプロパティダイアログを表示する"
99行目:		99行目:
	// "プロパティ(&R)" の部分はエクスプローラの右クリックメニューのとおりの文字列にし、アクセラレータのアルファベットの前に & をつける		// "プロパティ(&R)" の部分はエクスプローラの右クリックメニューのとおりの文字列にし、アクセラレータのアルファベットの前に & をつける
	}		}
	</~~source~~>		</syntaxhighlight>


	１行ですませるなら		１行ですませるなら
	<~~source~~ lang="javascript">		<syntaxhighlight lang="javascript">
	if (document.Name) new ActiveXObject("Shell.Application").NameSpace(document.FullName.slice(0,-document.Name.length)).ParseName(document.Name).InvokeVerb("プロパティ(&R)");		if (document.Name) new ActiveXObject("Shell.Application").NameSpace(document.FullName.slice(0,-document.Name.length)).ParseName(document.Name).InvokeVerb("プロパティ(&R)");
	</~~source~~>		</syntaxhighlight>

Sukemaru: /* プロパティダイアログを開く */

2018-12-19T09:45:16Z

プロパティダイアログを開く

← 古い版		2018年12月19日 (水) 18:45時点における版
104行目:		104行目:
	１行ですませるなら		１行ですませるなら
	<source lang="javascript">		<source lang="javascript">
	new ActiveXObject("Shell.Application").NameSpace(document.FullName.slice(0,-document.Name.length)).ParseName(document.Name).InvokeVerb("プロパティ(&R)");		if (document.Name) new ActiveXObject("Shell.Application").NameSpace(document.FullName.slice(0,-document.Name.length)).ParseName(document.Name).InvokeVerb("プロパティ(&R)");
	</source>		</source>

Sukemaru: /* プロパティダイアログを開く */

2018-12-18T11:32:17Z

プロパティダイアログを開く

← 古い版		2018年12月18日 (火) 20:32時点における版
99行目:		99行目:
	// "プロパティ(&R)" の部分はエクスプローラの右クリックメニューのとおりの文字列にし、アクセラレータのアルファベットの前に & をつける		// "プロパティ(&R)" の部分はエクスプローラの右クリックメニューのとおりの文字列にし、アクセラレータのアルファベットの前に & をつける
	}		}
			</source>


			１行ですませるなら
			<source lang="javascript">
			new ActiveXObject("Shell.Application").NameSpace(document.FullName.slice(0,-document.Name.length)).ParseName(document.Name).InvokeVerb("プロパティ(&R)");
	</source>		</source>

Sukemaru: /* Mery で表示する */

2018-12-18T11:15:48Z

Mery で表示する

← 古い版		2018年12月18日 (火) 20:15時点における版
21行目:		21行目:
	if ( ! path ) {		if ( ! path ) {
	Status = " ドキュメントが保存されていません";		Status = " ドキュメントが保存されていません";
	~~Quit();~~
	}		}
	else {		else {
73行目:		72行目:
	}		}
	</source>		</source>


	== プロパティダイアログを開く ==		== プロパティダイアログを開く ==

Sukemaru: /* プロパティダイアログを開く */

2018-12-18T11:14:01Z

プロパティダイアログを開く

← 古い版		2018年12月18日 (火) 20:14時点における版
91行目:		91行目:
	var path = document.FullName;		var path = document.FullName;
	var filename = document.Name;		var filename = document.Name;
	if ( ! $path ) {		if ( ! path ) {
	Status = " ドキュメントが保存されていません";		Status = " ドキュメントが保存されていません";
	}		}

Sukemaru: ページを新規作成

2018-12-18T11:02:56Z

ページを新規作成

新規ページ

アクティブなドキュメントのプロパティを表示します。

== Mery で表示する ==

* 確認ダイアログ（OK／キャンセル）に表示し、親フォルダを開く
* 警告メッセージボックス上に表示する
* アウトプットバーに表示する
※警告とアウトプットはソースコード内でコメントアウトしてあります。

<source lang="javascript">
#title = "ファイルのプロパティ"
#tooltip = "ファイルのプロパティを表示し、親フォルダを開く"

/**
* ファイルのプロパティを表示し、親フォルダを開く
*/
var path = document.FullName;
if ( ! path ) {
Status = " ドキュメントが保存されていません";
Quit();
}
else {
var fso = new ActiveXObject( "Scripting.FileSystemObject" );
var f = fso.GetFile( path );
var n = "\n";
var tab = "\t";
var d = path + n;
var folder = path.slice( 0, - document.Name.length ) + n;
var file = document.Name + n;
var t = "種類:" + tab + f.Type + n;
var s = "サイズ:" + tab
+ f.Size.toString().replace( /(\d)(?=(?:\d{3})+$)/g ,"$1," )
+ " バイト" + n;
var c = "作成日時:" + tab + DateTime( f.DateCreated ) + tab + n;
var m = "更新日時:" + tab + DateTime( f.DateLastModified ) + n;
// インデックス属性と暗号化属性は取得できない
var fa = f.Attributes;
var rhsac = ( fa & 1 ? "R" : "" ) // 読み取り専用属性
+ ( fa & 2 ? "H" : "" ) // 隠し属性
+ ( fa & 4 ? "S" : "" ) // システム属性
+ ( fa & 32 ? "A" : "" ) // アーカイブ属性
+ ( fa & 128 ? "C" : "" ); // 圧縮属性
var a = "属性:" + tab + ( rhsac.length ? rhsac : 0 ) + n;
var q = n + "フォルダを開きますか？";

// ※確認ダイアログに表示する
// フォルダを開きますか？ → [OK] なら親フォルダを開く
if ( Confirm( folder + file + n + t + s + c + m + a + q ) )
new ActiveXObject( "WScript.Shell" ).Run( 'explorer /select, "' + path + '"' );

// ※メッセージボックス（警告ダイアログ）に表示する
// Alert( folder + file + n + t + s + c + m + a );

// ※アウトプットバーに表示する
// OutputBar.Writeln( d + s + c + m );
}

/**
* 日時を "YYYY/MM/DD hh:mm:ss" で返す
*/
function DateTime( date ) {
var dd = new Date( date );
// １ケタの数字をゼロ埋めして２ケタで返す
var pad = function( str ) {
return str.replace( /[0-9]+/g , function( $0 ) {
return $0.length < 2 ? "0" + $0 : $0;
} ) }
return dd.getFullYear() + "/" + pad( ( dd.getMonth() + 1 ) + "/" + dd.getDate() ) +" "
+ dd.toLocaleTimeString();
}
</source>

== プロパティダイアログを開く ==

表示されるまでにちょっとタイムラグがありますが、エクスプローラの '''本物の''' プロパティダイアログを呼び出します。<br>
※動作確認は Windows XP でしかしていません。

<source lang="javascript">
#title = "ファイルのプロパティ"
#tooltip = "ファイルのプロパティダイアログを表示する"

/**
* ファイルのプロパティダイアログを開く
*/
var path = document.FullName;
var filename = document.Name;
if ( ! $path ) {
Status = " ドキュメントが保存されていません";
}
else {
var shell = new ActiveXObject( "Shell.Application" );
shell.NameSpace( path.slice( 0, - filename.length ) )
.ParseName( filename )
.InvokeVerb( "プロパティ(&R)" );
// "プロパティ(&R)" の部分はエクスプローラの右クリックメニューのとおりの文字列にし、アクセラレータのアルファベットの前に & をつける
}
</source>