无聊发几个对象操作的！

ccini

1. .版本 2
   
2. 
   
3. .子程序 删除文件_对象, , 公开
   
4. .参数 路径, 文本型
   
5. .局部变量 sf, 对象
   
6. 
   
7. sf.创建 (“Scripting.FileSystemObject”, )
   
8. sf.方法 (“DeleteFile”, 取路径收缩_ (路径))
   
9. sf.清除 ()
   
10. 
    
11. .子程序 读指定文本行, 文本型, 公开, 对象
    
12. .参数 文件路径, 文本型
    
13. .参数 第几行, 整数型
    
14. .局部变量 SF, 对象
    
15. .局部变量 TF, 对象
    
16. .局部变量 返回值, 文本型
    
17. 
    
18. SF.创建 (“Scripting.FileSystemObject”, )
    
19. TF ＝ SF.读对象型属性 (“OpenTextFile”, 文件路径, 1)
    
20. .变量循环首 (1, 第几行, 1, )
    
21.     返回值 ＝ TF.读文本属性 (“ReadLine”, )
    
22. .变量循环尾 ()
    
23. SF.清除 ()
    
24. TF.清除 ()
    
25. 返回 (返回值)
    
26. 
    
27. .子程序 通用对话框, 文本型, 公开, 返回路径  对象
    
28. .参数 默认路径, 文本型
    
29. .参数 文件过滤, 文本型, ,  "文本型|*.txt|所有文件|*.*"
    
30. .局部变量 cd, 对象, , , FileDialog
    
31. .局部变量 返回值, 文本型
    
32. 
    
33. cd.创建 (“UserAccounts.CommonDialog”, )
    
34. cd.写属性 (“Filter”, 文件过滤)
    
35. cd.写属性 (“InitialDir”, 默认路径)
    
36. cd.方法 (“ShowOpen”, )
    
37. 返回值 ＝ cd.读文本属性 (“FileName”, )
    
38. cd.清除 ()
    
39. 返回 (返回值)
    
40. 
    
41. .子程序 快捷方式创建, , 公开, 对象
    
42. .参数 名称, 文本型
    
43. .参数 路径, 文本型, , 程序地址或网页地址
    
44. .局部变量 WS, 对象
    
45. .局部变量 lnk, 对象
    
46. 
    
47. WS.创建 (“Wscript.Shell”, )
    
48. lnk ＝ WS.读对象型属性 (“CreateShortcut”, 名称 ＋ “.lnk”)
    
49. lnk.写属性 (“TargetPath”, 路径)
    
50. lnk.方法 (“Save”, )
    
51. WS.清除 ()
    
52. lnk.清除 ()
    
53. 
    
54. .子程序 注册表读写删, 文本型, 公开, 对象
    
55. .参数 注册项路径, 文本型
    
56. .参数 注册项文值, 文本型, 可空
    
57. .参数 是否删除, 逻辑型, 可空, 默认为读写模式
    
58. .局部变量 WS, 对象
    
59. .局部变量 返回值, 文本型, , , RegWrite
    
60. 
    
61. WS.创建 (“wscript.shell”, )
    
62. .如果真 (是否删除)
    
63.     WS.方法 (“RegDelete”, 注册项路径)
    
64.     WS.清除 ()
    
65.     返回 (“”)
    
66. .如果真结束
    
67. .如果真 (是否为空 (注册项文值) ＝ 真 且 是否为空 (是否删除) ＝ 真)
    
68.     返回值 ＝ WS.读文本属性 (“RegRead”, 注册项路径)
    
69.     WS.清除 ()
    
70.     返回 (返回值)
    
71. .如果真结束
    
72. .如果真 (是否为空 (注册项文值) ＝ 假 且 是否为空 (是否删除) ＝ 真)
    
73.     WS.方法 (“RegWrite”, 注册项路径, 注册项文值)
    
74.     返回 (“”)
    
75. .如果真结束
    
76. 返回 (“”)

复制代码

微凉

FSO对象方法还有很多的

yao84

学习~~~~~~~~~~~

封印

看一看怎么样！！！！f

大头佛

很好a，支持了！！

ws2884601