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


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
%>



相关阅读:
JavaScript教程:常用对象的属性和方法
CSS图片垂直居中实现方法详解
轻松修复Discuz!数据库
Wordpress博客首页中的每篇日志添加图片
sql 触发器使用例子
SEO的最高境界-SEO外链增加流量总结大全(收藏)
Community Server专题三:HttpModule
面向XHTML的IE条件注释
php中显示数组与对象的实现代码
CSS实例::nth-child和:nth-type-of的区别
Oracle存储过程返回数组的方法
如何为 Visual Studio 2005添加新的的 Team Foundation Server(TFS)
Linux 操作系统日志管理全攻略
一个修改Oracle数据库用户密码的小诀窍
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 又到红叶烂漫时 小学六年级作文350字:音乐给的翅膀 幽幽墨香,感动心灵 爱的白皮书 爆笑的愚人节祝福语大全 若能算出命运 试用员工转正申请书_申请书 小学作文比赛 我的爸爸妈妈100字 过尽千帆,有谁可依 食物房 我得到了全世界,却没有得到你 张朝阳:搜狗看不上百度的技术人员 当我笑时谁会看穿我伪装的痛,谁会了解我内心的感受… 吕子乔的经典台词 是你的偌言让我不再相信明天还有爱 高中高二作文700字:体验黑暗 形容帅哥美女的好句子 断梦礼 对不起,我还是那么喜欢你 在这阳春三月的日子里…… 让我不信任的妈妈作文350字 小姨来访 初中初一作文650字:我班的运动会 武术社会体育指导员培训感想 屈原600字 最卑贱是感情,最淡漠是人心 感动的印记650字 小学六年级作文600字:诚信之旅 哥们们毕业了作文200字 给小金鱼洗澡作文800字 李清照的词和酒 市总工会庆五一文艺晚会主持词 高考满分作文:什么最重要 女孩我们能在起吗? 国庆节放假通知范文 《秋莅》诗歌 降落伞教学反思 敢于面对惨淡的人生 China Has Worn!_关于中国申办奥运成功的英语作文 妈妈出差回来了作文400字 宋词精选 寂寞的时候会不会想起我 招聘效率衡量方法(试探) 《小老鼠沃尔夫》读后感 最好的年华 遇见最美好的你们 *   14年猎鬼人,金盆洗手,真实经历,我说的也许能帮到你 - 超级恐怖小说【上】 审判人类作文600字 民宿广告语 一件烦恼的事作文500字

Copyright © 2016 phpStudy |