Try If ls_Array[2] = 'Hello' Then MessageBox("","2存在") End If Catch(RunTimeError e) MessageBox("","应该是越界了") End Try ------解决方案-------------------- Thumbs.db 这个文件没有必要传呀
直接写成不处理的特例 if 文件名='Thumbs.db’ then next end if ------解决方案-------------------- 我现在没有PB在机上,只能盲猜,不能测试
readonly 是 1//低一位 hidden 是 2//低二位 system 是 4//低三位
if mod(fileattributes,4)/2 = 1 then //这个是hidden end if
if mod(fileattributes,8)/4 = 1 then //这个是system end if