InputBox
14.10.2002 11:44:33
Josef
Mit nachfolgendem Makro kann man bei den Eigenschaften einer Datei das Attribut "Schreibgeschützt" entfernen.
Gibt es vielleicht hierzu eine Möglichkeit, den Pfad zu den Dateien mittels einer InputBox einzutragen?
Josef
Sub Attribut()
Dim fs As Object, WbName$, i%, fso As Object, f
Set fs = Application.FileSearch
Set fso = CreateObject("Scripting.FileSystemObject")
fs.LookIn = "H:\Arbeit\14-OÖGKK, Solidaritätsbeitrag 2000"
MsgBox fs.LookIn
fs.FileName = "*.*"
fs.Execute
For i = 1 To fs.FoundFiles.Count
WbName = fs.FoundFiles(i)
Set f = fso.getfile(WbName)
If f.Attributes And 1 Then f.Attributes = f.Attributes - 1
Next
MsgBox "fertig"
End Sub
Anzeige