指定したフォルダのファイル一覧を取得します。再帰処理でサブフォルダ内のファイル名も取得します。


Option Explicit
Private Function GET_FileList(STR_Path)

  Dim OBJ_FSO
  Dim OBJ_Folder
  Dim COL_SubFolder
  Dim COL_File

  Set OBJ_FSO = WScript.CreateObject("Scripting.FileSystemObject")
  Set OBJ_Folder = OBJ_FSO.GetFolder(STR_Path)

  For Each COL_File In OBJ_Folder.Files

    WScript.Echo COL_File.Name

  Next

  For Each COL_SubFolder In OBJ_Folder.SubFolders

    GET_FileList(COL_SubFolder)

  Next

End Function

 Scriptのダウンロードは こちら です。

16 Comments

  1. https://yoga-world.org says:

    https://yoga-world.org
    I am now not certain where you are getting your info,
    but great topic. I needs to spend some time studying more or working
    out more. Thank you for great information I was searching for this info for my mission.

  2. Speedpaste kaufen says:

    … [Trackback]

    […] Here you can find 4633 more Info on that Topic: dragon-ark.com/archives/115 […]

  3. ทางเข้าสโบเบ็ต says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/115 […]

  4. exchange hosting fiyat says:

    … [Trackback]

    […] Find More on to that Topic: dragon-ark.com/archives/115 […]

  5. exchange online hosting says:

    … [Trackback]

    […] Read More here to that Topic: dragon-ark.com/archives/115 […]

  6. hp sunucu servis says:

    … [Trackback]

    […] Find More on that Topic: dragon-ark.com/archives/115 […]

  7. exchange online hosting says:

    … [Trackback]

    […] Information on that Topic: dragon-ark.com/archives/115 […]

  8. bilişim danışmanlık firmaları says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/115 […]

  9. lenovo sunucu destek says:

    … [Trackback]

    […] Find More here on that Topic: dragon-ark.com/archives/115 […]

  10. Server Teknik Destek says:

    … [Trackback]

    […] Find More on to that Topic: dragon-ark.com/archives/115 […]

  11. furrynetwork.com says:

    furrynetwork.com

    blog topic

  12. high risk merchant account says:

    … [Trackback]

    […] Find More on that Topic: dragon-ark.com/archives/115 […]

  13. b+ mushrooms says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/115 […]

  14. glockonline.org says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/115 […]

Leave a Reply