Attribute VB_Name = "m_Barra_Tocuh"
Public rsBarra As New ADODB.Recordset
Public MStream As New ADODB.Stream
'Posicion en el plano X, cuales son los limites que debo tomar en cuenta
'Posicion virtual de la barra cuyes limites no puedo sobrepasar
Public gLngPosicionInicial As Long, gLngPosicionFinal As Long
'Longitudes maximas y minimas de la barra
Public gLngMinimo As Long, gLngMaximo As Long

'Posicion en el plano X, cuales son los limites que debo tomar en cuenta
'Posicion virtual de la barra cuyes limites no puedo sobrepasar
Public gLngPosicionInicialV As Long, gLngPosicionFinalV As Long
'Longitudes maximas y minimas de la barra
Public gLngMinimoV As Long, gLngMaximoV As Long
Public gStrImagenDefecto As String
Public gStrImagenMesaOcupada As String
Public gStrImagenMesaLibre As String
Public gStrRutaTeclado As String
Public gIntMaxMesa As Integer
Public Const WM_KEYDOWN As Long = &H100
Public gsTSMesa As String, glTSCorrelativo As Long
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
    
Public Function Archivo(sArchivo As String) As Boolean

On Error GoTo err_sub
Dim fso As Object
'Archivo = False
'Instanciar el objeto FSO para poder _
usar las funciones FileExists y FolderExists
Set fso = CreateObject("Scripting.FileSystemObject")

' Comprobar archivo
'MsgBox sArchivo
Archivo = fso.FileExists(sArchivo)

' Comprobar directorio
'MsgBox fso.FolderExists("c:\windows\")

'MsgBox fso.FolderExists("c:\windows\system32")
Set fso = Nothing
Exit Function
err_sub:
MsgBox Err.Description, vbCritical, "error al usar Fso"
Archivo = False
End Function
