#navi(../)
* ディレクトリ内のファイル一覧を取得する方法・Filesコレクション [#yb7c8d80]
指定したディレクトリ内のファイルおよびフォルダ一覧を取得するには、FileSystemObjectのGetFolderメソッドで返却されるFolderオブジェクトのFilesコレクションとSubFoldersプロパティが返却するFoldersコレクションを使用することにより、ファイル一覧およびフォルダ一覧を取得することができます。~
以下にVBScriptのサンプルコードと実行結果を記します。
#contents
#htmlinsertpcsp(win-top.html,win-sp.html)
* Files, Foldersコレクションを利用したVBScriptサンプルコードと実行結果 [#y6234a7f]
以下にFiles, Foldersコレクションを利用したサンプルコードと実行結果について記します。
** Files, Foldersコレクションを利用しファイルおよびフォルダ一覧を表示するVBScriptサンプルコード [#ffd0a72f]
#ref(flist.vbs)
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を対象としてファイルとフォルダの一覧を取得します。~
2行目でFolderオブジェクトを取得し4行目のSubFoldersプロパティでFordersコレクションを取得しています。~
Filesコレクションの取得は2行目で取得したFolderオブジェクトを利用し、3行目のFilesプロパティによりFilesコレクションを取得しています。
6行目から10行目はファイル一覧を出力しています。~
12行目から16行目はフォルダー一覧を出力しています。
尚、本サンプルコードは隠しファイルや画しフォルダなども表示されます。
** サンプルコードの実行結果 [#bc90264b]
以下に上記のサンプルコード実行結果を記します。
-- 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
#htmlinsertpcsp(win-btm.html,win-sp.html)