excel_vba_编程教程(完整版)-第47部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
将该对象赋予对象变量。上面程序的第二行代码
Set objFile = fs。GetFile（〃C：WINNTSystem。ini〃）；
创建和返回对C：、WINNT的System。ini文件对象的引用，并且将其赋值给对象变量objFile。你可以
读取File对象的很多属性，例如，objFile。Name语句返回该文件的完整文件名，语句objFile。Drive
返回该文件所处的硬盘名称，语句objFile。DateCreated和objFile。DateLastModified分别返回该
文件的创建日期和最后一次修改日期。这个程序可以容易地修改成返回文件类型，属性和它的父文
件夹的名称。请试图使用下述指令你自己修改该过程：objFile。Type； objFile。Attributes；
objFile。ParentFolder以及 objFile。Size。在对象浏览器里面点击File对象，看看关于文件，你
还可以学习到别的什么。
25。FileSystemObjec 的方法和属性
FileSystemObjedt是个ActiveX控件，提供了到计算机文件系统的访问。该对象提供了很多种方法，
表8…3里面列出了其中的一些。
方法 描述
FileExists 如果文件存在就返回True
Sub FileExists（）
Dim fs As Object
Dim strFile As String
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
strFile = InputBox（〃Enter the full name of the
file：〃）
If fs。FileExists（strFile） Then
MsgBox strFile & 〃 was found。〃
Else
MsgBox 〃File does not exist。〃
End If
End Sub
GetFile 返回一对象File
GetFileName 返回带路径文件名
GetFileVersion 返回文件版本
CopyFile 复制文件
Sub CopyFile（）
Dim fs As Object
Dim strFile As String
Dim strNewFile As String
strFile = 〃C：Hello。doc〃
strNewFile = 〃C：Program FilesHello。doc〃
Set fs =
156
… 页面 173…
CreateObject（〃Scripting。FileSystemObject〃）
fspyFile strFile； strNewFile
MsgBox 〃A copy of the specified file was
created。〃
Set fs = Nothing
End Sub
MoveFile 移动文件
DeleteFile 删除文件
Sub DeleteFile（）
Dim fs As FileSystemObject
Set fs = New FileSystemObject
fs。DeleteFile 〃C：Program FilesHello。doc〃
MsgBox 〃The requested file was deleted。〃
End Sub
DriveExists 如给定硬盘存在则返回True
Function DriveExists（disk）
Dim fs As Object
Dim strMsg As String
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
If fs。DriveExists（disk） Then
strMsg = 〃Drive 〃 & UCase（disk） & 〃 exists。〃
Else
strMsg = UCase（disk） & 〃 was not found。〃
End If
DriveExists = strMsg
' run this function from the worksheet
' by entering in any cell the following：
=DriveExists（〃E：”）
End Function
GetDrive 返回对象Drive
Sub DriveInfo（）
Dim fs； disk； infoStr； strDiskName
strDiskName = InputBox（〃Enter the drive
letter：〃； _
〃Drive Name〃； 〃C：”）
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
Set disk =
fs。GetDrive（fs。GetDriveName（strDiskName））
infoStr = 〃Drive： 〃 & UCase（strDiskName） &
vbCrLf
infoStr = infoStr & 〃Drive letter： 〃 & _
UCase（disk。DriveLetter） & vbCrLf
infoStr = infoStr & 〃Drive Type： 〃 &
disk。DriveType & vbCrLf
infoStr = infoStr & 〃Drive File System： 〃 & _
disk。FileSystem & vbCrLf
infoStr = infoStr & 〃Drive SerialNumber： 〃 & _
disk。SerialNumber & vbCrLf
157
… 页面 174…
infoStr = infoStr & 〃Total Size in Bytes： 〃 &
_
FormatNumber（disk。TotalSize / 1024； 0） & 〃 Kb〃
& vbCrLf
infoStr = infoStr & 〃Free Space on Drive： 〃 &
_
FormatNumber（disk。FreeSpace / 1024； 0） & 〃 Kb〃
& vbCrLf
MsgBox infoStr； vbInformation； 〃Drive
Information〃
End Sub
GetDriveName 返回一个含有硬盘名称或者网络共享名称的字符串
Function DriveName（disk）
Dim fs As Object
Dim strDiskName As String
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
strDiskName = fs。GetDriveName（disk）
DriveName = strDiskName
' run this function from the Immediate window
' by entering ？DriveName（〃D：”）
End Function
FolderExists 如文件夹存在则返回True
Sub DoesFolderExist（）
Dim fs As Object
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
MsgBox fs。FolderExists（〃C：Program Files〃）
End Sub
GetFolder 返回对象Folder
Sub FilesInFolder（）
Dim fs As Object
Dim objFolder As Object
Dim objFile As Object
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
