versteckte Dateien mit Kill löschen
04.06.2004 17:43:03
Florian Meyer
mit diesem Code hat mir 'mal Nepumuk geholfen, um den Schreibschutz von Dateien zu löschen.
Was muß ich daran ändern, um das Attribut versteckt zu löschen? Denn offensichtlich kann ich die Datei nur dann mit Kill entfernen.
Danke im Voraus und Gruß aus Berlin! Florian
Public Sub Schreibschutz_loeschen()
On Error Resume Next
Dim myFsyObjekt As Object, myFObjekt As Object, intIndex As Long
Set myFsyObjekt = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.LookIn = Range("Pfad")
.Filename = "*.*"
.Execute
For intIndex = 1 To .FoundFiles.Count
Set myFObjekt = myFsyObjekt.GetFile(.FoundFiles(intIndex))
If myFObjekt.Attributes And 1 Then myFObjekt.Attributes = myFObjekt.Attributes - 1
Next
End With
End Sub
Code eingefügt mit Syntaxhighlighter 2.5