strFileName = VBA.Right(strSrcZipedDB, VBA.Len(strSrcZipedDB) - VBA.InStrRev(strSrcZipedDB, "\")) 转载于:https://www.cnblogs.com/wskaihd/archive/2008/11/17/1334995.html