Freigeben über


FileAttr-Funktion

Aktualisiert: November 2007

Gibt eine Enumeration zurück, die den Dateimodus der mit der FileOpen-Funktion geöffneten Dateien darstellt.

Das My.Computer.FileSystem-Objekt ermöglicht bei Datei-E/A-Vorgängen höhere Produktivität und Leistungsfähigkeit als FileAttr . Weitere Informationen finden Sie unter My.Computer.FileSystem.GetFileInfo-Methode.

Public Function FileAttr(ByVal FileNumber As Integer) As OpenMode

Parameter

  • FileNumber
    Erforderlich. Integer. Beliebige gültige Dateinummer.

Ausnahmen

Ausnahmetyp

Fehlernummer

Bedingung

IOException

52

FileNumber ist nicht vorhanden.

IOException

54

Dateimodus ist ungültig.

Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.

Rückgabewert

Die folgenden Enumerationswerte geben den Dateizugriffsmodus an:

Wert

Modus

1

OpenMode.Input

2

OpenMode.Output

4

OpenMode.Random

8

OpenMode.Append

32

OpenMode.Binary

Hinweise

Diese Funktion gibt eine Enumeration zurück, die den Dateimodus der mit der FileOpen-Funktion geöffneten Dateien darstellt.

Beispiel

In diesem Beispiel wird mit der FileAttr-Funktion der Dateimodus einer geöffneten Datei zurückzugeben.

Dim mode As OpenMode
FileOpen(1, "c:\TESTFILE.TXT", OpenMode.Input)
mode = FileAttr(1)
MsgBox("The file mode is " & mode.ToString())
FileClose(1)

Hinweise für Entwickler intelligenter Geräte

Diese Funktion wird nicht unterstützt.

Anforderungen

Namespace:Microsoft.VisualBasic

**Modul:**FileSystem

**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

Siehe auch

Referenz

GetAttr-Funktion

FileOpen-Funktion

SetAttr-Funktion

IOException

Weitere Ressourcen

Datei-, Verzeichnis- und Laufwerkseigenschaften in Visual Basic