function FindFile(pfilePath)
    on error resume next
    dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    rem response.write "filePath="&pfilePath&"
"
    FindFile=fs.FileExists(pfilePath)
    if err>0 then
       err.clear
       findFile=false
    end if
end function

function CopyFile(fileFrom,fileTo)
    on error resume next
    dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    rem response.write "Check file exist (" & fileFrom & ")="&cstr(fs.FileExists(FileFrom))&"
"
    rem response.write "fileFrom="&fileFrom & "
fileTo="&fileTo&"
"
    fs.CopyFile fileFrom, fileTo,true
    if err>0 then
       err.clear
       CopyFile=false
    else
       CopyFile=True
    end if
end function

function DeleteFile(fileDel)
    on error resume next
    dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    rem response.write "Check file exist (" & fileDel & ")="&cstr(fs.FileExists(fileDel))&"
"    
    if fs.FileExists(fileDel) then        
       fs.DeleteFile fileDel,true
    end if
    if err>0 then
       err.clear
       DeleteFile=false
    else
       DeleteFile=True
    end if    
end function