ASP删除指定文件夹的函数

2009年11月25日 | 九创主题

ASP删除指定文件夹的函数

'[删除目录]
'函数名:DelDir
'作 用:删除目录
'参 数:DlDirname ---- 目录名(包括路径)
'返回值:目录删除成功返回True,否则False
'**************************************************
Public Function DelDir(ByVal DlDirname)
Dim M_fso
DelDir=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
If (M_fso.FolderExists(DlDirname)) Then
M_fso.DeleteFolder(DlDirname)
DelDir=True
End If
Set M_fso = Nothing
End Function


转载文章请注明转载自:九创主题

标签: , ,

留下回复

您必须登录才能发表评论。