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!