Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehreren Dateien ein Attribut zuweisen

Forumthread: mehreren Dateien ein Attribut zuweisen

mehreren Dateien ein Attribut zuweisen
21.07.2017 00:28:35
reiner
Hallo Leute,
wie kann ich mehreren Dateien in einem Ordner das Attribut „Versteckt“ oder „Schreibgeschützt“ zuweisen bzw.wieder entfernen ohne die Dateien mit ihrem Dateinamen anzusprechen?
Ist das überhaupt möglich?
mfG
reiner
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehreren Dateien ein Attribut zuweisen
21.07.2017 05:39:58
Hajo_Zi
Hallo Reiner,
ich würde vermuten das geht nicht, da es nur einzelne sein sollen.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Anzeige
AW: mehreren Dateien ein Attribut zuweisen
21.07.2017 13:17:11
reiner
hallo Hajo,
ich denke man sollte in jedem Fall eine Rückmeldung geben, was ich hiermit tue
ich werde die nachfolgenden Vorschläge prüfen und schauen ob sie funktionieren oder nicht
ein schönes Wochenende
reiner
Das geht z. B. über...
21.07.2017 07:14:57
Case
Hallo Reiner, :-)
... "Attrib": ;-)
Option Explicit
Sub Main()
ChDrive "C:\"
ChDir "C:\Temp\Datei\"
CreateObject("WScript.Shell").Run "CMD /C attrib -s -h -r  /S", 0, True
End Sub
Mit "+" setzt Du die Attribute und mit "-" nimmst Du sie weg. ;-)
Du kannst auch mal nach "SetAttr" bzw. "GetAttr" suchen.
Servus
Case
Anzeige
warum xl, wenn auch DOS geht? owT
21.07.2017 08:27:38
Fennek
AW: Das geht z. B. über...
21.07.2017 13:37:44
reiner
hallo Case,
danke für deinen Beitrag, der mich zwar darin ermutigt dass es grundsätzlich funktioniert, mich gleichzeitig etwas ratlos macht bezüglich der Umsetzung.
Es geht um das automatisierte Einlesen von 5 txt-Dateien (nacheinander), bei denen der Dateiname teils immer gleich bleibt gefolgt von einem Datumszusatz der sich immer ändert.
Derzeit lese ich die Dateien wie folgt ein:
Pfad = "D:\Excel\Allgemei\TRXY AG\Testdateien\"
Datei = "Verbindungsd13_" (die Datei heißt z.B.: Verbindungsd13_20170707.txt
Dateiname = Dir(Pfad & Datei & "*.txt")
die 4 folgenden Dateien heißen fortlaufend: "Verbindungsd14_"; "Verbindungsd15_"; "Verbindungsd16_"; "Verbindungsd17_";
ich habe festgestellt dass nach dem Einlesen unter Umständen das "Versteckt-Attribut" der jeweiligen Datei zugeordnet wird und möchte dass die Dateien (im Unterordner) auf das Attribut "Versteckt" überprüft werden, soweit vorhanden sollte das jedoch automatisch entfernt werden.
wenn du Zeit und Lust hast würde ich mich über einen Lösungsansatz freuen
reiner
Anzeige
Du kannst doch...
21.07.2017 15:03:34
Case
Hallo Reiner, :-)
... die - angepassten - Codezeilen einfach laufenlassen. Ist das Attribut gesetzt wird es weggenommen, sonst passiert nichts - es wird dann kein Fehler generiert. ;-)
Servus
Case
AW: Du kannst doch...
21.07.2017 15:14:15
reiner
hallo Case,
ich werde es testen, allerdings frühestens am Montag
dir ein schönes Wochenende
reiner
Anzeige
AW: Du kannst doch...
21.07.2017 15:21:38
reiner
hallo Case,
ich war neugierig und habe deinen Code doch noch auf die Schnelle getestet;
bin begeistert, super
Problem gelöst, danke
reiner

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige