WSH/ディレクトリ内のファイルとフォルダ一覧を取得する方法・Files, Folders
の編集
Top
/
WSH
/
ディレクトリ内のファイルとフォルダ一覧を取得する方法・Files, Folders
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#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)
タイムスタンプを変更しない
#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)
テキスト整形のルールを表示する
添付ファイル:
flist.vbs
2708件
[
詳細
]