باسلام
بسته listings را قبل از subcaption فراخوانی کنید.
\documentclass[openany, 12pt]{book}
\usepackage{color}
\usepackage{xcolor}
\usepackage{listings}
\usepackage[skip=2pt,font=footnotesize]{subcaption}
\usepackage{xepersian}
نکته: نیازی نیست کدها را در متن خود وارد کنید که متنتان شلوغ شود، میتوانید خیلی راحت فقط آدرس فایل کد مورد نظر خود را بدهید. پیوند راهنمای وارد کردن کد در متن را مشاهده کنید.