>>280
ExtractFilePathでファイルがあるフォルダを取得して
FindFirst、FindNextをループさせて頑張る。