|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。FSO中有个办法是CreateFolder,可是这个办法只能在其上一级文件夹存在的情形下创立新的文件夹,以是我就写了一个主动创立多级文件夹的函数,在天生静态页面等方面利用十分便利.函数:
--------------------------------
主动创立指定的多级文件夹
strPath为相对路径
援用请保存版权
byim286_Anjer
2005-4-3
FunctionAutoCreateFolder(strPath)AsBoolean
OnErrorResumeNext
DimastrPath,ulngPath,i,strTmpPath
DimobjFSO
IfInStr(strPath,"")<=0OrInStr(strPath,":")<=0Then
AutoCreateFolder=False
ExitFunction
EndIf
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
IfobjFSO.FolderExists(strPath)Then
AutoCreateFolder=True
ExitFunction
EndIf
astrPath=Split(strPath,"")
ulngPath=UBound(astrPath)
strTmpPath=""
Fori=0ToulngPath
strTmpPath=strTmpPath&astrPath(i)&""
IfNotobjFSO.FolderExists(strTmpPath)Then
创立
objFSO.CreateFolder(strTmpPath)
EndIf
Next
SetobjFSO=Nothing
IfErr=0Then
AutoCreateFolder=True
Else
AutoCreateFolder=False
EndIf
EndFunction
挪用办法:
MyPath="C:ac"
IfAutoCreateFolder(MyPath)Then
Response.Write"创立文件夹乐成"
Else
Response.Write"创立文件夹失利"
EndIf
ASP脚本是采用明文(plaintext)方式来编写的。 |
|