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

想实现文件按文件扩展名、创建时间实现自动整理，按钮代码求助，先谢了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文件扩展名、创建时间列填充（路径d盘）.rar

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

 版主，想要的效果没实现
整理后的格式文件夹下面的，日期文件夹，都是今天的日期。
                                                  日期文件夹的日期，要实现按文档的创建日期，上面的代码怎么修改呢？
整理还想要实现的是移动，不是复制，代码怎么添加呢？
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("表B").AddNew
    ndr("文件路径") = file
    ndr("扩展名") = finfo.Extension
    ndr("创建时间") = finfo.CreationTime
    'FileSys.CopyFile(file, ProjectPath & "整理后文件/" & finfo.Extension & "/" & format(finfo.CreationTime, "yyyy-MM-dd") & "/" & finfo.Name, True)
FileSys.CopyFile(file, ProjectPath & "整理后文件/" & format(finfo.CreationTime, "yyyyMMdd") & "/" & finfo.Extension & "/"  & finfo.Name, True) '文件夹是今天的日期，想以文件夹里面的文档的创建日期来命名文件夹
Next

 我测试，没问题。

 

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

  版主，整理还想要实现的是移动，不是复制，代码怎么添加呢？
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("表B").AddNew
    ndr("文件路径") = file
    ndr("扩展名") = finfo.Extension
    ndr("创建时间") = finfo.CreationTime
    'FileSys.CopyFile(file, ProjectPath & "整理后文件/" & finfo.Extension & "/" & format(finfo.CreationTime, "yyyy-MM-dd") & "/" & finfo.Name, True)
FileSys.CopyFile(file, ProjectPath & "整理后文件/" & format(finfo.CreationTime, "yyyyMMdd") & "/" & finfo.Extension & "/"  & finfo.Name, True)
Next

FileSys.MoveFile
搞定了，非常感谢

创建时间 列要调整为： 修改时间

CreationTime 函数换成哪一个呢？

此主题相关图片如下：下面的日期-修改日期.png

此主题相关图片如下：改为修改时间.png

想实现，按文档的创建日期，黄色的函数，用那个呢？请求帮助

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("表B").AddNew
    ndr("文件路径") = file
    ndr("扩展名") = finfo.CreationTimeUtc '报错........
    ndr("创建时间") = finfo.CreationTime
    'FileSys.CopyFile(file, ProjectPath & "整理后文件/" & finfo.Extension & "/" & format(finfo.CreationTime, "yyyyMMdd") & "/" & finfo.Name, True)
FileSys.CopyFile(file, ProjectPath & "整理后文件/" & format(finfo.CreationTime, "yyyy-MM-dd") & "/" & finfo.Extension & "/"  & finfo.Name, True)

Next

看看

 

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