ディレクトリ内のファイル一覧を取得する方法・Filesコレクション †指定したディレクトリ内のファイルおよびフォルダ一覧を取得するには、FileSystemObjectのGetFolderメソッドで返却されるFolderオブジェクトのFilesコレクションとSubFoldersプロパティが返却するFoldersコレクションを使用することにより、ファイル一覧およびフォルダ一覧を取得することができます。 Files, Foldersコレクションを利用したVBScriptサンプルコードと実行結果 †以下にFiles, Foldersコレクションを利用したサンプルコードと実行結果について記します。 Files, Foldersコレクションを利用しファイルおよびフォルダ一覧を表示するVBScriptサンプルコード †1: Set fso = CreateObject("Scripting.FileSystemObject") ' Create FileSystemObject 2: Set fld = fso.GetFolder("c:\Windows") ' Get Folder Object 3: Set ficol = fld.Files ' Get Files Collection 4: Set fdcol = fld.SubFolders ' Get Folders Collection 5: 6: WScript.Echo "-- File list --" 7: WScript.Echo "File count = " & ficol.Count 8: For Each f in ficol 9: WScript.Echo "FileName, Size, LastModified : " & f.Name & ", " & f.Size & ", " & f.DateLastModified 10: Next 11: 12: WScript.Echo "-- Folder list --" 13: WScript.Echo "Folder count = " & fdcol.Count 14: For Each f in fdcol 15: WScript.Echo "FolderName, LastModified : " & f.Name & ", " & f.DateLastModified 16: Next 17: 18: Set fdcol = Nothing 19: Set ficol = Nothing 20: Set fld = Nothing 21: Set fso = Nothing 上記のVBScriptサンプルコードは、C:\Windowsを対象としてファイルとフォルダの一覧を取得します。 6行目から10行目はファイル一覧を出力しています。 尚、本サンプルコードは隠しファイルや画しフォルダなども表示されます。 サンプルコードの実行結果 †以下に上記のサンプルコード実行結果を記します。 -- File list -- File count = 59 FileName, Size, LastModified : 0, 33, 2009/09/21 14:30:36 FileName, Size, LastModified : Acer.tag, 0, 2008/12/23 16:49:45 FileName, Size, LastModified : AppInst.INI, 0, 2012/06/23 2:16:54 FileName, Size, LastModified : bfsvc.exe, 71168, 2010/11/20 22:24:27 FileName, Size, LastModified : bootstat.dat, 67584, 2012/07/30 23:25:59 FileName, Size, LastModified : CSUP.TXT, 10, 2009/09/21 10:47:31 FileName, Size, LastModified : DirectX.log, 31343, 2012/06/21 22:06:37 FileName, Size, LastModified : DPINST.LOG, 13702, 2012/06/21 22:00:36 <snip> FileName, Size, LastModified : WindowsShell.Manifest, 749, 2009/07/14 13:54:24 FileName, Size, LastModified : WindowsUpdate.log, 1109039, 2012/07/30 23:26:07 FileName, Size, LastModified : winhlp32.exe, 9728, 2009/07/14 10:14:45 FileName, Size, LastModified : WLXPGSS.SCR, 306040, 2009/02/06 20:07:50 FileName, Size, LastModified : WMSysPr9.prx, 316640, 2009/06/11 5:52:44 FileName, Size, LastModified : write.exe, 10240, 2009/07/14 10:39:57 -- Folder list -- Folder count = 60 FolderName, LastModified : addins, 2009/07/14 14:32:39 FolderName, LastModified : AppCompat, 2009/07/14 12:20:08 <snip> FolderName, LastModified : Vss, 2009/07/14 12:20:14 FolderName, LastModified : Web, 2009/07/14 14:32:38 FolderName, LastModified : winsxs, 2012/07/27 0:27:18 |