奇怪问题：明明是个文件夹却判断不出来

Question

  一个小程序用于查找文件夹下的两个excel文件，将它们加载到界面上。结果小程序在其它电脑上运行正常，可是在有一台电脑上却判断不出是文件夹。结果无法加载。我是用
if   (Dir.Attr=faDirectory)   and   (Dir.Name<>'.')
        and (Dir.Name<>'..')  then 来判断文件夹的。不知道为什么始终不会进入if里面。

Answer 1

把文件的属性改成faArchive，FindNext自然就找不到

Answer 2

if (Dir.Attr and fadirectory=fadirectory) and (Dir.Name <> '..') and (Dir.Name <> '.') then