Bloquear, desbloquear funções

Controla o acesso por outros processos a tudo ou a parte de um arquivo aberto usando a função Open.

O recurso My dá a você maior produtividade e desempenho em operações de E/S de arquivos que Lock e Unlock.Para obter mais informações, consulte Objeto My.Computer.FileSystem.

Public Overloads Sub Lock(ByVal FileNumber As Integer)
' -or-
Public Overloads Sub Unlock(ByVal FileNumber As Integer)
' -or-
Public Overloads Sub Lock(_
   ByVal FileNumber As Integer, _ 
   ByVal Record As Long _
)
' -or-
Public Overloads Sub Unlock( _
   ByVal FileNumber As Integer, _ 
   ByVal Record As Long _
)
' -or-
Public Overloads Sub Lock( _
   ByVal FileNumber As Integer, _ 
   ByVal FromRecord As Long, _ 
   ByVal ToRecord As Long _
)
' -or-
Public Overloads Sub Unlock( _
   ByVal FileNumber As Integer, _
   ByVal FromRecord As Long, _
   ByVal ToRecord As Long _
)

Parâmetros

• FileNumber
  Obrigatório.Qualquer número de arquivo válido.

• Record
  Opcional.Número da única gravação ou byte para bloquear ou desbloquear

• FromRecord
  Opcional.Número da primeira gravação ou byte para bloquear ou desbloquear

• ToRecord
  Opcional.Número da última gravação ou byte para bloquear ou desbloquear

Exceções

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

As funções Lock e Unlock são usadas em ambientes onde vários processos podem precisam acessar o mesmo arquivo.

As funções Lock e Unlock são sempre usadas em pares.Os argumentos de Lock e Unlock devem corresponder exatamente.

Se Record, ou FromRecord e ToRecord não são fornecidos, o bloqueio será para o arquivo inteiro.Se Record sozinho for especificado o único registro será bloqueada/desbloqueado.

Se o arquivo tiver sido aberto para entradas ou saídas sequenciais, Lock e Unlock afetam o arquivo inteiro, independentemente do intervalo especificado por FromRecord e ToRecord.

Exemplo

Este exemplo ilustra o uso das funções Lock e Unlock.Esse exemplo assume que People.txt seja um arquivo contendo registros da estrutura Person.

Structure Person
   Dim Name As String
   Dim ID As Integer
End Structure

Sub PutInLockedFile(ByVal index As Integer, ByVal onePerson As Person)
   Try
      FileOpen(1, "c:\people.txt", OpenMode.Binary)
      Lock(1)
      FilePut(index, onePerson)
      Unlock(1)
      FileClose(1)
   Catch
      ' Error recovery code here.
   End Try
End Sub

Anotações Developer Dispositivo Inteligente

Não há suporte para esta função.

Requisitos

Namespace:Microsoft.VisualBasic

**Módulo:**FileSystem

Assembly: Visual Basic Runtime Library (em Microsoft.VisualBasic.dll)

Consulte também

Referência

Função FileOpen

IOException

Outros recursos

Access de Arquivo com o Visual Basic