查找文件夹下指定文件并删除

无雨谷 · 发表于 2023-5-26 11:30

本帖最后由无雨谷于 2023-5-26 13:30 编辑

用AI生成一段VBA代码，查找文件夹及子文件夹下所有指定.xlsm文件并删除,代码成功运行一次就不运行了。选择路径对话框不弹出了，求大神帮忙看看代码哪里出问题了？谢谢

liulang0808 · 发表于 2023-5-26 11:44

附件内容供参考。。。。
https://club.excelhome.net/threa ... tml?_dsign=73cffde5
链接内容可以参考

无雨谷 · 发表于 2023-5-26 13:31

用一次再重新打开使用，不能连续

limonet · 发表于 2024-5-24 10:49

关键字：push-location，删除操作，请确认。

limonet · 发表于 2024-5-24 10:50

Sub limonet()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then Path$ = .SelectedItems(1) Else Exit Sub
End With
CreateObject("wscript.shell").Run "powershell (push-location " & Path _
& ");(dir -recurse -file *.xlsm)| del", 0
End Sub

		自动登录	找回密码
密码			免费注册

[已解决] 查找文件夹下指定文件并删除

评分