服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - ASP教程 - asp实现检查目录是否存在与建立目录的函数

asp实现检查目录是否存在与建立目录的函数

2019-10-09 14:14asp代码网 ASP教程

asp实现检查目录是否存在与建立目录的函数

  1. '-------------------------  
  2. '--检查目录是否存在  
  3. '----------------------  
  4. Function CheckDir(byval FolderPath)  
  5.     dim fso  
  6.     Set fso = Server.CreateObject("Scripting.FileSystemObject")  
  7.     If fso.FolderExists(Server.MapPath(folderpath)) then  
  8.     '存在  
  9.         CheckDir = True  
  10.     Else  
  11.     '不存在  
  12.         CheckDir = False  
  13.     End if  
  14.     Set fso = nothing  
  15. End Function  
  16.  
  17. '-------------------------  
  18. '--建立目录  
  19. '----------------------  
  20. Function MakeNewsDir(byval foldername)  
  21.     dim fso  
  22.     Set fso = Server.CreateObject("Scripting.FileSystemObject")  
  23.         fso.CreateFolder(Server.MapPath(foldername))  
  24.         If fso.FolderExists(Server.MapPath(foldername)) Then  
  25.            MakeNewsDir = True  
  26.         Else  
  27.            MakeNewsDir = False  
  28.         End If  
  29.     Set fso = nothing  
  30. End Function 

延伸 · 阅读

精彩推荐