progress.bas

很实用的工资管理系统 很实用的工资管理系统

Attribute VB_Name = "progress"
Public Function FloppyDrive(sDrive As String) As Boolean
    On Error Resume Next
    FloppyDrive = Dir(sDrive) <> ""
End Function