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（完）计算机基础教程网
全套供应
搜索
相关栏目导航
