ValidateDrive
Validates whether a given hard/floppy/network drive is valid
Inputs
strDrive--drive to validate
Returns
i the dirve exists returns TRUE, otherwise FALSE
Rate ValidateDrive
(2(2 Vote))
Function Validate_Drive (ByVal strDrive As String)
On Error GoTo BAD2
'Dim strOldDrive As String
'strOldDrive = Get_Drive_Name(CurDir$)
ChDrive (strDrive)
'ChDrive (strOldDrive)
On Error GoTo 0
Validate_Drive = True
Exit Function
BAD2:
Validate_Drive = False
Resume Exit2
Exit2:
Exit Function
End Function
ValidateDrive Comments
No comments yet — be the first to post one!
Post a Comment