奇怪的报错，小弟我是想删文件来着，按CSDN上说的用LISTBOX去删，却告诉小弟我空对象什么什么东东

奇怪的报错，我是想删文件来着，按CSDN上说的用LISTBOX去删，却告诉我空对象什么什么错误
string as_filepath='D:/2005/2008/1.txt' //:指定路径

  ListBox lb_file // :下拉组合框
long i

 i=1
Messagebox('', as_filepath + lb_file.text(i))

[解决办法]
删除D:\2005\2008所有文件

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

lb_file.DirList(as_filepath, 0)
ll_filenum =lb_file.totalitems()

for i = 1 to ll_filenum
filedelete(lb_file.text(i))
next
[解决办法]
filedelete('D:\2005\2008\'+ lb_file.text(i))