易语言实现判断系统Temp/TMP临时目录是否可正常创建写入删除临时文件 (返回逻辑型)

CNWTEPRG

1. 
   
2. 
   
3. 
   
4. .版本 2
   
5. 
   
6. .程序集 程序集1
   
7. 
   
8. .子程序 _启动子程序, 整数型
   
9. 
   
10. 
    
11. _临时子程序 ()
    
12. 返回 (0)
    
13. 
    
14. .子程序 _临时子程序
    
15. 
    
16. 
    
17. .如果真 (临时目录是否可写 () ＝ 假)
    
18.     信息框 (“临时目录不能写入数据，请尝试重启系统！”, 16, , )
    
19. .如果真结束
    
20. 
    
21. 
    
22. .子程序 临时目录是否可写, 逻辑型, 公开
    
23. .参数 目录名, 文本型, 可空, 可以被省略。如果省略本参数，默认将使用系统的标准临时目录。
    
24. .局部变量 临时文件名, 文本型
    
25. 
    
26. .如果 (是否为空 (目录名))
    
27.     临时文件名 ＝ 取临时文件名 ()
    
28. .否则
    
29.     临时文件名 ＝ 取临时文件名 (目录名)
    
30. .如果结束
    
31. .判断开始 (文件是否存在 (临时文件名))
    
32.     返回 (假)
    
33. .判断 (写到文件 (临时文件名, 到字节集 (临时文件名)) ＝ 假)
    
34.     返回 (假)
    
35. .判断 (文件是否存在 (临时文件名) ＝ 假)
    
36.     返回 (假)
    
37. .判断 (置文件属性 (临时文件名, 39) ＝ 假)
    
38.     返回 (假)
    
39. .判断 (置文件属性 (临时文件名, 0) ＝ 假)
    
40.     返回 (假)
    
41. .判断 (删除文件 (临时文件名) ＝ 假)
    
42.     返回 (假)
    
43. .判断 (文件是否存在 (临时文件名))
    
44.     返回 (假)
    
45. .默认
    
46. 
    
47. .判断结束
    
48. 返回 (真)
    
49. 
    
50. 
    

复制代码