讲解excel vba免费件系统对象的办法和属性

　　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作为对象

　　昏暗strwinFolder作为字符串

　　昏暗strsystemFolder作为字符串

　　昏暗strTempFolder作为字符串

　　组Fs =的Createobject( “scripting.Filesystemobject的”)

　　strwinFolder = fs.GetspecialFolder(0)

　　strsystemFolder = fs.GetspecialFolder(1)

　　strTempFolder = Fs .GetspecialFolder(2)

　　MsgBox strwinFolder&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：\ win \ 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 =无

　　端子