UtterAccess HomeUtterAccess Wiki

Welcome Guest ( Log In | Register )

Custom Search
Edit Discussion
> Sys AC VerifyDriveExists    
CODE

' Code courtesy of UtterAccess Wiki
' http://www.utteraccess.com/wiki/index.php/Category:FunctionLibrary
' Original submission by Pacala_Ba
' 2010, August 11th
'
' You are free to use it in any application,
' provided this copyright notice is left unchanged.
'
'
' --------------------- Example calls -----------------
'? Sys_AC_VerifyDriveExists(gkc_DriveBackEnd,"BackEnd",bAC_Quit:=False)
'
'
'Example Constants used to for arguments
'Public Const gkc_DriveFrontEnd = "C" ' DATABASE CONTROLS WITHOUT TABLES
'Public Const gkc_DriveTempEnd = "D"  ' DATABASE USER TEMPORARY TABLES
'Public Const gkc_DriveBackEnd = "Z"  ' DATABASE TABLES
'Public Const gkc_DriveUserEnd = "Z"  ' DATABASE SECURE WorkgroupFile
'
'
Public Function Sys_AC_VerifyDriveExists(cDrive As String, _
  Optional cMsgText As String = "", _
  Optional bAC_Quit As Boolean = False, _
  Optional cNote As String = "Input: Drive/Path") As Boolean
On Error GoTo LBL_xPAC_ERR

Dim ll_Ret As Boolean, lcDrive As String, oFS As Object

lcDrive = Trim$(Left$(cDrive, 1))

If Len(lcDrive) = 0 Then
  Err.Raise 1000, "Sys_AC_VerifyDriveExists", "Drive name is **EMPTY** !"
Else
  Set oFS = CreateObject("Scripting.FileSystemObject")
  ll_Ret = oFS.DriveExists(lcDrive)

  If Not ll_Ret Then
      MsgBox "'" & cDrive & "', Drive **NOT EXISTS** !" & vbCrLf & cMsgText, _
      vbCritical, "Sys_AC_VerifyDriveExists"

      If bAC_Quit Then
          Application.Quit
      End If

  End If

End If

LBL_xPAC_END:
  Set oFS = Nothing
Sys_AC_VerifyDriveExists = ll_Ret
  Exit Function
LBL_xPAC_ERR:
MsgBox "Err: " & Err & "," & Err.Description, vbCritical, "Sys_AC_VerifyDriveExists"
  Resume LBL_xPAC_END
  Resume Next
  Resume
End Function


Creative Commons License
Sys AC VerifyDriveExists by UtterAccess Wiki is licensed under a Creative Commons Attribution-ShareAlike 3.0 Unported License.
Editing and revision of the content is freely encouraged; for details, see Expected Usage.

Edit Discussion
Custom Search
Thank you for your support!
This page has been accessed 3,410 times.  This page was last modified 09:43, 6 April 2011 by Jack Leach.   Disclaimers