ASP中一些FSO方面的函数(3)

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

%>

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有