【デフラグ】 Contigat SOFTWARE【デフラグ】 Contig - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト542:名無しさん＠お腹いっぱい。 07/01/23 05:49:21 Wrm6Td2Q0 ' "Contig.vbs" ' "Contig_dir.bat","Contig_file.bat"をContig.exeと同一ディレクトリに置く。 Set WshShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set arg = WScript.Arguments If arg.length<>0 Then fpath = arg(0) If fso.FileExists(fpath) Then bat = "<Contig_Dir_Path>\Contig_file.bat " Else bat = "<Contig_Dir_Path>\Contig_dir.bat " End If WshShell.Run bat & """" & fpath & """" End If ' ※<Contig_Dir_Path>←Contig.exeのディレクトリパス※ ---------------------------------------------------- @echo off rem "Contig_dir.bat" rem ドライブ 又は ディレクトリ を Contig -s (サブディレクトリを含) echo Contig -q -s %1\* cd /d <Contig_Dir_Path> cmd /k Contig.exe -q -s %1\* echo. ---------------------------------------------------- @echo off rem "Contig_file.bat" rem 単一ファイル を Contig -v (詳細表示) echo Contig -v %1 cd /d <Contig_Dir_Path> cmd /k Contig.exe -v %1 echo. 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch