主题：[求助]文件扩展名、创建时间列填充

1、

Dim path As String = ProjectPath & "待整理文件"
For Each file As String In FileSys.GetFiles(path)
    Dim finfo As new FileInfo(file)
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("文件路径") = file
    ndr("扩展名") = finfo.Extension
    ndr("创建时间") = finfo.CreationTime
Next

2、

Dim path As String = ProjectPath & "待整理文件"
For Each file As String In FileSys.GetFiles(path)
    Dim finfo As new FileInfo(file)
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("文件路径") = file
    ndr("扩展名") = finfo.Extension
    ndr("创建时间") = finfo.CreationTime
    FileSys.CopyFile(file, ProjectPath & "整理后文件/" & finfo.Extension & "/" & format(finfo.CreationTime, "yyyyMMdd") & "/" & finfo.Name, True)
Next

 我测试，没问题。

 请认真查看文件的创建日期->选中文件->右键->属性

看看

http://www.foxtable.com/webhelp/scr/2707.htm