当前位置:96看吧 > 技术文档 > ASP编程 > ASP函数FSO创建多级文件夹

ASP函数FSO创建多级文件夹

时间:2010/04/14
作者:MaWenDong
来源:96看吧
查看:
标签:asp函数

'=======================================================================
'AutoCreateFolder(strPath)  自动创建指定的多级文件夹
'=======================================================================
'自动创建指定的多级文件夹
'strPath为绝对路径
'调用方法:
'MyPath = "C:\a\b\c\"
'If AutoCreateFolder(MyPath) Then
' Response.Write "创建文件夹成功"
'Else
' Response.Write "创建文件夹失败"
'End If
 
Function AutoCreateFolder(strPath) ' As Boolean
 On Error Resume Next
 Dim astrPath, ulngPath, i, strTmpPath
 Dim objFSO
 If InStr(strPath, "\") <=0 Or InStr(strPath, ":") <= 0 Then
  AutoCreateFolder = False
  Exit Function
 End If
 Set objFSO = Server.CreateObject("scripting.FileSystemObject")
  If objFSO.FolderExists(strPath) Then
   AutoCreateFolder = True
   Exit Function
  End If
  astrPath = Split(strPath, "\")
  ulngPath = UBound(astrPath)
  strTmpPath = ""
  For i = 0 To ulngPath
   strTmpPath = strTmpPath & astrPath(i) & "\"
   If Not objFSO.FolderExists(strTmpPath) Then
    ' 创建
    objFSO.CreateFolder(strTmpPath)
   End If
  Next
 Set objFSO = Nothing
 If Err = 0 Then
  AutoCreateFolder = True
 Else
  AutoCreateFolder = False
 End If
End Function
 

上一篇:全面优化ASP应用程序的性能
下一篇:简单的ASP分页程序
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门