excel_vba_编程教程(完整版)-第53章
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
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〃）
Set objFolder = fs。GetFolder（〃C：”）
Workbooks。Add
For Each objFile In objFolder。Files
ActiveCell。Select
Selection。Formula = objFile。Name
ActiveCell。Offset（0； 1） _
。Range（〃A1〃）。Select
Selection。Formula = objFile。Type
ActiveCell。Offset（1； …1） _
。Range（〃A1〃）。Select
Next
Columns（〃A：B〃）。Select
Selectionlumns。AutoFit
End Sub
158
… 页面 17
