【デフラグ】 Contig at SOFTWARE

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
550:名無しさん＠お腹いっぱい。 07/01/31 08:35:51 fwK7qca90 ディレクトリもファイルとして実装されてるからな 551:名無しさん＠お腹いっぱい。 07/02/05 18:40:02 4cH2V3U+0 誰もいなくなった 552:名無しさん＠お腹いっぱい。 07/02/06 17:45:34 l1oKMYPk0 '指定パス以下の64MB未満のファイルのリストを作り、list.txtに格納するVBスクリプト。 'パラメータにパスを指定して使う。ただし、ドライブルートを指定すると不具合が出るかもしれない。 '使用者の自己責任で使用してください。 Set args = WScript.Arguments Set Fs = WScript.CreateObject("Scripting.FileSystemObject") Set listfile = Fs.CreateTextFile("list.txt",True) path = args(0) If Fs.FolderExists(path) Then Call RecursibleSearch(path) Else MsgBox "このパスは実在しません。" WScript.Quit End If listfile.close MsgBox "Finished creating list.txt" Sub RecursibleSearch(folderspec) Set fol = Fs.GetFolder(folderspec) Set flc = fol.Files For Each fl1 in flc If fl1.Size<67108864 Then listfile.WriteLine fl1.Path End If Next Set sfc = fol.SubFolders For Each sf1 in sfc Call RecursibleSearch(sf1.Path) Next End Sub

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5372日前に更新/297 KB
担当:undef