Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schreibschutz

Schreibschutz
10.09.2002 15:36:16
kviertel
Hallo,

ich suche eine Routine, die es mir ermöglicht in einem Aufwasch den Schreibschutz von Verzeichnissen und Dateien zu nehmen.
Hintergrund: Verzeichnisbaum mit Inhalt von CD einlesen und dann den mitgelieferten Schreibschutz entfernen (15 Verzeichnisse mit > 2000 Dateien). Mit Application.Filesearch und SetAttr werden zwar alle Dateien aber nicht die Verzeichnisse auf vbNormal gestellt (Lösung von Robert B. v. 3.6.2002 ).
Abgewandelte Routine sieht wie folgt aus

Sub Schreibschutzlöschen()
Set ws_main = Workbooks("sschutzl.xls").Worksheets("Main")

Dim i
With Application.FileSearch
ChDir ws_main.Range("D7").Value 'Ausgangs-Pfad wird hier eingeben
.NewSearch
.LookIn = ws_main.Range("D7").Value
.SearchSubFolders = True
.Filename = "*.*"
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
SetAttr .FoundFiles(i), vbNormal
Next i
End If
End With
End Sub


Hat vielleicht jemand schon so eine Lösung?

Danke!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Schreibschutz
10.09.2002 22:35:15
Robert B.
Hallo Klaus,


ich habe es zwar nicht explizit getestet.

Aber denoch ist für die Attribute von Verzeichnissen
die GetAttr-Funktion zu verwenden.
Auch die Themen Folder-Objekt, SubFolders-Eigenschaft
und RootFolder-Eigenschaft

kannst Du dir in der Hilfe mal ansehen.


Gruß Robert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige