用vba批量改文件名称解决办法

用vba批量改文件名称

Sub wjj()


myfile = Dir("D:\pic\myfo\test\*.jpg")


i = 1


Do While myfile <> ""


Name "D:\pic\mypo\test\" & myfile As "D:\pic\myfo_files\test\test\baoyang" & Right("000" & i, 3) & ".jpg"


myfile = Dir' http://byw100.com


i = i + 1


Loop

 

End Sub
------解决方案--------------------
楼主想表达什么意思呢？
------解决方案--------------------
这样试一下：

Sub wjj()


    Dim oFileSys, oFolder, oFolders, i

    

    Set oFileSys = CreateObject("Scripting.FileSystemObject")

    Set oFolder = oFileSys.GetFolder("D:\pic\myfo\test\*.jpg")

    Set oFolders = oFolder.SubFolders


    i = 1


    For Each sFolder In oFolders


        Name "D:\pic\mypo\test\" & sFolder.Name As "D:\pic\myfo_files\test\test\baoyang" & Right("000" & i, 3) & ".jpg"


        i = i + 1


    Loop


End Sub