fClose (Function)

ONLINE HELP
WINDEV, WEBDEV AND WINDEV MOBILE

Version:

Home | Sign in | English

This content has been translated automatically. Click here to view the French version.

Help / WLanguage / WLanguage functions / Standard functions / External file functions

Closing a file opened several times
Closing a locked file

WINDEV

WEBDEV

WINDEV Mobile

Others

See also

fClose (Function)

In french: fFerme

Closes an external file.

Example

See additional examples

// Ouverture d'un fichier externe
IDFichier is int
ResFerme is int
IDFichier = fOpen("C:\MesRépertoires\Fichier.txt", foReadWrite)
IF IDFichier <> -1 THEN
	...
	// Fermeture du fichier externe
	ResFerme = fClose(IDFichier)
END

ResFerme is int
// Ouverture d'un fichier externe
MonFichierTxt is DiskFile
fOpen(MonFichierTxt, "C:\MesRépertoires\Fichier.txt", foReadWrite)
IF NOT ErrorOccurred THEN
	...
	// Fermeture du fichier externe
	ResFerme = fClose(MonFichierTxt)
END

Syntax

<Result> = fClose(<File used>)

<Result>: Integer

0 is the external file is closed,
-1 if an error occurred. To get more details on the error, use ErrorInfo with the errMessage constant. fClose throws an error if the file is not opened.

<File used>: Integer or DiskFile variable

Identifier of the file to use, defined by fOpen or fCreate.
Name of the DiskFile variable initialized with fOpen or fCreate.
Not available.
This parameter must be a variant.

Remarks

Closing a file opened several times

The same file can be opened several times simultaneously. Each version of the file must be closed individually via its own identifier.

Closing a locked file

A blocked file is automatically unblocked when you close it.

Reminder The fLock function is used to block an external file. fUnlock is used to unlock an external file.

Related Examples:

Unit examples (WINDEV): Handling text files

[ + ] Handling "text" files with WINDEV:
- Create a text file
- Write into a text file
- Read in a text file

Unit examples (WEBDEV): Handling text files

[ + ] This example explains how to handle "non HFSQL" files with WEBDEV and it allows you to:
- Create a text file
- Write into a text file
- Read in a text file

Unit examples (WINDEV Mobile): Handling text files

[ + ] Handling external "text" files:
- Create a text file
- Write into a text file
- Read in a text file

Business / UI classification: Business Logic

Component: wd300std.dll

See also

Minimum version required

Version 9

This page is also available for…

Comments

Exemplo ReadFile

PROCEDURE ReadFile(ArquivoTxt is string, TipoUnicodeToAnsi is string)

//Le arquivo texto
INFO(TIMESYS())

// Declare the variables
PathFile is string = ArquivoTxt
IdFile, ResCloseFile, FileID, NumeroLinha is int
Line is string

NextTitle("Atencao")

IF fFileExist(ArquivoTxt) = true

// Open the file
FileID = fOpen(PathFile,foReadWrite)
IF IdFile = -1 THEN
Error(ErrorInfo(errMessage))
ELSE

if TipoAnsiUnicode = "UnicodeToAnsi"
//Converte de Unicode para Ansi
Line = UnicodeToAnsi(fReadLine(FileID))
else
Line = fReadLine(FileID)
end

//Linha 1
NumeroLinha = 1
/// ----COLOQUE AQUI O PROGRESS BAR = 1
//Info("Linha:" + NumeroLinha, Line) ///----------------- LINHA LIDA
//Inclua aqui a SUB Procedure de importacao dos dados

WHILE Line <> EOT AND Line <> ""

//Proxima linha
NumeroLinha += 1
/// ----COLOQUE AQUI O PROGRESS BAR + 1
Line = fReadLine(FileID)
//Info("Linha:" + NumeroLinha, Line) ///----------------- LINHA LIDA
//Inclua aqui a SUB Procedure de importacao dos dados
END
IF Line = "" THEN Error(ErrorInfo(errMessage))
IF Line = EOT THEN Info("Final do Arquivo.")
ResCloseFile = fClose(IdFile)
IF ResCloseFile = -1 THEN
//Error(ErrorInfo(errMessage))
END

END

ELSE
Info("Arquivo não encontrado!")
END

info(NumeroLinha,TIMESYS())

adrianoboller

21 Feb. 2015

Last update: 03/27/2025

Send a report | Local help