奇怪的报错，小弟我是想删文件来着，按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))