Question

VB批量重命名文件代码

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim FSO As Object, FDR As Object, F As Object, i As Object, OldName As String, NewName As String

FSO = CreateObject("Scripting.FileSystemObject") '创建计算机文件系统以向其访问()
FDR = FSO.GetFolder("D:/test") '指定其中访问的文件夹对象
F = FDR.Files '定义该文件夹中的所有文件集合
For Each i In F '在指定文件下的文件中循环
OldName = FDR & "/" & i.name
NewName = FDR & "/" & Mid(i.name, 3) '去掉前两个字符
FileSystem.Rename(OldName, NewName)
Next i

End Sub

为什么这段代码老是报错啊？

Answer 1

Mid(i.name, 3) 改 Mid(i.name, 3,len(i.name)-2)

追问

大神，还是不行啊

追答

OldName = FDR.path & "/" & i.name
NewName = FDR.path & "/" & Mid(i.name, 3, Len(i.name) - 2) '去掉前两个字符

鄙视你 我回答正确 选别人最佳答案

Answer 2

说下错误在哪一行？
在本地文件路径应该用反斜杠\分隔，网址是用斜杠/