实现对文件自动打包下载后并删除

文章摘自 http://bbs.7di.net
<script language="VBScript.Encode" runat=server>
'上面用SHELL对象启动程序
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("E:\wwwroot\TempProductPic\TempUpFile\wzzip.exe E:\wwwroot\TempProductPic\TempUpFile\TempUpFile.zip E:\wwwroot\TempProductPic\TempUpFile\20043\" ,1, true)
if IsSuccess = 0 Then 
'Response.write " 命令成功执行!"
Call DownFile("E:\wwwroot\TempProductPic\TempUpFile\TempUpFile.zip","TempProductPic.zip")
else 
Response.write "下载文件失败或没有图片可供下载!!!"
end if
Sub DownFile(DlFile,FileName)'dlfile为要下载的文件名,filename为下载时的文件名。
Set Fso1 = Server.CreateObject("Scripting.FileSystemObject")
If Fso1.FileExists(DlFile) Then
  Set S=server.CreateObject("Adodb.Stream") 
  S.Mode=3 
  S.Type=1 
  S.Open 
  'S.LoadFromFile(server.mappath(dlfile))
  S.LoadFromFile(DlFile)
  Response.AddHeader "Content-Disposition", "attachment; filename="&FileName
  Response.CharSet = "GB2312" 
  Response.ContentType = "application/unknow" 
  Response.BinaryWrite(S.Read)
  Response.Flush
  s.close
  set s=nothing
  Call DelFile("E:\wwwroot\TempProductPic\TempUpFile\TempUpFile.zip")
Else
  Response.Write "当前没有图片可供下载!!"
End If
Set Fso1 = Nothing
End Sub
Sub DelFile(FilePath)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
'FilePath = Server.MapPath(delRs(0)&delRs(1))
If Fso.FileExists(FilePath) Then
  Fso.DeleteFile FilePath,True'如果存在该文件则删除
End If
Set Fso = Nothing'清除FSO对像
End Sub
Set WshShell = Nothing
</script>

你可能感兴趣的:(文件)