ASP p/ CF

Gostaria de passar este codigo ASP para CF, alguem poderia me ajudar??Set objfso = CreateObject("Scripting.FileSystemObject")Set criar = objfso.DeleteFolder(dir_inicio,true)Set root = objfso.GetFolder(dir_pesquisa)Set folder = root.SubFoldersFor Each subfolder in folder Nome_folder = subfolder.name if trim(mid(nome_folder,15,50)) = dir_nome and len(nome_folder) > 14 then dir_apagar = dir_pesquisa & Nome_folder Set apagar = objfso.DeleteFolder(dir_apagar) end ifNext Set objfso = nothingSession.abandonurl = "adm000.cfm?" & Request.ServerVariables("QUERY_STRING") Response.redirect url