在代理中创建、删除文件夹（FSO）

Sub Initialize
 On Error Goto a 
 Dim session As New NotesSession
 Dim FSO As Variant '系统文件对象
 Set FSO   = CreateObject("Scripting.FileSystemObject")
 Set TempFolder = FSO.GetSpecialFolder(2) '得到系统临时文件夹
 
'----------- TempFolder.Path为系统文件夹路径
'-----------判断系统临时文件夹中是否存在名为sz007的文件夹,没有则创建
 If Not FSO.FolderExists(TempFolder.Path+"\"+"sz007") Then
  Set Folder= FSO.CreateFolder(TempFolder.Path+"\"+"sz007")
 End If

 FSO.DeleteFolder(TempFolder.Path+"\"+"sz007")   '删除临时文件夹中sz007文件夹
 Exit Sub
a:
 Msgbox "错误在代理sz_test中的第" & Erl & "行-------：" & Error
 
End Sub