試してないですが、削除部分だけKillを使ったらどうなりますか? Dim path as string path = folder + r.Name 'ファイルがある場合削除する。 If Dir$(path)<>"" Then Kill path End If