>>485
FileSystemObjectは見通しの良いコードが書ける反面、スピードは遅いので気をつける。
Likeを使った比較も、If UCase$(Right$(fl.Name,4))=".TXT" Thenという風にすればマシにはなるかも。
>>486
Year(Date)とかYear(Now)。ヘルプ参照。