为什么返回值为“-1”解决方法

为什么返回值为“-1”
删除D:\2005\2008所有文件

string as_filepath='D:\2005\2008\*.*'
ListBox lb_file

long lb_file= greate ListBox 

lb_file.DirList(as_filepath, 0)
ll_filenum =lb_file.totalitems()
Messagebox('1', string(lb_file.totalitems()))
for i = 1 to ll_filenum
filedelete(lb_file.text(i))
next

开始不加 greate ListBox 报错，加上后不报了，告诉我lb_file值是负一

文件夹下有 1.txt,2.txt两个文件。。。。。


------解决方案--------------------
在lb_file = create ListBox 下面加上
OpenUserObject(lb_file)
------解决方案--------------------
通过setfileattribe之类的可以设置只读属性