>>535
> If x.FullName = FilePath Then Set foo1 = x: Exit For
これ通るのか…知らなかった…