Set objFSO = CreateObject("Scripting.FileSystemObject") Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Users\ITServicecenter1\Desktop\校友办\学生卡.XLS") intRow = 1 On Error Resume Next Do Until objExcel.Cells(intRow,1).Value = "" strCardNo = objExcel.Cells(intRow,1).Value strPS = objExcel.Cells(intRow,3).Value objfso.MoveFile strCardNo & ".jpg",strPS & ".jpg" intRow = intRow + 1 Loop objExcel.Quit WScript.Echo "Done!"

这段代码是使用 VBScript 编写的，用于将一个 Excel 文件中的学生卡号与对应的照片进行重命名。具体操作如下：

1. 创建一个 FileSystemObject 对象，用于操作文件系统。
2. 创建一个 Excel.Application 对象，并打开指定路径下的 Excel 文件。
3. 初始化行号为 1。
4. 开启错误恢复模式，以便在发生错误时继续执行。
5. 使用循环，直到 Excel 表格的第 intRow 行第一列的值为空。
6. 从 Excel 表格中获取学生卡号和对应的照片文件名。
7. 使用 FileSystemObject 对象的 MoveFile 方法将学生卡号.jpg 的照片文件重命名为对应的照片文件名.jpg。
8. 行号加一，继续下一行的操作。
9. 关闭 Excel 应用程序。
10. 输出 "Done!"。

请注意，在运行这段代码之前，确保已经安装了 Excel，并且 Excel 文件路径是正确的。