FSO对象Folder相关三种方法

FSO对象Folder相关三种方法

FolderExists方法

CreateFolder方法

DeleteFolder方法

FolderExists方法

如果指定的文件夹存在，则返回 True；否则返回 False。

语法

对象.FolderExists(folderspec)

FolderExists方法语法包含以下部分：

CreateFolder方法

创建文件夹。

语法

对象.CreateFolder(_文件夹_名)

CreateFolder方法包含下列部分：

注解

如果指定文件夹已存在，则将出错。

DeleteFolder方法

删除指定文件夹及其内容。

语法

对象.DeleteFolderfolderspec, [ force ]

DeleteFolder方法的语法包含以下部分：

注解

DeleteFolder方法不区分有无内容的文件夹。 不管指定文件夹有无内容都会被删除。

如果未发现匹配文件夹，将发生错误。 DeleteFolder 方法在遇到的第一个错误处停止。 在发生错误之前，不会尝试回滚或撤消任何已进行的更改。

==========【实例】==========

测试一：首先检测本目录下是否存在“FSO-test”的文件夹，如果存在就在文件夹中创建一个“成功.txt”的文本文件，在这个记事本中写“This is a test”一句文字

测试二：再修改一下代码为检测本目录下是否存在“test创建文件夹”的文件夹，如果不存在就创建一个“test创建文件夹”的文件夹，代码测试成功

Sub t_Folder_f()

Dim fs As Object, s, t

t= ThisWorkbook.Path & "\FSO-test\"

Set fs = CreateObject("scripting.FileSystemObject")

If fs.FolderExists(t) Then

MsgBox "文件夹存在,创建一个成功的txt文件表示"

Set a = fs.CreateTextFile(t & "\成功.txt",True)

a.WriteLine ("This is a test.")

Else

fs.createFolder ("test创建文件夹")

End If

End Sub

========效果图========

------测试一----：如果存在就写入一个文本文件并在文本文件中写一名文字

按“确定”则创建文件并写一句话

----测试二---如果文件夹不存在则创建