ASP如何检测某文件夹是否存在,不存在则自动创建

来源:脚本之家  责任编辑:小易  

是否存在 mkdirs创建目录 createNewFile()创建文件 多看看API文档 boolean exists() 测试此抽象路径名表示的文件或目录是否存在。 createNewFile() 当且仅当不存在具有

直接给大家分享一下脚本之家测试正常可以使用的代码,并且支持多级目录创建

/** * * @param path 文件夹路径 */ public static void isExist(String path) { File file = new File(path); //判断文件夹是否存在,如果不存在则创建文件夹

代码一

函数,但存在文件夹是否为空的问题 Private Sub Command1_Click() On Error GoTo ProErr MkDir "c:\a" GoTo L ProErr: MsgBox "此文件夹已存在!&

Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo BlInfo = False CreateFolder = CFolder On Error Resume Next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If Err Then Err.Clear() Exit Function End If If Right(CreateFolder, 1) = "/" Then CreateFolder = Left(CreateFolder, Len(CreateFolder) -1) End If CreateFolderArray = Split(CreateFolder, "/") For i = 0 To UBound(CreateFolderArray) CreateFolderSub = "" For ii = 0 To i CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/" Next PhCreateFolderSub = Server.MapPath(CreateFolderSub) If Not objFSO.FolderExists(PhCreateFolderSub) Then objFSO.CreateFolder(PhCreateFolderSub) End If Next If Err Then Err.Clear() Else BlInfo = True End If CreateMultiFolder = BlInfo End Function

this.src='另一张确实存在的图片名';" /> 以上是用Javascript实现的,是在浏览器端实现的,不占用服务器资源。 如果要通过ASP在服务器端实现,则这样: &

使用方法:

<% Set fso = CreateObject("Scripting.FileSystemObject") if fso.fileexists(server.mappath("AA/ss.jpg")) then response.write "<img src=aa/ss

CreateMultiFolder("/202003/tools/")

1234$path = date ( 'Ymd'); // 接收文件目录    if (! file_exists ( $path )) {

代码二、测试ok

DirectoryInfo mydir = new DirectoryInfo(dirPath1); if ( mydir.Exists ) 好像是这么个属性吧。

'自动创建多极目录 'code by jb51 reterry function createit(path) dim fsofo,cinfo,thepath,thepatharray dim i,ii,binfo binfo=false thepath=path set fsofo=createobject("scripting.filesystemobject") if err then err.clear exit function end if thepath=replace(thepath,"\","/") if left(thepath,1)="/" then thepath=right(thepath,len(thepath)-1) end if if right(thepath,1)="/" then thepath=left(thepath,len(thepath)-1) end if thepatharray=split(thepath,"/") for i=0 to ubound(thepatharray) createfoldersub1=createfoldersub1&thepatharray(i)&"/" createfoldersub=server.mappath(createfoldersub1) if not fsofo.folderexists(createfoldersub) then fsofo.createfolder(createfoldersub) end if next if err then err.clear else binfo=true end if createit=binfo end function

File file=new File("D:/ing.txt"); if (!file.exists()) { file.createNewFile(); } 判断否存存D盘新建

测试代码

试试吧,图中已经标出来了主要控件

createit("/202004/tools/")

if判断时 [ ]与里面的语句要有个空格: if [ -d "$dire" ]; then 修改后测试已通过. 这个脚本是在windows下写的么?如果是, 需要注意换行符的问题.

以上代码如果无法运行,请检查iis运行用户的权限是否有写功能。今天测试的时候默认iis7.5下是无法运行的。

存在!');</script>" Else fo.Createfolder(userfolder) 创建用户文件夹 End if 2.添 "userpage.asp" 转向用户页面 end if 大体思想是这样的,你自己看看是不是

下面的实现代码功能性简单,适合学习

) //如果存在,返回该文件夹所在的物理路径 { //将该物理路径转为虚拟路径 Response.Write(GetVirtualPath(path, Request.ApplicationPath)); } else { //没有找到路径,创建新

ASP如何检测某文件夹是否存在,不存在则自动创建 folder=server.mappath("/imagess")  Set fso = CreateObject("Scripting.FileSystemObject")  if fso.fileexists(Server.mappath(filepath)) then  respnse.write("都有了还建什么建")  else  fso.createfolder(folder)  end if  Set fso = nothing Dim objFSO  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  If objFSO.FolderExists(Server.MapPath(SavePath))=false Then  objFSO.CreateFolder(Server.MapPath(SavePath))  End If folder=server.mappath("/imagess")  Set fso = CreateObject("Scripting.FileSystemObject")  if fso.fileexists(Server.mappath(filepath)) then  respnse.write("都有了还建什么建")  else  fso.createfolder(folder)  end if  Set fso = nothing  

1.txt"),CFile::modeCreate|CFile::modeNoTruncate|CFile::modeReadWrite); CFile::modeNoTruncate和modeCreate一起使用: 如果文件不存在,创建一个新文件; 否则如果该

都不完善,我想楼主的意思是创建无极深度目录吧,给个我写的: 

'创建新文件夹(允许无级创建)1:35 2005-1-31 Public Function CreateFolder(FolderPath) Dim sObjFSO Dim arrFolder Dim i Set sObjFSO = Server.CreateObject("Scripting.FileSystemObject") FolderPath = Replace(FolderPath,"\","/") arrFolder = Split(FolderPath,"/") On Error Resume Next For i = 0 To UBound(arrFolder) If i > 0 Then arrFolder(i) = arrFolder(i-1) & "/" & arrFolder(i) If Not sObjFSO.FolderExists(arrFolder(i)) Then sObjFSO.CreateFolder(arrFolder(i)) End If Next CreateFolder = True If Err.number <> 0 Then CreateFolder = False Err.Clear End If End Function

创建文件夹

dim fso,SavePath SavePath=server.MapPath(".\"&imagefile&"\"&username&"\"&specialname&"") set fso = server.CreateObject("scripting.filesystemobject") if fso.FolderExists(SavePath)=false then fso.createfolder(SavePath) end if set fso=nothing

删除文件夹

dim fso,SavePath SavePath=server.MapPath(".\"&imagefile&"\"&username&"\"&specialname&"") set fso = server.CreateObject("scripting.filesystemobject") if fso.FolderExists(SavePath)=true then fso.deletefolder(SavePath) end if set fso=nothing

复制文件

dim fso set fso=server.CreateObject("scripting.filesystemobject") sub copyfiles(path,path2) set mycopy=fso.getfile(path) response.flush() mycopy.copy path2 response.write("<b>installed success !&nbsp;&nbsp;</b>"&path2&"<br>") response.Flush() end sub call copyfiles(Server.MapPath("../无标题2.bmp"),"D:\网站项目\photo\aspupload\07_images\")

下面是其他网友的补充 

Public Function CheckAndCreateFolder(FolderName)   fldr = Server.Mappath(FolderName)   Set fso = CreateObject("Scripting.FileSystemObject")   If Not fso.FolderExists(fldr) Then   fso.CreateFolder(fldr)   End If   Set fso = Nothing End Function

 检查文件夹是否存在,不存在则创建文件夹,该函数无返回值。

例:CheckAndCreateFolder("ASP")

检查当前目录下是否存在ASP文件夹,不存在则创建文件夹ASP ,缺点是不支持多级目录创建。

 asp关于fso函数,文件与文件夹的相关操作用得到

'//提供文件处理通用接口 Class FileSystemObject '/* ' * 功能描述:删除文件 ' * 输入参数:FileName——文件相对路径 '*/ Public Function DelFile(FileName) Dim getPath getPath="/" SET Fso=Server.CreateObject("Scripting.FileSystemObject") getPath=Replace(getPath&FileName,"//","/") if Fso.FileExists(Server.MapPath(getPath))=True then   Fso.DeleteFile Server.mappath(getPath) End if Set Fso=Nothing End Function '/* ' * 功能描述:判断路径是否存在,如不存在则创建 ' * 输入参数:SaveFilePath——相对路径,如:/UploadFiles/NewsFiles '*/ Public Function CreatePath(SaveFilePath) Dim DeclarePath,FileObj,FilePath DeclarePath="/" Set FileObj=Server.CreateObject("Scripting.FileSystemObject") For Each FilePath in split(SaveFilePath,"/")   DeclarePath=Replace(DeclarePath&FilePath&"/","//","/")   if FileObj.FolderExists(Server.MapPath(DeclarePath))=false then     FileObj.CreateFolder(Server.MapPath(DeclarePath))'创建文件夹   end if Next Set FileObj=nothing CreatePath=DeclarePath End Function '/* ' * 功能描述:重命名文件夹 ' * 输入参数:GetPath——文件夹路径 ' * 输入参数:OldName——旧的文件夹名称 ' * 输入参数:NewName——新的文件夹名称 '*/ Public Function RenFolder(GetPath,OldName,NewName) Dim Fso if OldName="" or NewName="" then   exit Function else   if OldName=NewName then exit Function end if SET Fso=Server.CreateObject("Scripting.FileSystemObject") if Fso.FolderExists(Server.MapPath(GetPath&NewName)) then   response.write"<script language=javascript>alert('目录已经存在!!');this.history.go(-1);</script>"   response.end() end if '//旧的文件夹不存在,则创建 if Not Fso.FolderExists(Server.MapPath(GetPath&OldName)) Then   CreatePath(GetPath&OldName) End if Fso.MoveFolder Server.MapPath(GetPath&OldName),Server.MapPath(GetPath&NewName) set Fso=nothing 'response.redirect request.ServerVariables("HTTP_REFERER") End Function '/* ' * 功能描述:保存当前文件 ' * 输入参数:GetPath——文件路径 ' * 输入参数:GetContent——保存的内容 ' * 输入参数:GetFile——保存的文件名 '*/ Public Function SaveEditFile(GetPath,GetContent,GetFile) if GetContent="" or GetFile="" then exit Function SET Fso=Server.CreateObject("Scripting.FileSystemObject") set CF=Fso.CreateTextFile(Server.mappath(GetPath&GetFile),true) CF.write GetContent CF.Close set CF=nothing set Fso=nothing 'response.redirect request.ServerVariables("HTTP_REFERER") End Function End Class

以上就是ASP如何检测某文件夹是否存在,不存在则自动创建的详细内容,更多关于ASP如何检测某文件夹是否存在的资料请关注脚本之家其它相关文章!

扩展阅读,根据您访问的内容系统为您准备了以下内容,希望对您有帮助。

java怎样创建不存在文件夹下的文件 file

import java.io.File;

import java.io.IOException;

public class Admin {

public static void main(String... args) {

String path0 = "D:/aa/bb/cc/";

String path1 = "D:/aa/bb/cc/kkk.java";

File f = new File(path0);

// 创建文件夹

if (!f.exists()) {

f.mkdirs();

}

f = new File(path1);

// 创建文件

if (!f.exists()) {

try {

f.createNewFile();

} catch (IOException e) {

e.printStackTrace();

}

}

}

}

批处理 判断一个文件夹是否存在,不存在则创建,求大神指导。。谢谢

IF NOT EXIST "G:\%DATE:~0,10%tst" MD "G:\%DATE:~0,10%tst"备注 命令复制并保存文本文档缀名改bat 使用
或者 运行面 输入 cmd
再点右键 粘贴命令 并命令 适用于 2014-01-01tst 格式文件夹 格式间请注明

易语言怎么检查文件夹是否存在如果不存在创建一个指定名字的文件夹

.版本 2.支持库 shell.如果 (文件是否存在 (“d:\a”)) 执行 (, “d:\a”, , , ).否则 创建目录 (“d:\a”)

在C++中如何判断文件夹是否存在,不存在的话创建文件夹

你真能重复问问题

ASP 怎么判断文件是否存在

这段代码加在保存之前<% 'ASP判断文件是否存在以及删除文件实例代码dim htmlFilefshtmlFile="../book_show.html"htmlFile=server.MapPath(htmlFile) Set fs=Server.CreateObject("Scripting.FileSystemObject")If fs.FileExists(htmlFile) Then '判断文件是否存在 fs.DeleteFile htmlFile,true '如果文件存在,则删除文件end ifSet fs=Nothing%>

  • 本文相关:
  • asp中创建多级目录的两段代码
  • asp http 500错误 常见问题分析
  • excel连接字符串中的hdr、imex参数详解
  • asp基础入门第九篇(global.asa文件的使用)
  • asp access实现网站计数器(访问量)
  • asp 实现当有新信息时播放语音提示的效果
  • sql查询语句通配符与access模糊查询like的解决方法
  • 透彻掌握asp分页技术很详细的分析
  • asp xml编程objxml.async = false
  • asp随机数 随机产生n位由数字和字母组成的密码
  • asp加密解密函数decrypt
  • java怎样创建不存在文件夹下的文件 file
  • 批处理 判断一个文件夹是否存在,不存在则创建,求大神指导。。...
  • 易语言怎么检查文件夹是否存在如果不存在创建一个指定名字的...
  • 在C++中如何判断文件夹是否存在,不存在的话创建文件夹
  • ASP 怎么判断文件是否存在
  • Java判断文件夹是否存在,不存在就创建
  • java如何判断一个文件夹是否存在
  • vb6.0 如何判断本程序下的a文件夹是否存在,如果不存在,就创建...
  • 请问下asp高手可以检测文件是否存在并进行判断吗?
  • ASP中怎样判断某一路径下是否存在某个文件?
  • php判断文件夹是否存在不存在则创建
  • C# 如何判断指定路径的文件夹是否存在
  • java里如何判断一个文件是否存在,如果不存在就创建一个,如果...
  • labview 8.5环境下如何检测文件夹是否存在,如果存在朝该文件...
  • linux中的shell脚本创建文件夹,若文件夹存在,则删除重新创建,若...
  • ASP:有一个用户要写入,检查是否存在该用户存在则跳出不存在...
  • .net 判断某文件夹是否存在
  • c 判断一个文件夹是否存在不存在创建
  • #通过ftp判断服务器上指定目录下面的文件夹是否存在,不存在就...
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2017 www.zgxue.com All Rights Reserved