Rem : =========== 将文件加 folder 重新命名，路径不变，名称为 newFolderRem : =========== folder 必须存在Rem : =========== newName 只能是文件夹名称，不能包含路径信息Rem : =========== newName 不能是 folder 所在目录中已有的文件或文件夹 Sub RenameFolder( folder, newName )If fso.FolderExists(folder) = false Then Err.Raise vbObjectError+128, "RenameFolder", "Folder : " & folder & " does not exist"If Len(fso.getfilename(newName)) <> Len(newName) Then Err.Raise vbObjectError+128, "RenameFolder", newName & " contains path info"Dim ff = fso.GetParentFolderName(folder)If Right(f,1) <> "/" Then f = f & "/"f = f & newNameIf fso.fileexists(f) = True Or fso.folderexists(f) = True Then Err.Raise vbObjectError+128, "RenameFolder", f & " already exists"Dim errMsgOn Error Resume NextRem ====== code beginfso.MoveFolder folder, fRem ====== code endIf Err.Number <> 0 ThenerrMsg = Err.DescriptionOn Error Goto 0Err.Raise vbObjectError+128, "RenameFolder", errMsg & vbNewLine & _" folder:" & vbTab & folder & vbNewLine & _" newName:" & vbTab & newNameExit SubEnd IfEnd Sub
