<%
on error resume next
sub DelAllFile(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
fso.deletefile(f1)
if err.number<>0 then
exit sub
end if
Next
set fso=nothing
End sub
sub DelAllFile(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
fso.deletefile(f1)
if err.number<>0 then
exit sub
end if
Next
set fso=nothing
End sub
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,".")
getTemporaryFile=mid(tempFile,1,dotPos)&"xls"
end function
set objExcel=CreateObject("Excel.Application")
objExcel.Workbooks.Open(server.mappath("book")&"1.xlt") '打开Excel模板
objExcel.Sheets(1).select '选中工作页
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
sheetActive.range("g4").value=date() '这里添加的是时间,当然也可以是你指定的任何数据
sheetactive.cells(2,3)="success"
set myFs=createObject("scripting.FileSystemObject")
filePos=server.mappath("\") & "\tmp\" '要存放打印临时文件的临时目录
fileName=getTemporaryFile(myFs) '取得一个临时文件名
DelAllFile(filePos)
'myFs.DeleteFile filePos&"*.xls" '删除该目录下所有原先产生的临时打印文件
set myFs=nothing
set myFs=nothing
objExcel.ActiveWorkbook.saveas filePos&filename
objExcel.quit
set objExcel=Nothing
%>