[已解决]这代码问题在哪？？？

fangniuji

1. Sub cc()
   
2. Dim Pat As String, Nm As String
   
3. Pat ="C:\Documents and Settings\Administrator\桌面 " & ""
   
4. Nm = Dir(Pat & "*.txt")
   
5. 
   
6. Do Until Len(Nm) = 0
   
7. Kill Pat & Nm
   
8. Nm = Dir
   
9. Loop
   
10. MsgBox "Text 文件删除完毕!!", , "完成"
    
11. End Sub
    

复制代码

为什么这代码不删除桌面Txt文档，谢谢？？？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-1 23:05

1. Sub cc()
   
2.     Dim Pat As String, Nm As String
   
3.     Pat = "C:\Documents and Settings\Administrator\桌面" & ""
   
4.     Nm = Dir(Pat & "*.txt")
   
5. 
   
6.     Do Until Len(Nm) = 0
   
7.         Debug.Print Pat & Nm
   
8.         Kill Pat & Nm
   
9.         Nm = Dir
   
10.     Loop
    
11.     MsgBox "Text 文件删除完毕!!", , "完成"
    
12. End Sub
    

复制代码

观察下立即窗口。

跳转到最佳答案楼层

hwc2ycy

大小的区分注意了没？

更正下，刚测了，不区分大小写的。

hwc2ycy

桌面后面多了个空格。

hwc2ycy

1. Pat ="C:\Documents and Settings\Administrator\桌面 " & ""

复制代码

面后面的空格去掉，应该没问题的。

hwc2ycy

1. Sub cc()
   
2.     Dim Pat As String, Nm As String
   
3.     Pat = "C:\Documents and Settings\Administrator\桌面" & ""
   
4.     Nm = Dir(Pat & "*.txt")
   
5. 
   
6.     Do Until Len(Nm) = 0
   
7.         Debug.Print Pat & Nm
   
8.         Kill Pat & Nm
   
9.         Nm = Dir
   
10.     Loop
    
11.     MsgBox "Text 文件删除完毕!!", , "完成"
    
12. End Sub
    

复制代码

观察下立即窗口。