IDC资讯中心
showdrivetype
目的：
生成一个字符串，来描述给定 drive 对象的驱动器类型。
示范下面的内容
– drive.drivetype
function showdrivetype(drive)
dim s
select case drive.drivetype
case drivetyperemovable
s = "removable"
case drivetypefixed
s = "fixed"
case drivetypenetwork
s = "network"
case drivetypecdrom
s = "cd-rom"
case drivetyperamdisk
s = "ram disk"
case else
s = "unknown"
end select
showdrivetype = s
end function
showfileattr
目的：
生成一个字符串，来描述文件或文件夹的属性。
示范下面的内容
– file.attributes
– folder.attributes
function showfileattr(file) file 可以是文件或文件夹
dim s
dim attr
attr = file.attributes
if attr = 0 then
showfileattr = "normal"
exit function
end if
if attr and fileattrdirectory then s = s & "directory "
if attr and fileattrreadonly then s = s & "read-only "
if attr and fileattrhidden then s = s & "hidden "
if attr and fileattrsystem then s = s & "system "
if attr and fileattrvolume then s = s & "volume "
if attr and fileattrarchive then s = s & "archive "
if attr and fileattralias then s = s & "alias "
if attr and fileattrcompressed then s = s & "compressed "
showfileattr = s
end function
generatedriveinformation
目的：
生成一个字符串，来描述可用驱动器的当前状态。
示范下面的内容
– filesystemobject.drives
– iterating the drives collection
– drives.count
– drive.availablespace
– drive.driveletter
– drive.drivetype
– drive.filesystem
– drive.freespace
– drive.isready
– drive.path
– drive.serialnumber
– drive.sharename
– drive.totalsize
– drive.volumename
function generatedriveinformation(fso)
dim drives
dim drive
dim s
set drives = fso.drives
s = "number of drives:" & tabstop & drives.count & newline & newline
构造报告的第一行。
s = s & string(2, tabstop) & "drive"
s = s & string(3, tabstop) & "file"
s = s & tabstop & "total"
s = s & tabstop & "free"
s = s & tabstop & "available"
s = s & tabstop & "serial" & newline
构造报告的第二行。
s = s & "letter"
s = s & tabstop & "path"
s = s & tabstop & "type"
s = s & tabstop & "ready?"
s = s & tabstop & "name"
s = s & tabstop & "system"
s = s & tabstop & "space"
s = s & tabstop & "space"
s = s & tabstop & "space"
s = s & tabstop & "number" & newline
分隔行。
s = s & string(105, "-") & newline
for each drive in drives
s = s & drive.driveletter
s = s & tabstop & drive.path
s = s & tabstop & showdrivetype(drive)
s = s & tabstop & drive.isready
if drive.isready then
if drivetypenetwork = drive.drivetype then
s = s & tabstop & drive.sharename
else
s = s & tabstop & drive.volumename
end if
s = s & tabstop & drive.filesystem
s = s & tabstop & drive.totalsize
s = s & tabstop & drive.freespace
s = s & tabstop & drive.availablespace
s = s & tabstop & hex(drive.serialnumber)
end if
s = s & newline
next
generatedriveinformation = s
end function
generatefileinformation
目的：
生成一个字符串，来描述文件的当前状态。
示范下面的内容
– file.path
– file.name
– file.type
– file.datecreated
– file.datelastaccessed
– file.datelastmodified
– file.size
function generatefileinformation(file)
dim s
s = newline & "path:" & tabstop & file.path
s = s & newline & "name:" & tabstop & file.name
s = s & newline & "type:" & tabstop & file.type
s = s & newline & "attribs:" & tabstop & showfileattr(file)
s = s & newline & "created:" & tabstop & file.datecreated
s = s & newline & "accessed:" & tabstop & file.datelastaccessed
s = s & newline & "modified:" & tabstop & file.datelastmodified
s = s & newline & "size" & tabstop & file.size & newline
generatefileinformation = s
end function
generatefolderinformation
目的：
生成一个字符串，来描述文件夹的当前状态。
示范下面的内容
– folder.path
– folder.name
– folder.datecreated
– folder.datelastaccessed
– folder.datelastmodified
– folder.size
function generatefolderinformation(folder)
dim s
s = "path:" & tabstop & folder.path
s = s & newline & "name:" & tabstop & folder.name
s = s & newline & "attribs:" & tabstop & showfileattr(folder)
s = s & newline & "created:" & tabstop & folder.datecreated
s = s & newline & "accessed:" & tabstop & folder.datelastaccessed
s = s & newline & "modified:" & tabstop & folder.datelastmodified
s = s & newline & "size:" & tabstop & folder.size & newline
generatefolderinformation = s
end function
