登陆      注册    找回密码   会员投稿 宽屏版 I 换肤 手机版 | 收藏本站   当前时间是: 
首页>技术文档>网站优化>正文


ASP FSO文件操作函数代码

来源:互联网   作者:佚名   浏览:65次   发表时间:2022-7-13 6:23:01
【字体: 视力保护色:

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

董为坚个人网 https://www.dwjgrw.cn/ 【关闭窗口
注:转载或者复制本站文章,必须带上董为坚个人网链接。
部分文章来源于网络,如有侵权联系删除!
扫一扫在手机阅读

扫一扫 在手机阅读、分享本文


上一篇:简短的励志早安语录51条
下一篇:香辣干锅鸡翅

版权所有:《董为坚个人网
本文地址:https://www.dwjgrw.cn/Content/id/281.html   复制地址
本站内容除特别注明外,均为《董为坚个人网》原创,欢迎转载!转载请注明本文地址,谢谢!


  评论列表

暂无评论

  发表评论 [评论会通过邮件和短信的形式通知我,我会及时回复,一定回来看哦!!!]
昵称: [必填]
邮箱: [必填]
内容: [必填]
验证码:   
                     
给我留言 申请友链Copyright © 2012- 董为坚个人网, All rights reserved 手机版
本站已正常运行3349天技术顾问:董为坚个人网 ( 桂ICP备15004478号-1 )
  今日更新:0篇, 最后更新:2022-8-8联系QQ1115030108,邮箱:1115030108@qq.com
今日有92人访问,总访问数762150人请勿发布违反中华人民共和国法律法规的言论.