VBS简单的文件夹操作（新建、删除

Dim fso
Set fso = CreateObject("scripting.filesystemobject")
CreateFold  fso,"D:\result\172.18.100.101"
DelFold  fso,"D:\result\adfadfa"
'创建文件夹，首先检查文件夹是否存在
Public function CreateFold(fso,path)
If fso.FolderExists(path) Then
 reporter.ReportEvent  micPass,"目录已存在不需要创建",""
   Exit function
   else
    fso.CreateFolder(path)
  End If
   set fso = Nothing
End Function

'删除文件夹
Public function DelFold(fso,path)
If fso.FolderExists(path) Then
   fso.DeleteFolder(path)
   else
 reporter.ReportEvent micWarning ,"目录不存在，不执行删除操作",""
   Exit function
  End If
 set fso = Nothing
End Function