遍历某文件夹下面所有文件,如果文件大小小于150字节就全部删除.这个代码哪里错?老说"文件未找到".多谢!!
遍历某文件夹下面所有文件,如果文件大小小于150字节就全部删除.这个代码哪里错?老说"文件未找到".多谢!!

Private Sub Command1_Click()

fname = Dir("d:\英语\" & "*.*")
Do Until fname = ""
On Error Resume Next
If FileLen(fname) < 150 Then Kill fname

fname = Dir()
Loop
End Sub

[解决办法]
If FileLen(fname) < 150 Then Kill "d:\英语\" & fname