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
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
您大概感乐趣的文章: