学步园

Sub FileNewName()<br /> Dim FSO As Object, FDR As Object, F As Object, i As Variant, OldName As String,<br /> NewName As String<br /> On Error Resume Next '忽略错误<br /> Set FSO = CreateObject("Scripting.FileSystemObject") '创建计算机文件系统以向<br /> 其访问<br /> Set FDR = FSO.GetFolder("D:/Test") '指定其中访问的文件夹对象<br /> Set F = FDR.Files '定义该文件夹中的所有文件集合<br /> For Each i In F '在指定文件下的文件中循环<br /> OldName = FDR & "/" & i.Name<br /> NewName = FDR & "/" & Mid(i.Name, 3) '去掉前两个字符<br /> Name OldName As NewName<br /> Next i<br /> End Sub<br /> '----------------------