文件、目录，文本文件等多种操作类

时间
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 &"<br>"
Set f = f.ParentFolder
n = n 1
Loop
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & " 的文件夹。<br>"&

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

'--------可用的返回类型包括 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
End Class
%>

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!