文件重命名

limonet

关键字：get-date -format

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";dir .\* -include *.jpg | % {Ren $_ ('上海'+(Get-Date -F 'yyyyMMdd')+('-{0}' -f ++$i)+$_.Extension)}", 0
End Sub

ykcbf1100

发现原回复帖附件并没有达到楼主的要求，现在更新一下。原帖子上已经不能编辑，再发一个吧。

ykcbf1100

更新一下，以达到楼主的要求。

1. Sub ykcbf()  '//2024.6.5
   
2.     Set Fso = CreateObject("scripting.filesystemobject")
   
3.     p = ThisWorkbook.Path & ""
   
4.     rq = Format(Date, "yyyymmdd")
   
5.     Application.ScreenUpdating = False
   
6.     For Each f In Fso.getfolder(p).Files
   
7.         If UCase(f.Name) Like "*.JPG" Then
   
8.             m = m + 1
   
9.             st = "上海" & rq & "-" & m
   
10.             f.Name = st & "." & Fso.GetExtensionName(f)
    
11.         End If
    
12.     Next f
    
13.     Application.ScreenUpdating = True
    
14.     MsgBox "OK！"
    
15. End Sub
    

复制代码