如何批量去掉excel名称里的不可识别字符

今天写了一个vba程序来进行多表合并，但程序遇到一个Bug不知如何解决，故求助。就是下载下来的文档名称有简有繁，有⭐有❤有△，用dir(Thisworkbook. path&"\*.xls")处理文件名时，这些字符会变成问号，用getobject无法打开这个文档，请问诸位大神有木有什么方法可以快速的去掉名称里的这些不可识别字符，谢谢回答。