按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
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
… 页面 175…
GetSpecialFolder 返回操作系统文件夹路径：
0 — 视窗文件夹
1 — 系统文件夹
2 — 临时文件夹
Sub SpecialFolders（）
Dim fs As Object
Dim strWindowsFolder As String
Dim strSystemFolder As String
Dim strTempFolder As String
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
strWindowsFolder = fs。GetSpecialFolder（0）
strSystemFolder = fs。GetSpecialFolder（1）
strTempFolder = fs。GetSpecialFolder（2）
MsgBox strWindowsFolder & vbCrLf _
& strSystemFolder & vbCrLf _
& strTempFolder； vbInformation ＋ vbOKOnly； _
〃Special Folders〃
End Sub
CreateFolder 创建文件夹
Sub MakeNewFolder（）
Dim fs； objFolder
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
Set objFolder =
fs。CreateFolder（〃C：TestFolder〃）
MsgBox 〃A new folder named 〃 & _
objFolder。Name & 〃 was created。〃
End Sub
CopyFolder 复制文件夹
Sub MakeFolderCopy（）
Dim fs As FileSystemObject
Set fs = New FileSystemObject
If fs。FolderExists（〃C：TestFolder〃） Then
fspyFolder 〃C：TestFolder〃；
〃C：FinalFolder〃
MsgBox 〃The folder was copied。〃
End If
End Sub
MoveFolder 移动文件夹
DeleteFolder 删除文件夹
Sub RemoveFolder（）
Dim fs As FileSystemObject
Set fs = New FileSyste