|
Liste aller Codebeispiele
Ein Beispiel zum Einsatz der Klasse System.DirectoryServices.DirectoryEntries aus der .NET-Klassenbibliothek.
Autor: Dr. Holger Schwichtenberg
Beschreibung
Üblicherweise können Container-Objekte erst dann gelöscht werden, wenn sie leer sind. Die Routine ADS_loeschen_rekursiv() löscht in dem Fall, dass der übergebene ADSI-Pfad einen Container darstellt, zunächst rekursiv alle Unterobjekte. Die Routine ist aber auch eine Erleichterung für Blatt-Objekte, da ein Verzeichnisobjekt direkt über seinen Pfad gelöscht werden kann.
Die folgende allgemeine Hilfsroutine löscht ein Verzeichnisobjekt, egal ob es Unterobjekte besitzt oder nicht. Als Parameter wird der DN des zu löschenden Verzeichnisobjekts übergeben. Wenn Unterobjekte vorhanden sind, ruft sich diese Routine rekursiv selbst auf.
Programmcodebeispiele Visual Basic .NET (VB.NET)
' ### Löscht alle eventuell vorhandenen Unterobjekte und
' ### schließlich das angegebene Objekt selbst
Sub ADSI_Loeschen_Rekursiv(ByVal dn As String)
Dim o As DirectoryEntry
Dim kind As DirectoryEntry
Dim vater As DirectoryEntries
Dim rdn As String
out("# Rekursives Löschen von: " & dn)
' --- Zugriff auf IADs
o = New DirectoryEntry(dn)
' --- Relativen Namen ermitteln
rdn = o.Name
' --- Zuerst alle Unterobjekte rekursiv löschen
For Each kind In o.Children
ADSI_Loeschen_Rekursiv(kind.Path)
Next
' --- Zugriff auf IADsContainer
vater = o.Parent.Children
' --- Dieses Objekt löschen!
vater.Remove(o)
' --- Ausgabe
out("Gelöscht: " & dn)
End Sub
Programmcodebeispiele CSharp (C#)
using System;
using System.DirectoryServices;
namespace FCL_Buch._System_DirectoryServices {
public class ADSI_HelperMethods {
public static void ADSI_Loeschen_Rekursiv(string dn) {
// Löscht alle evntuelle vorhandenen Unterobjekt und schließlich das angegebene Objekt selbst
FclOutput.PrintOut("# Rekursives Löschen von: " + dn);
// Zugriff auf IADs
DirectoryEntry o = new DirectoryEntry(dn);
// relativen Namen ermitteln
string rdn = o.Name;
// Zuerst alle Unterobjekte rekursiv löschen
foreach ( DirectoryEntry kind in o.Children )
ADSI_Loeschen_Rekursiv(kind.Path);
// Zugriff auf IADsContainer
DirectoryEntries vater = o.Parent.Children;
// Dieses Objekt löschen!
vater.Remove(o);
// Ausgabe
FclOutput.PrintOut("Gelöscht: " + dn);
}
}
}
Querverweise
Definition '.NET Framework Class Library'
Verfügbarkeit der Klasse 'System.DirectoryServices'
Übersicht über den FCL-Namensraum 'System.DirectoryServices'
Portal dotnetframework.de
|