fso|重复删除文件
<%
'|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ASPWizard Copyright ?1999-2001 >>>>>>>
'|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>[       Generic File Deletion      ]>>>>>>>>>>>>>>>>
'|Author: Joaquim Jos?Prates Ferreira
'|Date Created: 13/01/2001
'|Last Update: 28/06/2001
'|Dependencies:
'|Description: This function will delete unwanted files from the server...
'| V1.1: Added a new parameter [ intShowLabel ] 0 - Do not show label / 1 - Show label
'| V1.0: This function only accepts one parameter at the moment, the path with the file,
'|  below there are examples of how to call the function.
'|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.
"
   end if
  Else
   response.write "No path was found, or file does not exist to delete...
"
  End If

End Function
%>





copy文件


<%
'|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ASPWizard.co.uk Copyright ?1999-2001 >>>>>>>>>>>>>>>>>
'|>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>[       Generic_FileCopy.asp       ]>>>>>>>>>>>>>>>>
'|Author: Joaquim Jos?Prates Ferreira
'|Last Author: Joaquim Jos?Prates Ferreira
'|Date Created: 26/04/2001
'|Last Update: 26/04/2001
'|Dependencies:
'|Description: This function will copy Files From [ A ] to [ B ]
'| V1.0: This function will copy a file from one Folder to another.
'|
'|Parameters:
'| strFileSource  - We specify the path to the file to Copy
'| strFileDestination - We sepcify the path to the new file
'| strOverWrite  - We say if we want to overwright a file
'|
'|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]--