你的位置: Kiyo'Space首页 ASP 阅读文章 欢迎留下您的足迹

FSO常用代码(删除、写、拷贝文件的Function)

[ ASP ] 分享

-----------------删除文件-------------------  
<%
''|e.g.
''|  Call  Generic_FileDeletion(File  path  ''REQUIRED'')
''|  Call  Generic_FileDeletion("myfile.txt")
''|  Call  Generic_FileDeletion("win95/myfile.txt")
''|
''|Please  remember  to  specify  a  Path,  otherwise  an  Error  will  occur…  
Function  Generic_FileDeletion(byval  strpath,byval  intShowLabel)

 

''  ERROR  CHECKING!!!!...
IF  strpath  =  ""  or  isnull(strpath)  then
Response.Write("Sorry  but  a  path  is  required  when  calling  this  function")
Response.End
End  IF

''  ERROR  CHECKING!!!!...
IF  intShowLabel  =  ""  or  isnull(intShowLabel)  then
Response.Write("Sorry  but  the  paramter  <b>intShowLabel</b>  is  missing.  PARAMETER  IS  REQUIRED")
Response.End
End  IF

Filename  =  Server.MapPath(strpath)

Set  fs  =  CreateObject("Scripting.FileSystemObject")

If  fs.FileExists(filename)  Then
fs.DeleteFile(filename)

if  intShowLabel  =  1  then
response.write  "File"  &  "  <b>("  &  strpath  &  ")</b>  "  &  "  has  Been  Deleted  with  Success.<BR>"
end  if
Else
response.write  "No  path  was  found,  or  file  does  not  exist  to  delete…<BR>"
End  If

End  Function
%>

 

---------------copy文件------------------

<%
''|E.G:
''|  Call  Generic_FileCopy("D:\Xkudos\NewsX_1997.mdb","D:\Xkudos\Xkudos\Xkudos\DB\NewsX_1997.mdb",True)
Function  Generic_FileCopy(ByVal  strFileSource,ByVal  strFileDestination,ByVal  strOverWrite)
''--------------------------------[ERROR  CHECKING]--------------------------------
''  ERROR  CHECKING!!!!...
IF  strFileSource  =  ""  or  isnull(strFileSource)  Then
Response.Write("Sorry  but  a  File  Source  path  is  required  when  calling  this  function")
Response.End
End  IF
''  ERROR  CHECKING!!!!...
IF  strFileDestination  =  ""  or  isnull(strFileDestination)  Then
Response.Write("Sorry  but  a  File  Destination  path  is  required  when  calling  this  function")
Response.End
End  IF
''  ERROR  CHECKING!!!!...[True  -  False]
IF  strOverWrite  =  ""  or  isnull(strOverWrite)  Then
Response.Write("Sorry  but  a  File  Destination  path  is  required  when  calling  this  function")
Response.End
End  IF
''--------------------------------[/ERROR  CHECKING]--------------------------------
Set  fso  =  CreateObject("Scripting.FileSystemObject")

If  fso.FileExists(strFileSource)  Then
fso.CopyFile  strFileSource,  strFileDestination,  strOverWrite
Else
Response.Write("The  file  does  not  exist…")
Response.End
End  If

Set  fso  =  Nothing
End  Function
%>

-----------------写文件----------------  

<%
''|  Example  of  Call:
''|  Call  Generic_FileWriter("MyFileName","HTML","The  content  goes  here…")

Function  Generic_FileWriter(strFileName,strFileExtension,strFileContent)

Set  oFS  =  CreateObject("Scripting.fileSystemObject")
Set  oTXS  =  oFS.OpenTextFile(Server.MapPath(strFileName  &  "."  &  strFileExtension),8,True)

oTXS.WriteLine(strFileContent)
oTXS.Close

End  Function
%>

-----------------更棒的-----------------------

<%
''|  Example:
''|  Call  FileFerret(strDirectory,  dtStartingDate,  dtEndingdate,intqued)
''|  Normal  Usage:
''|  Call  FileFerret("/desktop/ASP_odds/Generic_Funcs/test/","19/02/2001  00:00:00","20/02/2001  16:16:34",0)
''|  When  using  on  queued  directory:
''|  Call  FileFerret("/desktop/ASP_odds/Generic_Funcs/test/","19/02/2001  00:00:00","20/02/2001  16:16:34",1)

