Função FileClose

Artigo
08/25/2010

Conclui a entrada/saída (E/s) em um arquivo aberto usando o FileOpen função.

Usando My dá a você maior produtividade e desempenho em operações de E/s de arquivos. Consulte Objeto My.Computer.FileSystem para obter mais informações.

Public Sub FileClose(ParamArray FileNumbers() As Integer)

Parâmetros

FileNumbers
Opcional.Matriz de parâmetro de 0 ou mais canais a ser fechado.

Exceções

Tipo de exceção	Número de erro	Condição
IOException	52	FileNumber não existe.

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

A função FileClose é fornecida para compatibilidade com versões anteriores e pode afetar o desempenho.Para aplicações novas, o objeto My.Computer.FileSystem fornece melhor performance.Para obter mais informações, consulte Access de Arquivo com o Visual Basic.

Se você omitir FileNumbers, todos os arquivos ativo abertos pela FileOpen função são fechadas.

Quando você fechar arquivos que foram abertos para Output ou Append, o buffer de saída final é gravado o buffer de sistema operacional para esse arquivo. Todos buffer espaço associado a fechado arquivo seja liberado.

Quando o FileClose função é executada, a associação de um arquivo com seu arquivo de número de extremidades.

Exemplo

Este exemplo usa o FileClose função para fechar um arquivo aberto para Input.

Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file.
Do While Not EOF(1)   ' Loop until end of file.
   TextLine = LineInput(1)   ' Read line into variable.
   MsgBox(TextLine)   ' Display the line
Loop
FileClose(1)   ' Close file.