目录下文件名获取并判断 循环执行代码【基础】

Set FSO = CreateObject("Scripting.FileSystemObject")

    Set Directory = FSO.GetFolder(DBPath)

        For Each FileName In Directory.Files

            WScript.Echo FileName.Name

        Next

        Set FileName = Nothing

    Set Directory = Nothing

Set FSO = Nothing

补充：VB ,  基础类

上一个：请VB高手指教，急、急、急、急、急、急、急、急！！！！
下一个：VB 如何最大化 但是也要屏蔽最小化和最大化和关闭按钮 如何实现