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 desbloquearFromRecord
Opcional.Número da primeira gravação ou byte para bloquear ou desbloquearToRecord
Opcional.Número da última gravação ou byte para bloquear ou desbloquear
Exceções
Tipo de exceção |
Número de erro |
Condição |
---|---|---|
FileNumber não existe. |
||
Modo de arquivo é inválido. |
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)