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

 If Check6.Value = 1 Then
'想在此处增加一个获取DBPath目录下面指定文件名的代码，文件名获取后传递给DBFile，该文件可能有多个，
'最少有一个,指定类型文件名的格式是：数字1+db+数字2+.txt，其中数字1用来判断，由前面变量给予，数字2没有意义，
'且为个位数。有几个文件，就循环几遍。例如前面变量传递给数字1的值是101，目录下有101db1.txt和101db2.txt则下面绘图
'这段代码就循环两遍，第一次循环DBFile=101db1.txt 第二次循环DBFile=101db2.txt，循环顺序不分先后
'
 '绘图                       
                        Set BaseMapFrame = objPlot.Shapes.AddBaseMap(importfilename:=DBPath & DBFile)
                        objPlot.Shapes.SelectAll
                        Set sel = objPlot.Selection
                        sel.OverlayMaps
'绘图                      

                  
                End If

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