FileSystemObject 示例代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ' ''GenerateDriveInformation ''目的： ''生成一个字符串，来描述可用驱动器的当前状态。 ''示范下面的内容 ''-FileSystemObject.Drives ''-IteratingtheDrivescollection ''-Drives.Count ''-Drive.AvailableSpace ''-Drive.DriveLetter ''-Drive.DriveType ''-Drive.FileSystem ''-Drive.FreeSpace ''-Drive.IsReady ''-Drive.Path ''-Drive.SerialNumber ''-Drive.ShareName ''-Drive.TotalSize ''-Drive.VolumeName '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''FunctionGenerateDriveInformation(FSO)DimDrives DimDrive DimSSetDrives=FSO.Drives S="Numberofdrives:"&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,"-")&NewLineForEachDriveInDrives S=S&Drive.DriveLetter S=S&TabStop&Drive.Path S=S&TabStop&ShowDriveType(Drive) S=S&TabStop&Drive.IsReadyIfDrive.IsReadyThen IfDriveTypeNetwork=Drive.DriveTypeThen S=S&TabStop&Drive.ShareName Else S=S&TabStop&Drive.VolumeName EndIf 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) EndIfS=S&NewLineNextGenerateDriveInformation=SEndFunction'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''' ''GenerateFileInformation ''目的： ''生成一个字符串，来描述文件的当前状态。 ''示范下面的内容 ''-File.Path ''-File.Name ''-File.Type ''-File.DateCreated ''-File.DateLastAccessed ''-File.DateLastModified ''-File.Size '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''FunctionGenerateFileInformation(File)DimSS=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&NewLineGenerateFileInformation=SEndFunction'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''GenerateFolderInformation ''目的： ''生成一个字符串，来描述文件夹的当前状态。 ''示范下面的内容 ''-Folder.Path ''-Folder.Name ''-Folder.DateCreated ''-Folder.DateLastAccessed ''-Folder.DateLastModified ''-Folder.Size ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS教程：VBScript 基础-VBScript 变量下一篇: 脚本编程 4 驱动器
关于FileSystemObject 示例代码的所有评论
