fso应用中的几个小函数

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

1. <% 
2. '功能:判断文件名是否合法 
3. 'isFileName [filename] 
4. '文件名不能包含下列任何字符之一 
5. ' / / : * ? " < > | 
6. Function isFileName(sFileName) 
7. Dim sErrorStr, i 
8. isFileName = TRUE 
9. sErrorStr = Array("/", "/", ":", "*", "?", """", "<", ">", "|") 
10. If Len(sFileName & "") = 0 Then isFileName = FALSE : Exit Function 
11. For i = 0 To 8 
12. If InStr(sFileName, sErrorStr(i)) > 0 Then 
13. isFileName = FALSE 
14. End If 
15. Next 
16. End Function 
17. %> 
22. -------------------------------------------------------------------------------- 
26. <% 
27. '功能:删除一个目录。除目录本身外，还将删除指定目录下的所有子目录和文件。用于删除目录树。 
28. 'RD [Drive:]Path 
29. '支持删除多级目录，支持相对路径和绝对路径。 
30. '支持用“...”指定父目录的父目录。 
31. ''需要PATH函数在下面 
32. Function RD(ByVal sPath) 
33. On Error Resume Next 
34. Dim oFSO 
35. sPath = Path(sPath) '//此处需要PATH函数 
36. Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 
37. If oFSO.FolderExists(sPath) Then 
38. oFSO.DeleteFolder sPath, True 
39. RD = True 
40. End If 
41. Set oFSO = Nothing 
42. If Err.Number > 0 Then 
43. Err.Clear() 
44. RD = False 
45. Else 
46. RD = True 
47. End If 
48. End Function 
49. %> 
54. -------------------------------------------------------------------------------- 
58. <% 
59. '功能:创建目录。 
60. 'MD [Drive:]Path 
61. '支持创建多级目录，支持相对路径和绝对路径。 
62. '支持用“...”指定父目录的父目录。 
64. '需要PATH函数在下面 
66. Function MD(sPath) 
67. On Error Resume Next 
68. Dim aPath, iPath, i, sTmpPath 
69. Dim oFSO 
70. sPath = Path(sPath) '//此处需要PATH函数 
71. Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 
72. If oFSO.FolderExists(sPath) Then MD = True : Exit Function 
73. aPath = Split(sPath, "/") 
74. iPath = UBound(aPath) 
75. sTmpPath = "" 
76. For i = 0 To iPath 
77. sTmpPathsTmpPath = sTmpPath & aPath(i) & "/" 
78. If Not oFSO.FolderExists(sTmpPath) Then 
79. oFSO.CreateFolder(sTmpPath) 
80. End If 
81. Next 
82. Set oFSO = Nothing 
83. If Err.Number > 0 Then 
84. Err.Clear() 
85. MD = False 
86. Else 
87. MD = True 
88. End If 
89. End Function 
90. %> 
95. -------------------------------------------------------------------------------- 
99. <% 
100. '功能:计算目录绝对路径。 
101. 'PATH [Drive:]Path 
102. '支持多级目录，支持相对路径和绝对路径。 
103. '支持用“...”指定父目录的父目录。 
106. Function Path(ByVal sPath) 
107. On Error Resume Next 
108. If Len(sPath&"") = 0 Then sPath = "./" 
109. If Right(sPath, 1) = ":" Then sPathsPath = sPath & "/" 
110. sPath = Replace(sPath, "/", "/") 
111. sPath = ReplaceAll(sPath, "//", "/", False) 
112. sPath = ReplaceAll(sPath, "...", "../..", False) 
113. If (InStr(sPath, ":") > 0) Then 
114. sPathsPath = sPath 
115. Else 
116. sPath = Server.Mappath(sPath) 
117. End If 
118. Path = sPath 
119. End Function 
120. %> 
124. -------------------------------------------------------------------------------- 
127. <% 
128. '功能:判断文件是否已存在。 
129. 'IsFileExist(文件名) 
132. Public Function IsFileExist(ByVal sFileName) 
133. On Error Resume Next 
134. Dim oFSO 
135. sFileName = PATH(sFileName) 
136. Set oFSO = CreateObject("Scripting.FileSystemObject") 
137. IsFileExist = oFSO.FileExists(sFileName) 
138. Set oFSO = Nothing 
139. End Function 
140. %> 
144. -------------------------------------------------------------------------------- 
147. <% 
148. '功能:判断文件夹是否已存在。 
149. 'IsFolderExist(文件名) 
151. Public Function IsFolderExist(ByVal sFolderName) 
152. On Error Resume Next 
153. Dim oFSO 
154. sFolderName = PATH(sFolderName) 
155. Set oFSO = CreateObject("Scripting.FileSystemObject") 
156. IsFolderExist = oFSO.FolderExists(sFolderName) 
157. Set oFSO = Nothing 
158. End Function 
159. %> 
163. -------------------------------------------------------------------------------- 
166. <% 
167. '功能:创建十进制文本文件。 
168. 'CreateTextFile(文件内容,文件名) 
169. '文件名支持相对路径和绝对路径。 
170. '支持用“...”指定父目录的父目录。 
172. Function CreateTextFile (ByVal sText, ByVal sFileName) 
173. On Error Resume Next 
174. sFileName = Path(sFileName) 
175. Set oFSO = CreateObject("Scripting.FileSystemObject") 
176. Set oWrite = oFSO.OpenTextFile(sFileName, 2, True) 
177. oWrite.Write sText 
178. oWrite.Close 
179. Set oFSO = Nothing 
180. Set oWrite = Nothing 
181. If Err.Number > 0 Then 
182. Err.Clear() 
183. CreateTextFile = False 
184. Else 
185. CreateTextFile = True 
186. End If 
187. End Function 

http://www.corange.cn/archives/2008/10/1880.html

 

 

<script type=text/javascript> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type=text/javascript> </script>