Table of contents
TOC
Recolher sumário
Expandir sumário

Função FreeFileFreeFile Function

office 365 dev account|Última Atualização: 26/03/2018
|
2 Colaboradores

Retorna um inteiro que representa o próximo número de arquivo disponíveis para uso pela instrução Open .Returns an Integer representing the next file number available for use by the Open statement.SintaxeFreeFile [ (rangenumber) ] O argumento opcional rangenumber é umVariant que especifica o intervalo do qual o próximo número de arquivo livre a ser retornado.SyntaxFreeFile [ (rangenumber) ] The optional rangenumber argument is aVariant that specifies the range from which the next free file number is to be returned.Especifique 0 (padrão) para retornar um número de arquivo no intervalo de 1 a 255, inclusive.Specify a 0 (default) to return a file number in the range 1 - 255, inclusive.Especifique 1 para retornar um número de arquivo no intervalo 256-511.Specify a 1 to return a file number in the range 256 - 511.Comentários Use FreeFile para fornecer um número de arquivo que não ainda esteja em uso.Remarks Use FreeFile to supply a file number that is not already in use.

ExemploExample

Este exemplo usa a função FreeFile para retornar o próximo número de arquivo disponíveis.This example uses the FreeFile function to return the next available file number.Cinco arquivos abertos para saída dentro do loop, e alguns dados de exemplo são gravados em cada um.Five files are opened for output within the loop, and some sample data is written to each.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    FileNumber = FreeFile    ' Get unused file
        ' number.
    Open "TEST" &; MyIndex For Output As #FileNumber    ' Create file name.
    Write #FileNumber, "This is a sample."    ' Output text.
    Close #FileNumber    ' Close file.
Next MyIndex

© 2018 Microsoft