49 references to OpenMode
Microsoft.VisualBasic (1)
Microsoft.VisualBasic.cs (1)
67[assembly: System.Runtime.CompilerServices.TypeForwardedTo(typeof(Microsoft.VisualBasic.OpenMode))]
Microsoft.VisualBasic.Core (48)
Microsoft\VisualBasic\CompilerServices\VB6BinaryFile.vb (2)
79Public Overrides Function GetMode() As OpenMode 80Return OpenMode.Binary
Microsoft\VisualBasic\CompilerServices\VB6File.vb (10)
486If (m_lRecordLen = -1) OrElse (GetMode() <> OpenMode.Random) Then 726Public MustOverride Function GetMode() As OpenMode 732Dim FileOpenMode As OpenMode 740If FileOpenMode = OpenMode.Binary Then 747ElseIf FileOpenMode = OpenMode.Input Then 764If FileOpenMode = OpenMode.Binary Then 854Dim mode As OpenMode 858If mode = OpenMode.Input OrElse 859mode = OpenMode.Binary OrElse 860mode = OpenMode.Random Then
Microsoft\VisualBasic\CompilerServices\VB6InputFile.vb (2)
75Public Overrides Function GetMode() As OpenMode 76Return OpenMode.Input
Microsoft\VisualBasic\CompilerServices\VB6OutputFile.vb (3)
118Public Overrides Function GetMode() As OpenMode 120GetMode = OpenMode.Append 122GetMode = OpenMode.Output
Microsoft\VisualBasic\CompilerServices\VB6RandomFile.vb (3)
111If GetMode() = OpenMode.Binary Then 158Public Overrides Function GetMode() As OpenMode 159GetMode = OpenMode.Random
Microsoft\VisualBasic\FileSystem.vb (28)
461VB6CheckPathname(oAssemblyData, PathName, OpenMode.Input) 505Private Sub ValidateMode(ByVal Mode As OpenMode) 506If Mode <> OpenMode.Input AndAlso 507Mode <> OpenMode.Output AndAlso 508Mode <> OpenMode.Random AndAlso 509Mode <> OpenMode.Append AndAlso 510Mode <> OpenMode.Binary Then 524ByVal Mode As OpenMode, 1188Public Function FileAttr(ByVal FileNumber As Integer) As OpenMode 1202OldPath = VB6CheckPathname(oAssemblyData, OldPath, CType(OpenModeTypes.Any, OpenMode)) 1203NewPath = VB6CheckPathname(oAssemblyData, NewPath, CType(OpenModeTypes.Any, OpenMode)) 1263Private Function OpenModeTypesFromOpenMode(ByVal om As OpenMode) As OpenModeTypes 1264If (om = OpenMode.Input) Then 1266ElseIf (om = OpenMode.Output) Then 1268ElseIf (om = OpenMode.Append) Then 1270ElseIf (om = OpenMode.Binary) Then 1272ElseIf (om = OpenMode.Random) Then 1315Friend Function VB6CheckPathname(ByVal oAssemblyData As AssemblyData, ByVal sPath As String, ByVal mode As OpenMode) As String 1336Dim mode As OpenMode 1359If (NewFileMode Or mode) <> OpenMode.Input Then 1375ByVal Mode As OpenMode, 1402If Mode = OpenMode.Binary Then 1405If Mode = OpenMode.Random Then 1441Case OpenMode.Input 1446Case OpenMode.Output 1451Case OpenMode.Random 1456Case OpenMode.Append 1461Case OpenMode.Binary