, hvis du vil have hele mappen navne fra en bestemt fortegnelse, følgende vba kode kan hjælpe dig, gør dette:,,,.,.hold den, alat + f11, nøgler, og det åbner, microsoft visual basic for ansøgninger vindue,.,,,. 2.klik, indsæt >, modul, og pasta følgende kode i modul vindue,.,,, vba kode: liste over alle foldere og subfolder navne,,, - foldernames() "ajourføring 20141027 application.screenupdating = falske dim xpath som snor dim xws som kladde dim fso som objekt, j, så længe, folder1 som formål med anvendelsen. filedialog (msofiledialogfolderpicker). titel:" at vælge den mappe. "vis ende med den fejl genoptage næste xpath = anvendelse. filedialog (msofiledialogfolderpicker). selecteditems (1) &". "application.workbooks.add fastsat xws = application.activesheet xws. celler (1, 1). værdi = xpath xws. celler (2, 1). resize (1, 5). værdi = system (" vej "," direktiv "," navn "," dato oprettet "," dato senest ændret "), der er fastsat for fso = createobject (" scripting. filesystemobject "), der er fastsat folder1 = fso. getfolder (xpath) getsubfolder folder1 xws. celler (2, 1). resize (1, 5). interior.color = 65535 xws. celler (2, 1). resize (1, 5). entirecolumn.autofit application.screenupdating = sandt ender i afrika getsubfolder (byref prntfld som objekt) dim subfolder som objekt, dim subfld som objekt, dim xrow så længe, for hver subfolder i prntfld.subfolders xrow = område (" a1 "). (xldown). række + 1 - celler (xrow, 1). resize (1, 5). værdi = system (subfolder.path, venstre (subfolder.path, instrrev (subfolder.path," ("), subfolder. navn, subfolder.datecreated, subfolder. datelastmodified) næste subfolder for hver subfld i prntfld.subfolders getsubfolder subfld næste subfld ende afrika, 3.så tryk, f5, nøglen til at køre denne kode, og vælge den mappe, vindue vil dukke op, så er du nødt til at vælge den fortegnelse, som du ønsker at liste den mappe, og subfolder navne, se skærmbillede:,,,,,,. 4.klik, okay, og du vil få den mappe, og subfolders vej, fortegnelse, navn, skabt dato og senest ændret i en ny dagbog, se,,,,,,, skærmbillede:
