Redefinir função
Fecha todos os arquivos de disco abertos usando a função FileOpen.
O recurso My dá a você maior produtividade e desempenho em operações de E/S de arquivos que Reset.Para obter mais informações, consulte Objeto My.Computer.FileSystem.
Public Sub Reset()
Comentários
A função Reset fecha todos os arquivos ativos abertos pela função FileOpen e tem a mesma função que FileClose() sem nenhum parâmetro.
Exemplo
Este exemplo usa a função Reset para fechar todos os arquivos abertos e gravar o conteúdo de todos os buffers de arquivo em disco.Observe o uso da variável ObjectFileNumber tanto como uma sequência de caracteres quanto como um número.
' Open 5 files named TEST1, TEST2, etc.
Dim fileNumber As Integer
' Open 5 files.
For fileNumber = 1 To 5
FileOpen(fileNumber, "TEST" & fileNumber, OpenMode.Output)
PrintLine(fileNumber, "Hello World")
Next fileNumber
' Close files and write contents to disk.
Reset()
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)