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 =无

　　端子