asp程序用VBSCRIPT建立目录文件夹的函数方法

<%   
Function CreateFolder(strFolderName)   
SET FSO=Server.CreateObject("Scripting.FileSystemObject")   
IF(FSO.FolderExists(strFolderName) = False)THEN   
FSO.CreateFolder(strFolderName)   
END IF   
SET FSO=NOTHING   
END Function   
%>  

使用时，直接createfolder(文件夹)是否为true即可。