1. <%  
2. '創(chuàng)建多級目錄，可以創(chuàng)建不存在的根目錄  
3. '參數(shù)：要?jiǎng)?chuàng)建的目錄名稱，可以是多級  
4. '返回邏輯值，True成功，F(xiàn)alse失敗  
5. '創(chuàng)建目錄的根目錄從當(dāng)前目錄開始  
6. '---------------------------------------------------  
7.  
8. Function CreateMultiFolder(ByVal CFolder)  
9.     Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder  
10.     Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo  
11.     BlInfo = False  
12.     CreateFolder = CFolder  
13.     On Error Resume Next  
14.     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  
15.     If Err Then  
16.         Err.Clear()  
17.         Exit Function  
18.     End If  
19.     CreateFolder = Replace(CreateFolder, "", "/")  
20.     If Left(CreateFolder, 1) = "/" Then  
21.         CreateFolder = Right(CreateFolder, Len(CreateFolder) -1)  
22.     End If  
23.     If Right(CreateFolder, 1) = "/" Then  
24.         CreateFolder = Left(CreateFolder, Len(CreateFolder) -1)  
25.     End If  
26.     CreateFolderArray = Split(CreateFolder, "/")  
27.     For i = 0 To UBound(CreateFolderArray)  
28.         CreateFolderSub = ""  
29.         For ii = 0 To i  
30.             CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/"  
31.         Next  
32.         PhCreateFolderSub = Server.MapPath(CreateFolderSub)  
33.         If Not objFSO.FolderExists(PhCreateFolderSub) Then  
34.             objFSO.CreateFolder(PhCreateFolderSub)  
35.         End If  
36.     Next  
37.     If Err Then  
38.         Err.Clear()  
39.     Else  
40.         BlInfo = True  
41.     End If  
42.     CreateMultiFolder = BlInfo  
43. End Function  
44. %>  

使用方法：

1. <% Response.Write CreateMultiFolder("/upload/2006/11/11/") &"<br>" %> 

'函數(shù)的返回值為True(成功)或False(失敗，可能是主機(jī)不支持FSO功能)