ASP中常用的22个FSO文件操作函数整理(4)

'Response.Write ReportFolderStatus("G:\soft\delphi\my_pro\")
Function ReportFolderStatus(fldr)
'//功能：判断目录是否存在
'//形参：目录
'//返回值：成功为1，失败为-1
'//
Dim msg
msg = -1
If (fso.FolderExists(fldr)) Then
msg = 1
Else
msg = -1
End If
ReportFolderStatus = msg
End Function

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 

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 &"
"
Set f = f.ParentFolder
n = n + 1
Loop
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & "的文件夹。
"&Path
End If
End Function 

'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

'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