WHY

strSrcDir = "D:\test"
Set fso=CreateObject("Scripting.FileSystemObject")

For i = 10001 To 11000
    strSrcFile = strSrcDir & "\" & (i - 10000) & ".jpg"
    strDstFile = Mid(i, 2) & ".jpg"
    If fso.FileExists(strSrcFile) Then fso.GetFile(strSrcFile).Name = strDstFile
Next
复制代码