47 references to OpenAccess
Microsoft.VisualBasic (1)
Microsoft.VisualBasic.cs (1)
66[assembly: System.Runtime.CompilerServices.TypeForwardedTo(typeof(Microsoft.VisualBasic.OpenAccess))]
Microsoft.VisualBasic.Core (46)
Microsoft\VisualBasic\CompilerServices\VB6BinaryFile.vb (3)
24Public Sub New(ByVal FileName As String, ByVal access As OpenAccess, ByVal share As OpenShare) 195If (m_access <> OpenAccess.ReadWrite) AndAlso (m_access <> OpenAccess.Read) Then
Microsoft\VisualBasic\CompilerServices\VB6File.vb (7)
337Friend m_access As OpenAccess 372Protected Sub New(ByVal sPath As String, ByVal access As OpenAccess, ByVal share As OpenShare, ByVal lRecordLen As Integer) 375If access <> OpenAccess.Read AndAlso 376access <> OpenAccess.ReadWrite AndAlso 377access <> OpenAccess.Write Then 2712If (m_access <> OpenAccess.ReadWrite) AndAlso (m_access <> OpenAccess.Read) Then
Microsoft\VisualBasic\CompilerServices\VB6InputFile.vb (1)
27MyBase.New(FileName, OpenAccess.Read, share, -1)
Microsoft\VisualBasic\CompilerServices\VB6OutputFile.vb (1)
29MyBase.New(FileName, OpenAccess.Write, share, -1)
Microsoft\VisualBasic\CompilerServices\VB6RandomFile.vb (15)
26Public Sub New(ByVal FileName As String, ByVal access As OpenAccess, ByVal share As OpenShare, ByVal lRecordLen As Integer) 33Private Sub OpenFileHelper(ByVal fm As FileMode, ByVal fa As OpenAccess) 64ElseIf m_access = OpenAccess.Read Then 70If m_access = OpenAccess.Default Then 72m_access = OpenAccess.ReadWrite 82m_access = OpenAccess.Write 91m_access = OpenAccess.Read 102If (m_access = OpenAccess.Write) OrElse (m_access = OpenAccess.ReadWrite) Then 108If (m_access = OpenAccess.Read) OrElse (m_access = OpenAccess.ReadWrite) Then 609If (m_access <> OpenAccess.ReadWrite) AndAlso (m_access <> OpenAccess.Write) Then 615If (m_access <> OpenAccess.ReadWrite) AndAlso (m_access <> OpenAccess.Read) Then
Microsoft\VisualBasic\FileSystem.vb (19)
486Private Sub ValidateAccess(ByVal Access As OpenAccess) 487If Access <> OpenAccess.Default AndAlso 488Access <> OpenAccess.Read AndAlso 489Access <> OpenAccess.ReadWrite AndAlso 490Access <> OpenAccess.Write Then 525Optional ByVal Access As OpenAccess = OpenAccess.Default, 1376ByVal Access As OpenAccess, 1442If (Access <> OpenAccess.Read) AndAlso (Access <> OpenAccess.Default) Then 1447If (Access <> OpenAccess.Write) AndAlso (Access <> OpenAccess.Default) Then 1452If (Access = OpenAccess.Default) Then 1453Access = OpenAccess.ReadWrite 1457If (Access <> OpenAccess.Write) AndAlso (Access <> OpenAccess.ReadWrite) AndAlso (Access <> OpenAccess.Default) Then 1462If (Access = OpenAccess.Default) Then 1463Access = OpenAccess.ReadWrite