FileAttr-FunktionFileAttr function

Gibt einen Long den Dateimodus für Dateien, die mithilfe der Open -Anweisung geöffnet.Returns a Long representing the file mode for files opened by using the Open statement.

SyntaxSyntax

FileAttr (Filenumber, Returntype)FileAttr(filenumber, returntype)


Die Syntax der FileAttr-Funktion enthält die folgenden benannten Argumente:The FileAttr function syntax has these named arguments:

TeilPart BeschreibungDescription
filenumberfilenumber Erforderlich; Ganze Zahl.Required; Integer. Eine gültige Dateinummer.Any valid file number.
ReturnTypereturntype Erforderlich; Ganze Zahl.Required; Integer. Zahl, die den Typ der Informationen zurückgeben.Number indicating the type of information to return. Geben Sie 1 ein, um einen Wert, der den Dateimodus zurück.Specify 1 to return a value indicating the file mode. Geben Sie auf 16-Bit-Systemen 2, um ein Betriebssystem-Dateihandle abzurufen.On 16-bit systems only, specify 2 to retrieve an operating system file handle. Returntype 2 wird in 32-Bit-Systemen nicht unterstützt und verursacht einen Fehler.Returntype 2 is not supported in 32-bit systems and causes an error.

RückgabewerteReturn values

Wenn das Returntype - Argument 1 ist, geben Sie die folgenden Rückgabewerte den Zugriffsmodus für die Datei an:When the returntype argument is 1, the following return values indicate the file access mode:

ModusMode WertValue
InputInput 11
AusgabeOutput 22
RandomRandom 44
AppendAppend 88
BinaryBinary 3232

BeispielExample

In diesem Beispiel wird die FileAttr -Funktion das Dateihandle Modus und den Dateinamen einer geöffneten Datei zurückgegeben.This example uses the FileAttr function to return the file mode and file handle of an open file. Das Dateihandle wird nur auf 16-Bit-Systemen zurückgegeben. auf 32-Bit-Systemen wird 2 als zweites Argument übergeben ein Fehler generiert.The file handle is returned only on 16-bit systems; on 32-bit systems, passing 2 as a second argument generates an error.

Dim FileNum, Mode, Handle
FileNum = 1    ' Assign file number.
Open "TESTFILE" For Append As FileNum    ' Open file.
Mode = FileAttr(FileNum, 1)    ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2)    ' Returns file handle.
Close FileNum    ' Close file.

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.