Else's blog

'********************************************
'函数名：deletefile
'作  用：删除指定的一个文件
'参  数：filename ----要删除的文件名
'返回值：无
'********************************************
function deletefile(filename)
if filename<>"" then
  set fso=server.CreateObject("scripting.filesystemobject")
  if fso.FileExists(server.MapPath(filename)) then '判断文件是否存在      
     fso.DeleteFile server.MapPath(filename)       
  end if
  set fso=Nothing
end if
end function

'********************************************
'函数名：GetAnExtension
'作  用：删除指定的一个文件
'参  数：filename ----要删除的文件名
'返回值：文件的扩展名
'********************************************
Function GetAnExtension(filename)
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 GetAnExtension = fso.GetExtensionName(filename)
 set fso=Nothing
End Function

作者：Else 's Blog
地址：http://www.aixq.com/post/362/
版权所有。转载时必须链接形式注明作者和原始出处及本声明！