07/02/07 15:24:33 vbKfejhE0
Set args = WScript.Arguments 'パラメータ取得のための準備
Set Fs = WScript.CreateObject("Scripting.FileSystemObject") 'Fsにファイルシステムオブジェクトを代入
Set listfile = Fs.CreateTextFile("list.txt",True) '結果を出力するためのテキストファイルを作成
path = args(0) 'パラメータを取得し、pathに格納
If Fs.FolderExists(path) Then 'もしもpathにフォルダーが存在するならば
Call RecursibleSearch(path) '検索機能を呼び出し
Else 'pathにフォルダーが存在しないならば
MsgBox "このパスは実在しません。" 'メッセージを表示して
WScript.Quit '終了
End If '（フォルダーの存在確認終了）
listfile.close 'ファイルハンドルlistfileを閉じる
MsgBox "Finished creating list.txt" '終了メッセージ
Sub RecursibleSearch(folderspec) '検索機能の定義
Set fol = Fs.GetFolder(folderspec) 'フォルダーを取得し、folに代入
Set flc = fol.Files 'フォルダー内のファイル群を取得
For Each fl1 in flc 'ファイル群のそれぞれのファイルについて
If fl1.Size<67108864 Then 'サイズが64MB未満ならば
listfile.WriteLine fl1.Path 'ファイルのパスをlistfileに書き出し
End If '（ファイル群処理の終了）
Next '（次のファイルへ）
Set sfc = fol.SubFolders 'フォルダー内の下位フォルダー群を取得
For Each sf1 in sfc '下位フォルダー群のそれぞれについて
Call RecursibleSearch(sf1.Path) '検索機能を再帰呼び出し
Next '（下位フォルダー群処理の終了）
End Sub '（検索機能の定義の終了）
555:名無しさん＠お腹いっぱい。
07/02/08 10:25:45 4uyds55H0
>>554
>If Fs.FolderExists(path) Then 'もしもpathにフォルダーが存在するならば
ここは
もしpathがフォルダとして存在するならば
じゃないの？
556:名無しさん＠お腹いっぱい。
07/02/08 12:12:44 DWAJDBsI0
>>555
うむ。
557:名無しさん＠お腹いっぱい。
07/02/15 08:10:01 s45xaaFa0
保守
558:名無しさん＠お腹いっぱい。
07/02/16 06:03:03 6NvRP4uI0
前にwin２０００で動かしたときはかなり断片化を解消してくれたんだが
winXPに変えて起動してみたら全然解消してくれない。
動作自体はしていて出力されたログが若干前とちがうんだよなぁ・・以下ログ（概要）
Summary:
Number of files processed : 22722
Number of files defragmented: 2
Average fragmentation before: 1.00066 frags/file
Average fragmentation after : 1 frags/file
あ、あとPowerDefragmenterGUI使ってやると動作終了後に何故か標準デフラグのレポートがCUIで
表示される。
前使って良いツールだったんで是非また使いたいので、良い知識があれば頼む。
559:558
07/02/16 06:11:01 6NvRP4uI0
環境を書いていなかったので書いておく。
OS：windowsXP Pro SP2
HDD：160G*2（RAID0）
Contig Version：1.53
PowerDefragmenterGUI Version：2.0.125
追記になるが、断片化ファイルのスキャンのみを行って実際に断片化を解消する動作を
していない感じだ。
560:588
07/02/16 06:28:30 6NvRP4uI0
連投ｽﾏｿ。
上記のログはcontig単体で動かすと普通の挙動だなorz
んでさらに分かったことがOSが入ってるパーティション以外なら正常に動作する・・・
RAID０だからなのか？とも思ってRAID構成の別パーティションをデフラグしてみると見事に
断片化を解消してくれる・・・
システムドライブだけはスキャンのみをして解消をしない。という事みたいだ
ちなみにセーフモードで実行してみたが結果は同じだった。
もう少し調べてみようと思う。何かいい改善案あったら教えてください。
561:名無しさん＠お腹いっぱい。
07/02/16 09:55:03 XyngPVMR0
オラのＣＯＮＴＩＧは正常だお （ ＾ω＾）
562:名無しさん＠お腹いっぱい。
07/02/18 21:56:52 yZptM4370
PowerDefragmenterがGIGAZINEで紹介されてる
URLﾘﾝｸ(gigazine.net)