VBScript：フォルダにあるファイルを調べる

フォルダにあるファイルを列挙して処理を行うことがありますね、

フォルダのファイルをリストアップして、ファイルサイズを表示するサンプルを記載します。

全てのファイルが対象で、隠しファイル、システムファイルも出てきます。

ファイルサイズの表示部分はおまけなので手を入れていません。

必要であればテキトーに判定処理を追加してGMKなどの表示にすれば良いでしょう。

Dim objFileSys  Set objFileSys = CreateObject("Scripting.FileSystemObject") Dim strFolderPath  ' フォルダのパスを指定する  strFolderPath = "C:\Data" Dim intFileCount , strTextBody  intFileCount = 0  strTextBody = "" Dim strFileName  strFileName = "" For Each strFileName In objFileSys.GetFolder(strFolderPath).Files     Set objFile = objFileSys.GetFile(strFileName)     If Err.Number = 0 Then         intFileCount = intFileCount + 1         strTextBody = strTextBody & _             objFile.Name & ":" & objFile.Size & vbNewLine     End if Next If intFileCount = 0 Then     strTextBody = "ファイルがありません。" End If Wscript.Echo strTextBody