遍历某文件夹下面所有文件,如果文件大小小于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