求删除当前文件夹下的所有图片的表示方法

xiou1023

    mypath = ThisWorkbook.Path & "\"  '当前文件夹的路径
    Kill mypath & ".jpg"     '删除当前文件夹下所有的图片     这句有问题  求助大神

cidanji

Kill ThisWorkbook.Path & "\*.jpg"

xiou1023

我使用了通配符 也是不对的
Kill mypath & "*.jpg"

杨建营

DO WHILE Myfile <> ""
Kill Myfile
Myfile =Dir
Loop
试试循环删除。可能是不能选择全部图片或有只读图片。手机打字有些不太规范，请参考。

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
楼主可以参考下的

xiou1023

cidanji 发表于 2023-3-1 07:56
Kill ThisWorkbook.Path & "\*.jpg"

感谢大神帮助    单独 运行是可以的

但是我关联了两个模块就不能用了

无敌小猪猪

perfect131

cmd 命令

1. Sub kong()
   
2.     '''目标文件夹
   
3.     myfile = "D:\excelhome"
   
4.     '''del *.jpg /s   /s子文件夹图片一起删除
   
5. 
   
6.     '''不会删除子文件夹图片
   
7.     sCmd = "cmd /c del " & myfile & "\*.jpg"
   
8.    
   
9.     '''子文件夹图片一起删除
   
10.     sCmd1 = "cmd /c del " & myfile & "\*.jpg /s"
    
11.    
    
12.     Set WshShell = CreateObject("WScript.Shell")
    
13. ''    Set oExec = WshShell.Exec(sCmd)  '''会闪
    
14.     WshShell.Run sCmd, 0, True  '''不会闪
    
15.     WshShell.Run sCmd1, 0, True  '''不会闪
    
16.     Set WshShell = Nothing
    
17. End Sub

复制代码

xiou1023

xiou1023 发表于 2023-3-2 08:23
感谢大神帮助    单独 运行是可以的

但是我关联了两个模块就不能用了

终于知道 为啥关联到一起就报错  
是因为当前文件夹没有图片
现在加了个判断就可以了