ASP FSO文件操作函数代码（复制文件、重命名文件、删除文件、替换字符串等）

admin

2011年12月19日 1:17 本文热度 3231

FSO的意思是FileSystemObject，即文件系统对象。FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象，用来操作文件和文件夹十分方便
FSO文件（File）对象属性
DateCreated 返回该文件夹的创建日期和时间
DateLastAccessed 返回最后一次访问该文件的日期和时间
DateLastModified 返回最后一次修改该文件的日期和时间
Drive 返回该文件所在的驱动器的Drive对象
Name 设定或返回文件的名字
ParentFolder 返回该文件的父文件夹的Folder对象
Path 返回文件的绝对路径，可使用长文件名
ShortName 返回DOS风格的8.3形式的文件名
ShortPath 返回DOS风格的8.3形式的文件绝对路径
Size 返回该文件的大小（字节）
Type 如果可能，返回一个文件类型的说明字符串
FSO文件（File）对象方法
FSO文件对象方法用途
CopyFile 拷贝一个或者多个文件到新路径
CreateTextFile 创建文件并且返回一个TextStream对象
DeleteFile 删除一个文件
OpenTextFile 打开文件并且返回TextStream对象，以便读取或者追加

重命名文件：
复制代码代码如下:
Function reName(sourceName,destName)
dim oFso,oFile
set oFso=server.createobject("Scripting.FileSystemObject")
set oFile=oFso.getFile(Server.mappath(sourceName))
oFile.Name=destName
Set oFso=Nothing
Set oFile=Nothing
End Function

删除文件：
复制代码代码如下:
Function FSOdel(fileName)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
f=server.MapPath(fileName)
if fso.FileExists(f) then
fso.DeleteFile f,true
end if
set f = nothing
set fso = nothing
End Function

替换文件中的字符串:
复制代码代码如下:
Function FSOreplace(fileName,Target,repString)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,repString)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(fileName),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

'*******************************************************
'函数名：CreateFolder(sPath)
'作用: 创建目录
'参数：sPath : 创建的相对目录路径
'返回值：成功 true , 失败 false
'*******************************************************
'response.Write createfolder("/dgsunshine/UploadFile/demo1/")
Function CreateFolder(sPath)
On Error Resume Next

Dim Fso,Arrfolder,Folder,i,j

If sPath="" then
CreateFolder = False
Exit Function
End If

If Left(sPath,1) = "/" Then
Folder = "/"
sPath = Mid(sPath,2,Len(sPath))
Else
Folder = "./"
End If

if Right(sPath,1) = "/" then sPath = Left(sPath,Len(sPath)-1)

ArrFolder = Split(sPath,"/")

Set Fso = Server.CreateObject("Scripting.FileSystemObject")

For i = 0 To Ubound(ArrFolder)
If i = 0 then
Folder = Folder & ArrFolder(i) & "/"
Else
Folder = Folder & ArrFolder(i) & "/"
End If

If Fso.folderExists(Server.MapPath(Folder)) = False then
response.Write server.MapPath(folder)
Fso.createFolder(Server.MapPath(Folder))
End If

Next
Set Fso = nothing

If Err.Number <> 0 then
Err.clear()
CreateFolder = False
Else
CreateFolder = True
End If
End function

Function getFile(paramFilePath)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getFile = Fso_Read.readall
Set Fso_Read = Nothing
Set Fso = Nothing
End Function

'*******************************************************
'函数名：CreateFile(paramFileContent,paramFilePath)
'作用: 创建文件
'参数：paramFileContent '文件的内容
' paramFilePath '文件名(不包括路径)
'返回值：成功 true , 失败 false
'*******************************************************
Function CreateFile(paramFileContent,paramFilePath)
On Error Resume Next
Dim Fso,fWrite

Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)

fWrite.write paramFileContent
fWrite.close()
Set fWrite = nothing
Set Fso = nothing

If Err.number <> 0 Then
Err.clear()
CreateFile = False
Else
CreateFile = True
End If
End Function

'*******************************************************
'函数名：DelFile(FilePath)
'作用: 删除文件
'参数：FilePath '文件路径多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i

