< 連番フォルダ作成バッチ | MakeSureDirectoryPathExists >

September 16, 2004

連番フォルダ作成JScript

連番フォルダ作成バッチの姉妹品。WSHさえ入っていれば動くので、拡張機能を使いまくったBATファイルより汎用的なのかも。

if ( !WScript.Arguments.length ) {
	WScript.Echo( 'USAGE:\n    MakeFolder フォルダの数 [フォルダ名のプリフィックス]' );
}
else {
	var oFsoSys		= WScript.CreateObject( 'Scripting.FileSystemObject' );
	var sPath		= WScript.ScriptFullName;
	var nFolderNum	= WScript.Arguments( 0 );
	var sPrefix		= '';
	
	
	sPath	= oFsoSys.GetParentFolderName( sPath );
	nFolderNum	-= 0;	// 数値に変換
	if ( WScript.Arguments.length > 1 ) {
		sPrefix	= WScript.Arguments( 1 );
	}
	
	for ( var i = 1; i <= nFolderNum; i++ ) {
		var sFolder	= sPrefix + ( '000' + i ).slice( -4 );
		sFolder	= oFsoSys.BuildPath( sPath, sFolder );
		try {
			oFsoSys.CreateFolder( sFolder );
		}
		catch ( e ) {
			continue;
		}
	}
	WScript.Echo( '完了しました' );
}

トラックバック

このエントリーにトラックバック:
http://frog.raindrop.jp/cgi-bin/mt/mt-tb.cgi/647

コメント

コメントする

※ コメントスパム対策のため、コメント本文はおはよう、こんにちわ、こんばんわのいずれかより始めるようにしてください。

name:
email:

※ 必要ですが、表示しません。

url:
情報を保存する ?