用fso建立任意层深的子目录

cnangel

作者:狗狗儿
FileSystemObject中有一个CreateFolder方法可以用来建立目录,但只能建立一层的目??
当我们想建
立很多层的目录(如/web/bbs/include/bak)时这个方法就无能为力了.为解决这个问题, 我写
了个BuildPath(strPath)过程,可以完美的解决这个问题.代码如下:

1. Sub BuildPath(strPath)
2. On Error Resume Next
3. Dim nPos,fso,strFolder
4. nPos = Len(Server.MapPath("/"))
5. Set fso = CreateObject("Scripting.FileSystemObject")
6. Do
7.    nPos = InStr(nPos + 1,strPath,"/")
8.    If nPos = 0 Then
9.       strFolder = strPath
10.    Else
11.       strFolder = Left(strPath,nPos - 1)
12.    End If
13.    If fso.FolderExists(strFolder) Then
14.        Response.Write "Err: Folder " & strFolder & " Existed.<br>"
15.    Else
16.        fso.CreateFolder(strFolder)
17.        If Err Then
18.           Response.Write err.description
19.        Else
20.           Response.Write "Folder " & strFolder & " Created.<br>"
21.        End If
22. End If
23. Loop Until nPos = 0
25. End Sub
28. asp实例:
30. <%
31. 'BuildPath.asp
32. 'Written By Googler
33. 'www.Googler.uni.cc
35. Option Explicit
36. On Error Resume Next
37. Dim StrPath
38. strPath = Request("strPath")
39. If strPath <> "" Then
40. BuildPath Replace(Server.MapPath(strPath),"\","/")
41. End If
42. '---------------------------------------------------------------------------
43. Sub BuildPath(strPath)
44. On Error Resume Next
45. Dim nPos,fso,strFolder
46. nPos = Len(Server.MapPath("/"))
47. Set fso = CreateObject("Scripting.FileSystemObject")
48. Do
49.    nPos = InStr(nPos + 1,strPath,"/")
50.    If nPos = 0 Then
51.       strFolder = strPath
52.    Else
53.       strFolder = Left(strPath,nPos - 1)
54.    End If
55.    If fso.FolderExists(strFolder) Then
56.        Response.Write "Err: Folder " & strFolder & " Existed.<br>"
57.    Else
58.        fso.CreateFolder(strFolder)
59.        If Err Then
60.           Response.Write err.description
61.        Else
62.           Response.Write "Folder " & strFolder & " Created.<br>"
63.        End If
64. End If
65. Loop Until nPos = 0
66. End Sub
67. %>
68. <br>
69. <hr>
70. <form method=get>
71. <input type=text name=strPath Lenght=15>
72. <input type=submit value=Create...>
73. </form>

复制代码