Set f1 = fk.GetFolder("c:")
For Each bj In f1.Files
こうすると、「Function または変数が必要です」となります。どうしてですか？