rtElseIf (InStr(i.Path, allName) = 0) Then执行这句的错误?
可能是你的语法错误了..像你把一个名为command1的控件的名字错写为commamd1了.还有就是如果错误所提示的.要求对象,就是你没对象.像你窗体中都没有commandbutton控件,又写command1.caption="X",这样然会错了.我想这错是你程序中要引用什么对象的,而你没有引用到!