Problem

Jeg har forsøgt at lave arkiverede mapper (tæller i 1000'erne og som er navngivet med unik identifikator), mens de kan læses uden at bruge eksterne databaser eller applikationer. Jeg spekulerede på, om der i øvrigt er tilføjelse/redigering af yderligere egenskaber for mapper (IKKE FILER) i Windows. Da navnet ikke kan ændres, kunne jeg f.eks. Integrere nyttige oplysninger i sorteringsfeltet 'Kunde'.


Mine eksperimenter og undersøgelser er blevet helt tomme. Jeg antager, at disse oplysninger er metadata trukket fra inden for filer og som sådan ikke kan bruges på mapper ?! Hvis det er tilfældet, kan jeg genskabe mappen fuld af genveje og indlejre informationen i deres?


Se nedenfor, hvis mit indlæg er uklart.


Tak, Howard


eksempel mappe vindue med yderligere sortering egenskaber aktiveret [2]

Sub test()

    'Declare the variables
    Dim objFSO As Scripting.FileSystemObject
    Dim objTopFolder As Scripting.Folder
    Dim strTopFolderName As String
    Dim objFolder As Scripting.Folder
    Dim objSubFolder As Scripting.Folder

    'Your Top Folder Path
    strTopFolderName = "C:Documents"

    'Create an instance of the FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'Get the top folder
    Set objTopFolder = objFSO.GetFolder(strTopFolderName)

    'with this you will get the folder name or other properties
    For Each objSubFolder In objTopFolder.SubFolders

      MsgBox objSubFolder.Name
      MsgBox objSubFolder.DateCreated

    Next objSubFolder

End Sub