Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

versteckte Dateien mit Kill löschen

Forumthread: versteckte Dateien mit Kill löschen

versteckte Dateien mit Kill löschen
04.06.2004 17:43:03
Florian Meyer
Hallo,
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 Then myFObjekt.Attributes = myFObjekt.Attributes - 1
    Next
  End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: versteckte Dateien mit Kill löschen
04.06.2004 18:18:00
Nepumuk
Hallo Florian,
so geht's:
If myFObjekt.Attributes And 2 Then myFObjekt.Attributes = myFObjekt.Attributes - 2
Die Attribute:
0 = Normal *
1 = Schreibgeschützt *
2 = Versteckt *
4 = Systemdatei **
8 = Datenträger **
16 = Ordner **
32 = Archiv *
64 = Verknüpfung **
128 = Komprimierte Datei **
* Attribut mit Lese / Schreibzugriff
** Attribut mit Schreibschutz
Gruß
Nepumuk
Anzeige
Wow! Vielen Dank!
04.06.2004 18:41:09
Florian Meyer

Die Datei https://www.herber.de/bbs/user/7116.xls wurde aus Datenschutzgründen gelöscht

;
Anzeige

Infobox / Tutorial

Versteckte Dateien mit Kill löschen


Schritt-für-Schritt-Anleitung

Um versteckte Dateien zu löschen, kannst Du den folgenden VBA-Code verwenden. Dieser Code entfernt das Attribut "versteckt" von Dateien, sodass Du sie mit dem Kill-Befehl löschen kannst.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.
  3. Kopiere den folgenden Code in das Modul:
Public Sub versteckte_dateien_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 2 Then myFObjekt.Attributes = myFObjekt.Attributes - 2
        Next
    End With
End Sub
  1. Ändere Range("Pfad") in den entsprechenden Pfad, in dem Du die versteckten Dateien löschen möchtest.
  2. Führe das Makro aus, um die versteckten Dateien zu löschen.

Häufige Fehler und Lösungen

  • Fehler: "Das Makro kann nicht ausgeführt werden."

    • Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die entsprechenden Optionen.
  • Fehler: "Die Datei ist nicht gefunden."

    • Lösung: Überprüfe den angegebenen Pfad in Range("Pfad"). Stelle sicher, dass er korrekt und zugänglich ist.

Alternative Methoden

Falls Du eine grafische Benutzeroberfläche bevorzugst, kannst Du auch das Windows-Betriebssystem nutzen:

  1. Öffne den Windows Explorer.
  2. Navigiere zu dem Ordner, der die versteckten Dateien enthält.
  3. Aktiviere die Anzeige versteckter Dateien: Gehe zu Ansicht > Optionen > Ordner- und Suchoptionen ändern > Ansicht und wähle Ausgeblendete Dateien, Ordner und Laufwerke anzeigen.
  4. Lösche die Dateien manuell.

Praktische Beispiele

Angenommen, Du hast einen Ordner namens "Daten" auf Deinem Desktop und möchtest dort versteckte Dateien löschen. Ersetze einfach Range("Pfad") im Code durch:

Set myFsyObjekt = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
    .LookIn = "C:\Users\DeinBenutzername\Desktop\Daten"

Jetzt wird das Makro alle versteckten Dateien in diesem Ordner bearbeiten.


Tipps für Profis

  • Nutze den Befehl Kill nach dem Entfernen des Attributs, um die Dateien direkt zu löschen.
  • Erstelle eine Sicherungskopie wichtiger Dateien, bevor Du sie löschst, um Datenverlust zu vermeiden.
  • Teste den Code zuerst in einem Testordner, um sicherzustellen, dass er wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Kann ich den Code auch für Systemdateien verwenden? Ja, jedoch ist es ratsam, vorsichtig mit Systemdateien umzugehen, da deren Löschen die Stabilität des Systems beeinträchtigen kann.

2. Funktioniert dieser Code in Excel 2016? Ja, dieser Code sollte in Excel 2016 und neueren Versionen problemlos funktionieren. Achte darauf, die Makros zu aktivieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige