全套供应

function findfile(pfilepath)
    on error resume next
    dim fs
    set fs = createobject("scripting.filesystemobject")
    rem response.write "filepath="&pfilepath&"<br>"
    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))&"<br>"
    rem response.write "filefrom="&filefrom & " <br>fileto="&fileto&"<br>"
    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))&"<br>"    
    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