按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
2。 在模块WSH里，输入下述过程FileInfo：
Sub FileInfo（）
Dim fs As Object
Dim objFile As Object
Dim strMsg As String
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set objFile = fs。GetFile（〃C：WINNTSystem。ini〃） ‘ 译 者 ： 有 的 可 能 是
C：WindowsSystem。ini
strMsg = 〃File name： 〃 & _
objFile。Name & vbCrLf
strMsg = strMsg & 〃Disk： 〃 & _
objFile。Drive & vbCrLf
strMsg = strMsg & 〃Date Created：〃 & _
155
… 页面 172…
objFile。DateCreated & vbCrLf
strMsg = strMsg & 〃Date Modified：〃 & _
objFile。DateLastModified & vbCrLf
MsgBox strMsg； ； 〃File Information〃
End Sub
上面显示的过程FileInfo使用VBA函数CreateObject来创建一个ActiveX对象（FileSystemObject），
该对象提供访问电脑文件系统的路径
Dim fs As Object
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
上面的代码声明了一个对象变量，名为fs。然后使用函数CreateObject创建一个ActiveX对象并且
将该对象赋予对象变量。上面程序的第二行代码
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。Dr