Asp中一些FSO方面的函数

uot; 的文件夹。<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


%>