Win10 2004下载 win10 2009下载 win10激活 xp系统下载 win7旗舰版 win7纯净版 win8纯净版 win8专业版 Windows10X

您当前所在位置:首页 > 系统教程 > office应用教程

       

详解excel vba中文件系统对象的方法和属性

时间:2020-08-29 08:40:36     来源:系统堂     游览量:

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

  端子

上一篇:excel四舍五入函数公式应用方法详解
下一篇:outlook自动回复设置方法:Outlook 2007设置自动回复