以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]文件扩展名、创建时间列填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105542)
--  作者：湛江智
--  发布时间：2017/8/22 8:55:00
--  [求助]文件扩展名、创建时间列填充

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:文件扩展名、创建时间列填充（路径d盘）.rar
--  作者：有点甜
--  发布时间：2017/8/22 10:31:00
--  

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
--  作者：有点甜
--  发布时间：2017/8/22 10:34:00
--  

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
--  作者：湛江智
--  发布时间：2017/8/22 10:49:00
--  
 版主，想要的效果没实现
整理后的格式文件夹下面的，日期文件夹，都是今天的日期。
                                                  日期文件夹的日期，要实现按文档的创建日期，上面的代码怎么修改呢？
整理还想要实现的是移动，不是复制，代码怎么添加呢？
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


[此贴子已经被作者于2017/8/22 11:09:47编辑过]
--  作者：有点甜
--  发布时间：2017/8/22 11:10:00
--  

 我测试，没问题。

 

 请认真查看文件的创建日期->选中文件->右键->属性
--  作者：湛江智
--  发布时间：2017/8/22 11:14:00
--  
  版主，整理还想要实现的是移动，不是复制，代码怎么添加呢？
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
--  作者：湛江智
--  发布时间：2017/8/22 11:29:00
--  
FileSys.MoveFile
搞定了，非常感谢
--  作者：湛江智
--  发布时间：2017/8/22 12:00:00
--  

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

CreationTime 函数换成哪一个呢？


图片点击可在新窗口打开查看此主题相关图片如下：下面的日期-修改日期.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：改为修改时间.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/8/22 12:22:10编辑过]
--  作者：湛江智
--  发布时间：2017/8/22 12:05:00
--  

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

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

[此贴子已经被作者于2017/8/22 12:07:06编辑过]
--  作者：有点甜
--  发布时间：2017/8/22 12:14:00
--  

看看

 

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