Private Sub Class_Terminate() If IsObject(FileSystemObject) Then Set FileSystemObject = Nothing End If End Sub
'//創建FileSystemObject對象 Public Function Init_Object() On Error Resume Next If Not IsObject(FileSystemObject) Then Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then Init_Object = False Err.Clear Exit Function Else Init_Object = True End If End If End Function
Public Sub DeleteFile(ByVal Str) On Error Resume Next Call FileSystemObject.DeleteFile(Server.MapPath("../UpLoadFile/"&Str))
