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

最新推荐文章于 2025-06-21 16:35:17 发布

szheng1989

最新推荐文章于 2025-06-21 16:35:17 发布

阅读量495

点赞数

CC 4.0 BY-SA版权

分类专栏： Domino 文章标签： session

本文链接：https://blog.youkuaiyun.com/szheng1989/article/details/6707608

Domino 专栏收录该内容

56 篇文章

订阅专栏

本文介绍了一个使用VBA脚本删除指定临时文件夹的例子。通过创建系统文件对象并利用Scripting.FileSystemObject组件来获取系统临时文件夹路径，并检查路径下是否存在特定文件夹，若不存在则创建之，最后演示了如何删除该文件夹。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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