clipcpy.exe + VBScript + レジストリ標準入力をクリップボードにコピーする で作成したコンソールアプリは そのままでは役に立たないですが、VBScript でラップしてレジストリに仕込めば、 ディレクトリのファイル名リストをクリップボードにコピーするツールになります filelist.vbs
Set WshShell = CreateObject( "WScript.Shell" ) Set Shell = CreateObject( "Shell.Application" ) Target= WScript.Arguments(0) Dir = GetShellDir( &H15 ) Command = "cmd /C dir ""$1"" /A:-D /B /O:N | ""$2\clipcpy.exe""" Command = Replace( Command, "$1", Target ) Command = Replace( Command, "$2", Dir ) Call WshShell.Run( Command, 0, True ) Function GetShellDir( nID ) Dim objFolder,objFolderItem Set objFolder = Shell.Namespace(nID) Set objFolderItem = objFolder.Self GetShellDir = objFolderItem.Path End Function clipcpy.exe は、ユーザのテンプレートディレクトリに置いて、 VBScript から実行する際に、コマンドプロンプトを開かないようにして実行します。 Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\shell\filelist] @="ファイル一覧をコピー" [HKEY_CLASSES_ROOT\Directory\shell\filelist\command] @="wscript.exe \"C:\\Documents and Settings\\lightbox\\Templates\\filelist.vbs\" \"%L\"" |