电脑文件夹日期格式批量修改

zlxxian · 发表于 2020-12-9 09:20

各位大师们，我想把电脑里文件日期的格式"yymmdd"（如20201209）想批量改成“yy-mm-dd"（如2020-12-09），请问有什么好方法？文件太多了，一个一个改好累啊。。

f8b1987 · 发表于 2020-12-9 10:43

本帖最后由 f8b1987 于 2020-12-9 11:50 编辑

00000000文件夹批量改成0000-00-00.zip (4.52 KB, 下载次数: 11)
修正

f8b1987 · 发表于 2020-12-9 10:45

在输入框中粘贴所在文件夹路径，
假设你需要修改的文件夹统一放在
D:\等待修改名称
就将这个路径粘贴进去，然后执行即可

lfspecter · 发表于 2020-12-9 10:57

f8b1987 发表于 2020-12-9 10:43

这个是自己封装的吗？
DOS批处理解决不了日期后面还有一大串汉字的情况

f8b1987 · 发表于 2020-12-9 11:43

lfspecter 发表于 2020-12-9 10:57
这个是自己封装的吗？
DOS批处理解决不了日期后面还有一大串汉字的情况

直接用VB6写的

Public Sub findname()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Text1.Text) '在括号内输入你指定的目录
Set fc = f.Files
Set br = f.subfolders
ReDim arr(1 To 1000, 1 To 1)
For Each wjj In br
n = n + 1
arr(n, 1) = wjj.Path
If Len(Split(wjj.Path, "")(UBound(Split(wjj.Path, "")))) = 8 And Left(Split(wjj.Path, "")(UBound(Split(wjj.Path, ""))), 2) = "20" Then
Name Text1.Text & "" & Split(wjj.Path, "")(UBound(Split(wjj.Path, ""))) As Text1.Text & "" & Format(Split(wjj.Path, "")(UBound(Split(wjj.Path, ""))), "0000-00-00")
End If
Next
MsgBox "已完成"
End Sub
Private Sub Command1_Click()
findname
End Sub

复制代码

f8b1987 · 发表于 2020-12-9 11:44

lfspecter 发表于 2020-12-9 10:57
这个是自己封装的吗？
DOS批处理解决不了日期后面还有一大串汉字的情况

你不说我还没留意到他后面打码了汉字内容

还得修改一下

f8b1987 · 发表于 2020-12-9 11:51

附件已重新修改，见2楼

zlxxian · 发表于 2020-12-21 14:42

f8b1987 发表于 2020-12-9 10:43
修正

非常感谢大神提供的帮助，谢谢！！

zlxxian · 发表于 2020-12-21 15:28

lfspecter 发表于 2020-12-9 10:57
这个是自己封装的吗？
DOS批处理解决不了日期后面还有一大串汉字的情况

谢谢指导！

zlxxian · 发表于 2021-2-7 15:08

f8b1987 发表于 2020-12-9 10:43
修正

你好！谢谢上次帮我把电脑文件夹格式由日期格式“yymmdd"批量改成"yy-mm-dd"格式的问题解决了。请问如果是图片或WORD、EXCEL文档，请问有什么好方法吗？

		自动登录	找回密码
密码			免费注册

[求助] 电脑文件夹日期格式批量修改