Function  FileFerret(ByVal  strDirectory,ByVal  dtStartingDate,ByVal  dtEndingdate,ByVal  intqued)
Dim  intBadcounter  ''  It  will  count  how  many  bad  emails  there  are
Dim  intquedCounter

intBadcounter  =  0
intquedCounter  =  0

''-----------------------[  START  ERROR  CHECKING  ]---------------------------
''  Checks  if  there  is  a  (  directory  )defined  in  the  parameter
If  strDirectory  =  ""  or  isnull(strDirectory)  Then
Response.Write("The  parameter  for  Directory  is  missing  -  IT  IS  A  REQUIRED  PARAMETER!")
Response.End
End  If

''  Checks  if  the  (  Starting  Date  )  Parameter  is  missing
If  dtStartingDate  =  ""  or  isnull(dtStartingDate)  Then
Response.Write("The  Starting  Date  parameter  is  missing  -  IT  IS  A  REQUIRED  PARAMETER!")
Response.End
End  If

''  Checks  if  the  (  Ending  Date  )  Parameter  is  missing
If  dtEndingdate  =  ""  or  isnull(dtEndingdate)  Then
Response.Write("The  Ending  Date  parameter  is  missing  -  IT  IS  A  REQUIRED  PARAMETER!")
Response.End
End  If

''  Checks  if  the  (  intqued  )  Parameter  is  missing
If  intqued  =  ""  or  isnull(intqued)  Then
Response.Write("The  intqued  parameter  is  missing  -  IT  IS  A  REQUIRED  PARAMETER!")
Response.End
End  If
''-----------------------[  END  ERROR  CHECKING  ]---------------------------

Set  fs  =  CreateObject("Scripting.FileSystemObject")
Set  f  =  fs.GetFolder(server.mappath(strDirectory))
Set  fc  =  f.files

%>
<H1><%=strDirectory%></H1>
<HR>
<Table  Border="0"  Cellpadding="0"  Cellspacing="3"  Align="Center">

<%
For  Each  File  in  fc
intquedCounter  =  intquedCounter  +  1
''  It  checks  if  it  is  in  between  a  certain  Time  limite
If  formatdatetime(File.datecreated  ,0)  >=  dtStartingDate  and  formatdatetime(File.datecreated  ,0)  <=  dtEndingdate  Then

''  Checks  if  it  is  an  Email
If  right(File.Name,4)  =  ".msg"  or  right(File.Name,4)  =  ".eml"  Then
IMG  =  "img/email.gif"
End  If

''  Checks  if  it  is  a  log  file  or  a  Text  File
If  right(File.Name,4)  =  ".log"  or  right(File.Name,4)  =  ".txt"  Then
IMG  =  "img/txt.jpg"
End  If

''  Checks  if  it  is  a  BAD  email  file
If  right(File.Name,4)  =  ".bad"  Then

''  Increases  the  Bad  emails  counter  by  1
intBadcounter  =  intBadcounter  +  1
IMG  =  "img/emailbad.gif"
End  If
%>
<TR>
<TD  align="center"><img  src="<%=IMG%>"></TD>
<TD><A  HREF=''<%=strDirectory  &  File.name%>''><%=File.name%></a></TD>
<TD><%=formatdatetime(File.datecreated  ,0)%></TD>
</TR>
<%
End  If
Next

%>
<TR>
<TD>There  are  </TD><TD><b><%=intBadcounter%></b>  bad  emails.</TD>
</TR>
<%
''  We  check  if  we  using  the  queue  directory  (0  -  No  /  1  -  Yes)
IF  intqued  =  1  Then  %>
<TR>
<TD>There  are  </TD><TD><b><%=intquedCounter%></b>  emails  awating  to  be  sent.</TD>
</TR>
<%  End  If  %>
</Table>

<%
End  Function
%>


欢迎在此留下您的脚步






评论内容 (*必填):
(Ctrl + Enter 快速提交)