FSO系列之六**示例代码之详细代码1

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' showdrivetype'' 手段： '' 天生一个字符串，来刻画给定 drive 东西的启动器典型。'' 演示底下的实质'' - drive.drivetype'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''function showdrivetype(drive)dim sselect case drive.drivetypecase drivetyperemovables = "removable"case drivetypefixeds = "fixed"case drivetypenetworks = "network"case drivetypecdroms = "cd-rom"case drivetyperamdisks = "ram disk"case elses = "unknown"end selectshowdrivetype = send function'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' showfileattr'' 手段： '' 天生一个字符串，来刻画文献或文献夹的属性。'' 演示底下的实质'' - file.attributes' - folder.attributes'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''function showfileattr(file) ' file 不妨是文献或文献夹dim sdim attrattr = file.attributesif attr = 0 thenshowfileattr = "normal"exit functionend ifif attr and fileattrdirectorythen 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 fileattrarchivethen s = s & "archive "if attr and fileattraliasthen s = s & "alias "if attr and fileattrcompressed then s = s & "compressed "showfileattr = send 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 drivesdim drivedim sset drives = fso.drivess = "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, "-") & newlinefor each drive in drivess = s & drive.driveletters = s & tabstop & drive.paths = s & tabstop & showdrivetype(drive)s = s & tabstop & drive.isreadyif drive.isready thenif drivetypenetwork = drive.drivetype thens = s & tabstop & drive.sharename elses = s & tabstop & drive.volumename end ifs = s & tabstop & drive.filesystems = s & tabstop & drive.totalsizes = s & tabstop & drive.freespaces = s & tabstop & drive.availablespaces = s & tabstop & hex(drive.serialnumber)end ifs = s & newlinenextgeneratedriveinformation = send function'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' generatefileinformation'' 手段： '' 天生一个字符串，来刻画文献的暂时状况。'' 演示底下的实质'' - file.path' - file.name' - file.type' - file.datecreated' - file.datelastaccessed' - file.datelastmodified' - file.size' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''function generatefileinformation(file)dim ss = newline & "path:" & tabstop & file.paths = s & newline & "name:" & tabstop & file.names = s & newline & "type:" & tabstop & file.types = s & newline & "attribs:" & tabstop & showfileattr(file)s = s & newline & "created:" & tabstop & file.datecreateds = s & newline & "accessed:" & tabstop & file.datelastaccesseds = s & newline & "modified:" & tabstop & file.datelastmodifieds = s & newline & "size" & tabstop & file.size & newlinegeneratefileinformation = send function'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' generatefolderinformation'' 手段： '' 天生一个字符串，来刻画文献夹的暂时状况。'' 演示底下的实质'' - folder.path' - folder.name' - folder.datecreated' - folder.datelastaccessed' - folder.datelastmodified' - folder.size' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''function generatefolderinformation(folder)dim ss = "path:" & tabstop & folder.paths = s & newline & "name:" & tabstop & folder.names = s & newline & "attribs:" & tabstop & showfileattr(folder)s = s & newline & "created:" & tabstop & folder.datecreateds = s & newline & "accessed:" & tabstop & folder.datelastaccesseds = s & newline & "modified:" & tabstop & folder.datelastmodifieds = s & newline & "size:" & tabstop & folder.size & newlinegeneratefolderinformation = send function