Python遍历子目录，利用python-pptx删除ppt文件最后一页

美女同事给了一堆PPT文件，问我能否把快速最后一页删除？先告诉她，当然没问题，在仔细看任务内容，确实所有PPT课件最后一页是广告内容，人工删除还挺费事的，幸好有利器

pip install python-pptx

顺利完成代码安装，如果你安装上有问题，请自行BD解决

'''
程序功能：Python遍历目录删除PPT最后一页

'''
from pptx import Presentation
import os


def list_dir_more(CurPath=os.getcwd(), file_list=[]):
    FileList = os.listdir(CurPath)
    # print FileList
    for File in FileList:
        SubPath = CurPath + '\' + File
        if os.path.isdir(SubPath):
            list_dir_more(SubPath, file_list)
        else:
            file_list.append(SubPath)
    
    return file_list
 
 
def del_ppt_lastpage(file):
    prs = Presentation(file)
    # 查看一共几页
    slides = prs.slides
    number_pages = len(slides)
    print('file={},总页数={}'.format(file,number_pages))
    rId = prs.slides._sldIdLst[-1].rId
    prs.part.drop_rel(rId)
    del prs.slides._sldIdLst[-1]
    # 保存ppt文件
    prs.save(file)
    
if __name__ =="__main__":
    file_list=list_dir_more('.PPT')
    count=1
    for file in file_list:
        try:
            if '.ppt' in file:
                print('正在处理第 {}/{} 个文件：{}'.format(count,len(file_list),file))
                del_ppt_lastpage(file)
            
        except BaseException as del_err:
            print('第 {}/{} 个文件：{} ,处理失败，提示信息：{}'.format(count, len(file_list), file,del_err))
 
        count += 1
        
        

 顺利完成任务，得到美女同事赞赏的目光！

Python真是自动化的利器啊，大量的成熟组件，助大家早日脱单啊，哈哈~~！