网站上找来的一个程序，调试修正了一些错误后，却想不出这个weizhi1是什么东东，请大家看看，

If weizhi1.Value Then
For i = 0 To File1.ListCount - 1
ge = ge + 1
' a = InStr(1, File1.List(i), ".")
' ftype = Right(File1.List(i), Len(File1.List(i)) - a)
name = draw(num - Len(str(be))) & be & part1
be = be + st
If name = File1.List(i) Then MsgBox "要修改的文件名和已存在的文件名相同，请重新命名", 1 + vbInformation, "命名过程中出错"
Name Dir1.Path & "\" & File1.List(i) As Dir1.Path & "\" & name & ctype
Next i
File1.Path = Dir1.Path
Else
For i = 0 To File1.ListCount - 1
ge = ge + 1
'a = InStr(1, File1.List(i), ".")
'ftype = Right(File1.List(i), Len(File1.List(i)) - a)
name = part1 & draw(num - Len(str(be))) & be
be = be + st
If name = File1.List(i) Then MsgBox "要修改的文件名和已存在的文件名相同，请重新命名", 1 + vbInformation, "命名过程中出错"
Name Dir1.Path & "\" & File1.List(i) As Dir1.Path & "\" & name & ctype
Next i
File1.Path = Dir1.Path
End If
Else

程序是做什么的.请说清楚.没有这么多精力去看.

程序是用来修改文件名的，这一段只是要判断是否有重复或重名的，。

但我还是没有想到这个weizhi1是什么东东，。

是否能根据程序代码想出来呢，。 。

小弟也是经验不足，。请大家帮忙想想。，

weizhi1在这里.我估计是一个OptionButton..单选按扭.

谢谢楼上的朋友, 我试试先,.