主题：文件夹内容扫描

Vars("扫描地址") = "C:\Users\Administrator\Desktop\爆品资料\"

For Each File As String In FileSys.GetFiles(Vars("扫描地址"))

    Dim r As DataRow = DataTables("产品_图库资源").AddNew()

    r("原始_文件名") = FileSys.GetName(File)

    r("原始_文件地址") = File

    r("日期") = Date.Today 

Next

For Each dir2 As String In FileSys.GetDirectories(Vars("扫描地址")) '如果有子目录递归

    For Each File2 As String In FileSys.GetFiles(dir2)

        Functions.Execute("递归文件", dir2)

    Next

Next

一样的