[精品]ASP中常用的22个FSO文件操作函数（7）

19.显示目录创建时信息 

Function ShowFolderAccessInfo(FolderName,InfoType)  
’//功能：显示目录创建时信息  
’//形参：目录名,信息类别  
’// 1 -----创建时间  
’// 2 -----上次访问时间  
’// 3 -----上次修改时间  
’// 4 -----目录路径  
’// 5 -----目录名称  
’// 6 -----目录类型  
’// 7 -----目录大小  
’// 8 -----父目录  
’// 9 -----根目录  
’//返回值：成功为目录创建时信息，失败：-1  
’//  
Dim f, s  
If ReportFolderStatus(FolderName) = 1 then  
Set f = fso.GetFolder(FolderName)  
select Case InfoType  
Case 1 s = f.Datecreated ’// 1 -----创建时间  
Case 2 s = f.DateLastAccessed ’// 2 -----上次访问  
时间  
Case 3 s = f.DateLastModified ’// 3 -----上次修改时间  
Case 4 s = f.Path ’// 4-----文件路径  
Case 5 s = f.Name ’// 5-----文件名称  
Case 6 s = f.Type ’// 6-----文件类型  
Case 7 s = f.Size ’// 7-----文件大小  
Case 8 s = f.ParentFolder ’// 8 -----父目录  
Case 9 s = f.RootFolder ’// 9 -----根目录  
End select  
ShowFolderAccessInfo = s  
ELse  
ShowFolderAccessInfo = -1  
End if  
End Function  

20.返回文件夹嵌套数

Function DisplayLevelDepth(pathspec)  
Dim f, n ,Path  
Set f = fso.GetFolder(pathspec)  
If f.IsRootFolder Then  
DisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder  
Else  
Do Until f.IsRootFolder  
Path = Path & f.Name &"<br>"  
Set f = f.ParentFolder  
n = n + 1  
Loop  
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & "的文件夹。<br />"&Path  
End If  
End Function  

21.判断指定磁盘驱动器是否存在？ 

’Response.Write ReportDriveStatus("C:\")  
Function ReportDriveStatus(drv)  
’//功能：判断磁盘是否存在  
’//形参：磁盘  
’//返回值：成功为1，失败为-1  
’//  
Dim msg  
msg = -1  
If fso.DriveExists(drv) Then  
msg = 1  
Else  
msg = -1  
End If  
ReportDriveStatus = msg  
End Function  

22.FSO返回指定磁盘可用的类型包括 FAT、NTFS 和 CDFS。 

’Response.Write ShowFileSystemType("C:\")  
Function ShowFileSystemType(drvspec)  
’//功能：磁盘类型  
’//形参：磁盘名  
’//返回值：成功为类型：FAT、NTFS 和 CDFS，失败：-1  
’//  
Dim d  
If ReportDriveStatus(drvspec) = 1 Then  
Set d = fso. GetDrive(drvspec)  
ShowFileSystemType = d.FileSystem  
ELse  
ShowFileSystemType = -1  
End if  
End Function