Ordner Struktur dokumentieren

    Hallo zusammen,

    gibt es die Möglichkeit, die Ordnerstruktur, gerade der Gruppen, zu dokumentieren?

    Wir haben über 35 Gruppen, ich möchte die Namen und die Berechtigung dokumentieren.

    Klar, einmal alles manuell ... wäre schön, zumindest die Ordnernamen einmal zu haben.

    Grüße

    Den Pfad und damit Windows Ordnernamen findest du wenn du die Archive Eigenschaften aufrufst und auf den Button links neben den angezeigten Namen klickst. Der Pfad erscheint dann darunter.

    In der Hilfe zur DvApi gibt es ein Beispiel um die Unterarchive eines Verzeichnisses auszulesen, mal als Denkanstoß und Alternative zur manuellen Eingabe ;)

    Archives Object

    Dim oApp As DvApi32.DavidAPI

    Dim oAcc As DvApi32.Account

    Dim oArchive As DvApi32.Archive

    Dim oSubArchive As DvApi32.Archive

    Dim oNewArchive As DvApi32.Archive

    Dim oArchives As DvApi32.Archives

    Dim fso, txtfile

    Dim i As Integer

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set txtfile = fso.CreateTextFile("c:\testfile1.txt", True)

    Set oApp = CreateObject("DVOBJAPILib.DvISEApi")

    Set oAcc = oApp.Logon

    Set oArchive = oAcc.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)

    For i = 0 To 5

    Set oNewArchive = oArchive.CreateArchive("New Subarchive number" & i)

    Next

    For i = 1 To oArchive.Archives.Count

    Set oSubArchive = oArchive.Archives.Item(i - 1)

    txtfile.WriteLine ("SubArchive from your personal out archive: " & oSubArchive.DisplayName)

    txtfile.WriteLine ("Path of the SubArchive: " & oSubArchive.FullPath)

    Next

    txtfile.Close

Jetzt mitmachen!

Du hast noch kein Benutzerkonto auf unserer Seite? Registriere dich kostenlos und nimm an unserer Community teil!

Benutzerkonto erstellen Anmelden