1，FileExists：如果文件存在就返回TRUE

Sub FileExists()

Dim fs作为对象

Dim strFile作为字符串

设置fs = CreateObject(“ scripting.filesystemobject”)

strFile = InputBox(“输入文件的全名：”)

如果fs .FileExists(strFile)然后找到

MsgBox strFile&“。

其他

MsgBox“文件不存在。”

如果

结束则结束

2，GetFile：返回一对象文件

3，GetFileName：返回带路径文件名

4，GetFileVersion：返回文件版本

5，CopyFile：复制文件

Sub CopyFile()

Dim fs作为对象

Dim strFile作为字符串

Dim strNewFile作为字符串

strFile =“ c： hello.doc”

strNewFile =“ C： programs files hello.doc”

Set fs = CreateObject( “”

fs.CopyFile strFile，strNewFile

MsgBox““创建了指定文件的副本。”

设置fs = Nothing

End Sub

6，MoveFile：移动文件

7，DeleteFile：删除文件

Sub DeleteFile()

Dim fs作为FileSystemObject

设置fs = New FileSystemObject

fs.DeleteFile“ C： programs files hello.doc”

MsgBox“所请求的文件已删除。”

结束子

8，DriveExists：如果给定硬盘存在则返回TRUE

函数DriveExists(disk)

Dim fs As Object

Dim strMsg As String

Set fs = CreateObject(“ scripting.filesystemobject”)

如果fs.DriveExists(disk)然后

strMsg =“ drive [” &UCase(disk)&“]存在。”

否则

strMsg =“未找到驱动器[”&UCase(disk)&“]。

如果

DriveExists = strMsg

，则在工作表中运行此功能，方法是：

'在任何单元格中输入以下内容：= driveexists(“ e：”)

结束功能

9，GetFolder：返回对象

子文件InFolder()

Dim fs作为对象

Dim objFolder作为对象

Dim objFile作为对象

Dim i作为整数

i = 1

设置fs = CreateObject(“ scripting.filesystemobject”)

设置objFolder = fs.GetFolder(“ C ：“)

Range(“ A1”)。为objFolder.Files中的每个objFile选择

选择

项

。Offset(i，0).Value = objFile.Name

.Offset(i，1).Value = objFile.Type

i = i + 1

下一个objFile

以

子结束

10，GetSpecialFolder：返回操作系统文件夹路径

0-视窗文件夹

1-系统文件夹

2-临时文件夹

子SpecialFolders()

昏暗FS作为对象

昏暗strWindowsFolder作为字符串

昏暗strSystemFolder作为字符串

昏暗strTempFolder作为字符串

组FS =的CreateObject( “Scripting.FileSystemObject的”)

strWindowsFolder = fs.GetSpecialFolder(0)

strSystemFolder = fs.GetSpecialFolder(1)

strTempFolder = FS .GetSpecialFolder(2)

MsgBox strWindowsFolder&vbCrLf&_

strSystemFolder&vbCrLf&_

strTempFolder，vbInformation + vbOKOnly，_

“特殊文件夹”

End Sub

11，CreateFolder：创建文件夹

Sub MakeNewFolder()

Dim fs，objFolder

设置fs = CreateObject(“ scripting.filesystemobject”)

设置objFolder = fs.CreateFolder(“ c： testfolder”)

MsgBox“名为“”和objFolder的新文件夹。名称和“”已创建。

结束子

12，CopyFolder：复制文件夹

Sub MakeFolderCopy()

昏暗fs作为FileSystemObject

设置fs = New FileSystemObject

如果fs.FolderExists(“ c： testfolder”)然后

fs.CopyFolder“ c： testfolder”，“ c： finalfolder”

MsgBox “文件夹已复制!”

如果

结束则结束

13，MoveFolder：移动文件夹

14，DeleteFolder：删除文件夹

Sub RemoveFolder()

Dim fs作为FileSystemObject

设置fs = New FileSystemObject

如果fs.FolderExists(“ c： testfolder”)然后

fs.DeleteFolder“ c： testfolder”

MsgBox“文件夹已删除。”

如果

结束则结束

15，CreateTextFile：创建文本文件

16，OpenTextFile：文本文件

Sub ReadTextFile()将

Dim fs作为对象

Dim objFile作为对象

Dim strContent作为字符串'定义文件内容

Dim strFileName作为String

Dim我作为整数

i = 1

strFileName =“ C： Windows win.ini”

设置fs = CreateObject(“ scripting.filesystemobject”)

设置objFile = fs.OpenTextFile(strFileName)

不做时objFile.AtEndOfStream

'******分行列出文件内容******

strContent = objFile.ReadLine

范围(“ a”&i)= strContent

i = i + 1

'******读取全部内容不分行******

'strContent = strContent&objFile.ReadLine&vbCrLf

循环

objFile.Close

设置objFile =无

端子