If GetSafeStr(FilePath,"")="" then
CreateFolder = false
Exit Function
End If

arrFile = Split(FilePath,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")

for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
Fso.DeleteFile Server.MapPath(FilePath)
End If
Next
Set fso = nothing

If Err then
Err.clear()
DelFile = false
Else
DelFile = true
End If
End Function

'*******************************************************
'函数名：DelFolder(FolderPath)
'作用: 删除目录
'参数：FolderPath '目录路径 '多个目录用"|"分隔
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFolder(FolderPath)
On Error Resume Next
Dim Fso,arrFolder,i

If GetSafeStr(FolderPath,"")="" then
DelFolder = false
Exit Function
End If

arrFolder = Split(FolderPath,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")

For i=0 to UBound(arrFolder)
FolderPath = arrFolder(i)
If Fso.folderexists(Server.MapPath(FolderPath)) then
Fso.deleteFolder Server.MapPath(FolderPath)
End If
Next

If Err then
Err.clear()
DelFolder = false
'ShowError "删除目录失败",""
else
DelFolder = true
End If
End Function

'*******************************************************
'函数名：IsExistFile(FilePath)
'作用: 判断文件或目录是否存在
'参数：FilePath '文件路径多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function IsExistFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i

If GetSafeStr(FilePath,"")="" then
IsExistFile = false
End If

arrFile = Split(FilePath,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")

for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
IsExistFile = True
End If
If Fso.folderexists(Server.MapPath(FilePath)) then
IsExistFile = True
End If
Next
Set fso = nothing

If Err then
Err.clear()
IsExistFile = false
'ShowError "判断文件或目录是否存在失败",""
else
IsExistFile = true
End If
End Function

'*******************************************************
'函数名：DelFile(FilePath)
'作用: 删除文件或目录
'参数：FilePath '文件路径多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFile(FilePath)
On Error Resume Next
Dim fso,arrFile,i

If GetSafeStr(FilePath,"")="" then
CreateFolder = false
End If

arrFile = Split(FilePath,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")

for i=0 to UBound(arrFile)
FilePath = arrFile(i)
If Fso.FileExists(Server.MapPath(FilePath)) then
Fso.DeleteFile Server.MapPath(FilePath)
End If
If Fso.folderexists(Server.MapPath(FilePath)) then
Fso.deleteFolder Server.MapPath(FilePath)
End If
Next
Set fso = nothing

If Err then
Err.clear()
DelFile = false
'ShowError "删除文件或目录失败",""
else
DelFile = true
End If
End Function

'*******************************************************
'函数名：ReNameFile((oldName,newName)
'作用: 重命名文件或目录
'参数：strOldName '原文件名多个用"|"隔开
' strNewName '新文件名多个用"|"隔开
' 上面两个参数请保持一致
'返回值：成功 true , 失败 false
'*******************************************************
Function ReNameFile(strOldName,strNewName)
On Error Resume Next
Dim fso,arrOld,arrNew,i,oldName,newName

old = GetSafeStr(strOldName,"")
Newfile = GetSafeStr(strNewName,"")

If old ="" or Newfile = "" then
ReNameFile = false
Exit Function
End If

arrOld = Split(strOldName,"|")
arrNew = Split(strNewName,"|")

If UBound(arrOld)<> UBound(arrNew) then
ReNameFile = false
Exit Function
End If

Set Fso = Server.CreateObject("Scripting.FileSystemObject")
for i=0 to UBound(arrOld)
oldName = Server.MapPath(arrOld(i))
newName = Server.MapPath(arrNew(i))
If Fso.FileExists(oldName) and not Fso.FileExists(newName) then
fso.MoveFile oldName,newName
'ReNameFile = True
End If
Next
Set fso = nothing

If Err.Number <> 0 Then
Err.clear()
ReNameFile = false
Else
ReNameFile = True
End If
End Function

'*******************************************************
'函数名：CopyFiles((TempSource,TempEnd)
'作用: 复制文件或者目录
'参数：TempSource '源文件名多个用"|"隔开
' TempEnd '目的文件名多个用"|"隔开
' 注意：上面两个参数请保持一致，并且都为完整路径，
' 已经经过Server.MapPath方法处理过
'返回值：成功 true , 失败 false
'*******************************************************
Function CopyFiles(TempSource,TempEnd)
On Error Resume Next
Dim CopyFSO,arrSource,arrEnd

CopyFiles = false
Set CopyFSO = Server.CreateObject("Scripting.FileSystemObject")

If TempSource ="" or TempEnd = "" then
ErrRaise "复制文件或目录","条件为空"
CopyFiles = false
Exit Function
End If

arrSource = Split(TempSource,"|")
arrEnd = Split(TempEnd,"|")
If UBound(arrSource) <> UBound(arrEnd) then
CopyFiles= false
Exit Function
End If

for i=0 to UBound(arrSource)
srcName = arrSource(i)
tarName = arrEnd(i)
IF CopyFSO.FileExists(srcName) and not CopyFSO.FileExists(tarName) then
CopyFSO.CopyFile srcName,tarName
CopyFiles = true
End If

IF CopyFSO.FolderExists(srcName) and not CopyFSO.FolderExists(tarName)then
CopyFSO.CopyFolder srcName,tarName
CopyFiles = true
End If
Next
Set CopyFSO = Nothing

If Err then
'Err.clear()
CopyFiles = false
End If
End Function
%>

该文章在 2011/12/19 1:17:57 编辑过


全部评论1
	admin 2011年12月19日 1:22 asp下利用fso实现文件夹或文件移动改名等操作函数以后利用fso来操作文件和文件夹就方便了 asp利用fso实现文件的移动 function movefiles(sFolder,dFolder) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)) then fso.copyfolder server.mappath(sFolder),server.mappath(dFolder) movefiles = true else movefiles = false set fso = nothing call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2) end if set fso = nothing end function asp修改文件夹名称 function renamefolder(sFolder,dFolder) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sFolder)) then fso.movefolder server.mappath(sFolder),server.mappath(dFolder) renamefolder = true else renamefolder = false set fso = nothing call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2) end if set fso = nothing end function asp检查文件夹是否存在 function checkfolder(sPATH) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sPATH)) then checkfolder = true else checkfolder = false end if set fso = nothing end function asp检查文件是否存在 function checkfile(sPATH) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.fileexists(server.mappath(sPATH)) then checkfile = true else checkfile = false end if set fso = nothing end function asp创建文件夹 function createdir(sPATH) dim fso,pathArr,i,path_Level,pathTmp,cPATH on error resume next sPATH = replace(sPATH,"\","/") set fso = server.createobject("scripting.filesystemobject") pathArr = split(sPATH,"/") path_Level = ubound(pathArr) for i = 0 to path_Level if i = 0 then pathTmp = pathArr(0) & "/" else pathTmp = pathTmp&pathArr(i) & "/" cPATH = left(pathTmp,len(pathTmp)-1) if not fso.folderexists(cPATH) then fso.createfolder(cPATH) next set fso = nothing if err.number <> 0 then err.clear createdir = false else createdir = true end if end function 删除文件夹，这里是删除系统中栏目的文件夹 function delclassfolder(sPATH) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sPATH)) then fso.deletefolder(server.mappath(sPATH)) end if set fso = nothing end function 删除新闻内容文件 function delnewsfile(sPATH,filename) on error resume next dim fso,tempArr,cPATH,ePATH,i:i = 0 set fso = server.createobject("scripting.filesystemobject") sPATH = sPATH & filename & site_extname if fso.fileexists(server.mappath(sPATH)) then fso.deletefile(server.mappath(sPATH)) while(i <> -1) i = i + 1 ePATH = replace(sPATH,filename & ".",filename & "_" & i + 1 & ".") if fso.fileexists(server.mappath(ePATH)) then fso.deletefile(server.mappath(ePATH)) else i = -1 end if wend end if end function 该评论在 2011/12/19 1:22:10 编辑过

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。

ASP FSO文件操作函数代码（复制文件、重命名文件、删除文件、替换字符串等）

全部评论1