通过脚本重命名文件

Question

下面的这个脚本重命名一组计划任务运行的图像，其中活的人成为本周壁纸（从我的最佳知识）。 脚本在一段时间内没有工作，没有环境变化。我的VB有点生疏，但我似乎无法看到问题。

错误消息：

Set fso = CreateObject("Scripting.FileSystemObject") 

Set oFldr = fso.getfolder("E:\Users\Citrix Templates\Wallpaper") 
For Each ofile In oFldr.Files 
    If ofile.Name = "1.jpg" Then 
    ofile.Name = "b0.jpg" 
    ElseIf ofile.Name = "2.jpg" Then 
    ofile.Name = "1.jpg" 
    ElseIf ofile.Name = "3.jpg" Then 
    ofile.Name = "2.jpg" 
    ElseIf ofile.Name = "4.jpg" Then 
    ofile.Name = "3.jpg" 
    ElseIf ofile.Name = "5.jpg" Then 
    ofile.Name = "4.jpg" 
    ElseIf ofile.Name = "6.jpg" Then 
    ofile.Name = "5.jpg" 
    ElseIf ofile.Name = "7.jpg" Then 
    ofile.Name = "6.jpg" 
    ElseIf ofile.Name = "8.jpg" Then 
    ofile.Name = "7.jpg" 
    ElseIf ofile.Name = "9.jpg" Then 
    ofile.Name = "8.jpg" 
    ElseIf ofile.Name = "a0.jpg" Then 
    ofile.Name = "9.jpg" 
    ElseIf ofile.Name = "a1.jpg" Then 
    ofile.Name = "a0.jpg" 
    ElseIf ofile.Name = "a2.jpg" Then 
    ofile.Name = "a1.jpg" 
    ElseIf ofile.Name = "a3.jpg" Then 
    ofile.Name = "a2.jpg" 
    ElseIf ofile.Name = "a4.jpg" Then 
    ofile.Name = "a3.jpg" 
    ElseIf ofile.Name = "a5.jpg" Then 
    ofile.Name = "a4.jpg" 
    ElseIf ofile.Name = "a6.jpg" Then 
    ofile.Name = "a5.jpg" 
    ElseIf ofile.Name = "a7.jpg" Then 
    ofile.Name = "a6.jpg" 
    ElseIf ofile.Name = "a8.jpg" Then 
    ofile.Name = "a7.jpg" 
    ElseIf ofile.Name = "a9.jpg" Then 
    ofile.Name = "a8.jpg" 
    ElseIf ofile.Name = "LiveCitrixWallpaper.jpg" Then 
    ofile.Name = "a9.jpg" 
    End If 
Next 

For Each ofile In oFldr.Files 
    If ofile.Name = "b0.jpg" Then 
    ofile.Name = "LiveCitrixWallpaper.jpg" 
    End If 
Next 

Answer 1

我删除从文件路径中的图像b0.jpg，它似乎是工作。

不知道为什么它打破了它，但它现在重命名它们。