#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)

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS