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