VB批量改文件名

在窗体中分别放上Filelistbox、Drivelistbox、Dirlistbox和Command控件，以下是代码：
Private Sub Form_Load()
File1.Pattern = "*.jpg"
End Sub

Private Sub Command1_Click()
Sum = File1.ListCount
DoEvents
For i = 1 To Sum
FileCopy File1.Path & "\" & File1.List(i - 1), File1.Path & "\" & i & ".gif"
Kill File1.Path & "\" & File1.List(i - 1)
Next
File1.Refresh
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

找到图片所在文件夹，点击command1这样以前的jpg文件得该为从1到你所有的文件数。对了，kill是删除你文件中的原来的所有jpg文件

为什么不用批处理呢?
rename *.jpg *.gif