任意のディレクトリ以下のファイルを得るvbs

任意のディレクトリ以下のファイルを一覧にしたく、VBS(Visual Basic Script)ファイルを作成した。これが手前味噌ながら結構便利で、仕事で頻繁に利用している。説明や使い方は抜きにして、ひとまず仕事場からメモ、、したものを帰宅してから投稿。

Set objFs = CreateObject("Scripting.FileSystemObject")
inpath=InputBox("", "FileList", "C:\")
outpath=InputBox("", "FileList", "C:\filelist.txt")
If inpath<>"" And outpath<>"" Then
Set objText = objFs.CreateTextFile(outpath)
cnt = count(inpath)
objText.Close
Msgbox("完了しました")
End If
Function count(directory)
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(directory)
For Each objFile In objFolder.Files
objText.Write(objFile.ParentFolder & _
vbTab & objFile.Name & vbTab & _
objFile.DateLastModified & vbCRLF)
NEXT
For Each objFC In objFolder.SubFolders
cnt = cnt & count(objFC)
NEXT
count = cnt
End Function

Related posts:

1. OpenSocial お勉強
2. サーバーを新しくしました(2/3 – OS・M/W編)
3. ベイジアンフィルタをPHPから利用する