FILEATTR |
FILEATTR(filenumber, returntype) |
Returns the file mode of the specified open file (Long). |
filenumber | The number of the file (Integer). |
returntype | The number indicating the type of information to return (Integer): 1 = Returns a value indicating the file mode (32 bit systems) (default) 2 = Returns an operating system file handler (16 bit systems) |
REMARKS |
* The value returned can be one of the following: * 1 = Input * 2 = Output * 4 = Random * 8 = Append * 32 = Binary * If "filenumber" is not valid, then a run-time error will be generated. * This function returns the file mode for files opened using the Open statement. * Can be used to determine the current attributes of an open file. * You can use the CLOSE statement to close a text file. * You can use the FILEDATETIME function to return the date and time a file was created or last modified. * You can use the GETATTR function to return the attributes of a file or directory. * You can use the OPEN statement to open a text file. * The equivalent .NET function is Microsoft.VisualBasic.FileSystem.FileAttr * For the Microsoft documentation refer to learn.microsoft.com |
Dim lfileno As Long
Dim lmode As Long
lfileno = 1
Open "C:\Temp\mytext.txt" For Input As lfileno
lmode = FileAttr(lfileno, 1)
Debug.Print lmode '1 for Input
Close lfileno
lfileno = 2
Open "C:\Temp\mytext.txt" For Output As lfileno
lmode = FileAttr(lfileno, 1)
Debug.Print lmode '2 for Output
Close lfileno
lfileno = 3
Open "C:\Temp\mytext.txt" For Append As lfileno
lmode = FileAttr(lfileno, 1)
Debug.Print lmode '8 for Append
Close lfileno
© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited Top