Version:0.9
StartHTML:00000107
EndHTML:00005965
EndFragment:00005925
EndFragment:00000000


'刪除文件過程

Sub DeleteFile(filespec)
Dim fso
Set fso= CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)


End Sub
'判斷文件是否存在
Function FileExit(filespec)
Dim fso2,msg
Set fso2 = CreateObject("Scripting.FileSystemObject")
If(fso2.FileExists(filespec)) Then
FileExit = 0
Else
FileExit = 1
End if
End Function

dim oExcel,oWb,oSheet,strFilename,Num
strFilename = "D:\share\NC.xls"
Num =?FileExit(strFilename)
'判斷文件是否存在。存在就調用刪除過程
If(Num = 0) Then
call DeleteFile(strFilename)
MsgBox "delete?file"
Else
MsgBox "NO?file"
End If
'創建excel
Set oExcel= CreateObject("Excel.Application")
oExcel.Visible = false
set oWb =?oExcel.Workbooks.Add()
oWb.SaveAs(strFilename)
oExcel.Quit