UC知道VB批量重命名文件，高手进来！！！
来源：百度知道 编辑：UC知道 时间：2024/06/18 18:11:31
一个目录下所有的文件都是后缀为.amr的文件，用每一个文件的最后修改时间，作为文件名进行批量重命名操作。用VB代码实现。
比如123.amr的属性显示修改日期为：2009年4月2日, 20:26:00，要求格式化为2009年4月2日_20时26分00秒_.amr
答案满意再追加5分！
TO：jesuspig
忘记了一点，将文件名更改为文件的修改日期 + 原文件名.amr
如果原文件为123.amr，修改日期为：2009年4月2日, 20:26:00，要求格式化为2009年04月02日_20时26分00秒_123.amr
1月格式化为01月，2月格式化为02月，4日格式化为04日。
一定追加分！
比如123.amr的属性显示修改日期为：2009年4月2日, 20:26:00，要求格式化为2009年4月2日_20时26分00秒_.amr
答案满意再追加5分！
TO：jesuspig
忘记了一点，将文件名更改为文件的修改日期 + 原文件名.amr
如果原文件为123.amr，修改日期为：2009年4月2日, 20:26:00，要求格式化为2009年04月02日_20时26分00秒_123.amr
1月格式化为01月，2月格式化为02月，4日格式化为04日。
一定追加分！
不好意思，第一次没有看清你的问题。
---------------------------------
Private Sub Command1_Click()
Dim fStr As String
Dim tDate As String
Dim pathStr As String
pathStr = App.Path
fStr = Dir(pathStr & "\*.amr")
Do While fStr <> ""
tDate = FileDateTime(fStr)
tDate = Format(tDate, "yyyy年m月d日_hh时mm分ss秒_") & ".amr"
Name fStr As pathStr & "\" & tDate
fStr = Dir
Loop
End Sub
'pathStr是文件的路径
--------------补充回答你补充提出的问题-------------------
fStr返回的就是后缀为.amr的原文件名,日月想用双位表示，也只需小改一下,
因此:
将
tDate = Format(tDate, "yyyy年m月d日_hh时mm分ss秒_") & ".amr"
改为:
tDate = Format(tDate, "yyyy年mm月dd日_hh时mm分ss秒_") & fStr
VB不会，其他的方法，倒是知道很多，看来帮不上你忙啦
'tonkeys qq:58507961
'功能：将文件名更改为文件的修改日期
'2009.4.4
Private Declare Function CloseHandle Lib "kernel32" (ByVal