利用VBS删除文件夹，可解决rc文件夹残留问题！

sxw005

谢谢遇到这个问题了

sxw005

翻译过来还是出错

1. 功能 DeleteFolderByVBS(P_FolderPath="rc:", P_Delay=500)  
   
2.     P_FolderPath = 转字符型(P_FolderPath)
   
3.     P_Delay = 转整型(P_Delay)
   
4.     变量 局_路径模式 = "", 局_上级目录 = "", 局_计次 = 0, 局_VBS文件路径 = "", 局_文件句柄 = 0, 局_VBS脚本内容 = ""
   
5.     局_路径模式 = 字符串截取(P_FolderPath, 0, 2)
   
6.     如果(局_路径模式 == ".\")  
   
7.         P_FolderPath = 系统获取进程路径() & 字符串移除(P_FolderPath, 2, 真)  
   
8.         //这里‘.\\’路径区别tc的路径，tc表示程序进程的运行路径，而这里是程序所在目录，虽然大部分情况下没多少区别。        
   
9.     否则   
   
10.         局_路径模式 = 字符串截取(P_FolderPath, 0, 3)
    
11.         如果(局_路径模式 == "rc:")     
    
12.             如果(字符串截取(P_FolderPath, 3, 4) == "\")   
    
13.                 P_FolderPath = 字符串移除(P_FolderPath, 4, 真)     
    
14.             否则   
    
15.                 P_FolderPath = 字符串移除(P_FolderPath, 3, 真)      
    
16.             结束         
    
17.             P_FolderPath = 获取资源路径("rc:") & P_FolderPath   
    
18.         结束
    
19.     结束
    
20.     如果(字符串长度(P_FolderPath) < 4)
    
21.         返回 假
    
22.     结束
    
23.     如果(字符串截取(字符串倒序(P_FolderPath), 0, 1) == "\")  
    
24.         P_FolderPath = 字符串移除(P_FolderPath, 1, 假)
    
25.     结束
    
26.     如果(文件是否存在(P_FolderPath & "\") == 假)
    
27.         返回 假
    
28.     结束
    
29.     局_上级目录 = 字符串移除(P_FolderPath, 字符串查找字符(字符串倒序(P_FolderPath), "\"), 假)
    
30.     如果(文件是否存在(局_上级目录) == 假)
    
31.         返回 假
    
32.     结束
    
33.     遍历(局_计次 = 0; 局_计次 < 10; 局_计次++)
    
34.         局_VBS文件路径 = 局_上级目录 & 字符串格式化("%x", 随机数(#100000, #FFFFFF)) & ".vbs"
    
35.         如果(文件是否存在(局_VBS文件路径) == 假)
    
36.             跳出
    
37.         结束                                       
    
38.     结束           
    
39.     如果(局_计次 >= 10)   
    
40.         返回 假
    
41.     结束
    
42.     局_文件句柄 = 文件创建(局_VBS文件路径, "读写")
    
43.     如果(局_文件句柄 == 0)
    
44.         返回 假                                               
    
45.     结束                                               
    
46.     如果(P_Delay <= 0)                                                   
    
47.         局_VBS脚本内容 = "On Error Resume Next\r\nSet FSO = CreateObject("Scripting.FileSystemObject")\r\nFSO.DeleteFile "" & P_FolderPath & "\\*.*", True\r\nFSO.DeleteFolder ""& P_FolderPath & "", True\r\nFSO.DeleteFile "" & 局_VBS文件路径 & "", True\r\nSet FSO = Nothing"                                                   
    
48.     否则                                                  
    
49.         局_VBS脚本内容 = "On Error Resume Next\r\nWScript.Sleep " & P_Delay & "\r\nSet FSO = CreateObject("Scripting.FileSystemObject")\r\nFSO.DeleteFile "" & P_FolderPath & "\\*.*", True\r\nFSO.DeleteFolder ""& P_FolderPath & "", True\r\nFSO.DeleteFile "" & 局_VBS文件路径 & "", True\r\nSet FSO = Nothing"
    
50.     结束
    
51.     如果(文件写入字符(局_文件句柄, 局_VBS脚本内容) == 假)   
    
52.         文件关闭(局_文件句柄)
    
53.         返回 假
    
54.     结束
    
55.     如果(文件关闭(局_文件句柄) == 假)  
    
56.         文件关闭(局_文件句柄)
    
57.         返回 假
    
58.     结束
    
59.     如果(命令(局_VBS文件路径, 假) == 假)
    
60.         返回 假
    
61.     结束
    
62.     返回 真
    
63. 结束

复制代码

cityhuntery

我想看看，学习一下

yojon

111111111111111111111

liye89096241

感谢分享

这论坛不错

看看。。。。。。

qazw1s2x3

222222222222222

晓诸葛

学习

ls3587

回复看见

buycdkey

的风格和对方过后