|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.02.2022 13:30:37 |
Paul |
|
|
|
14.02.2022 15:21:55 |
Gast78637 |
|
|
|
14.02.2022 15:27:22 |
Paul |
|
|
 Abfrage Attribute und falls gesetzt entfernen |
14.02.2022 22:19:21 |
xlKing |
|
|
|
15.02.2022 11:15:04 |
Paul |
|
|
Von:
xlKing |
Datum:
14.02.2022 22:19:21 |
Views:
420 |
Rating:
|
Antwort:
|
Thema:
Abfrage Attribute und falls gesetzt entfernen |
|
Hallo Paul,
Attribute können nur positiv sein. Du ziehst von einer Datei, die nur das Attribut 32 enthält, die Zahl 33 ab und weist somit das Attribut -1 zu. Das geht natürlich nicht. Oder doch? Bei einer solchen Zuweisung rechnet das Filesystem-Objekt offenbar rückwärts und zieht 1 vom höchstmöglichen Attribut ab. Ergebnis: Alle Attribute werden gesetzt. Wirklich alle? Nein, denn die Attribute 8 und 16 sowie 1028 und 2048 sind schreibgeschützt und werden deshalb nicht gesetzt. Also wird nur die Zahl 39 = 1+2+4+32 zugewiesen. In diesem Fall wird also die Datei auch versteckt (Attribut 2). Soweit zumindest meine Theorie.
Praktisch solltest du aber negative Zuweisungen vermeiden. Probiers stattdessen mal so:
f.Attributes = f.Attributes - IIf(CBool(f.Attributes And 32), 32, 0) - IIf(CBool(f.Attributes And 1), 1, 0)
In diesem Fall werden die Attribute 1 und 32 einzeln auf ihr Vorhandensein geprüft und nur wenn vorhanden abgezogen.
Gruß Mr. K.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.02.2022 13:30:37 |
Paul |
|
|
|
14.02.2022 15:21:55 |
Gast78637 |
|
|
|
14.02.2022 15:27:22 |
Paul |
|
|
Abfrage Attribute und falls gesetzt entfernen |
14.02.2022 22:19:21 |
xlKing |
|
|
|
15.02.2022 11:15:04 |
Paul |
|
|