• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Výpis obsahu složek

Zaslal/a Kadel 30.6.2011 12:44

Dobrý den.

Potřeboval bych přes Excel udělat výpis souborů a složek z adresáře (např. vše z C:\\Zakázky\). To by se vypsalo do sloupce A postupně pod sebe. Já bych si ručně ke každému vypsanému řádku do dalších sloupců přidal různé tagy (př. sloupec B -> moře; sl. C -> dovolená, sl. D -> 2010 atd.). Zároveň bych ale chtěl, aby se to při každém otevření aktualizovalo, doplnily se nové soubory, ale stávající by zůstaly vč. těch tagů. Potřebuji totiž mít rychle přehled o souborech, které obsahují určitý tag (př. všechny fotografie obsahující tag moře - filtrování). Nebo pokud znáte nějaký program, tak určitě doporučte. Děkuji.

Příloha: 5406_sesit2.rar (7kB, staženo 89x)

Zaslat odpověď >

---

Poki(30.6.2011 15:14)#005407

v prilozenem souboru si muzete zkusit, jak ziskat podadresare a soubory ze zadane slozky (napsat do bunky C1 (musi koncit zpetnym lomitkem)).

Příloha: 5407_sesit2.zip (12kB, staženo 574x)

citovat

Kadel(30.6.2011 17:15)#005408

Super, díky. Šlo by to ještě udělat tak, aby to projelo i podsložky? Teďka mi to napíše cestu a název složky, ale do ní už to nevleze.citovat

Poki(1.7.2011 10:20)#005411

tady to je, ale umi to jen dve urovne - dal se mi to delat nechce...

Příloha: 5411_sesit2.zip (12kB, staženo 512x)

citovat

Jeza.m(1.7.2011 11:31)#005412

Sice to není původně z mé hlavy, ale upravil jsem si to a běžně to používám :-)
Sub List_All_The_Files_Within_Path()

Application.ScreenUpdating = False
Dim radek As Integer
Dim No_Of_Files As Integer
Dim kk25 As Integer
Dim File_Path As String

File_Path = "D:\Pokus"
radek = 2
With Application.FileSearch
.NewSearch
.LookIn = File_Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute

No_Of_Files = .FoundFiles.Count

For kk25 = 1 To No_Of_Files
Cells(radek, 2).Value = Dir(.FoundFiles(kk25))
Cells(radek, 3).Value = .FoundFiles(kk25)
Cells(radek, 1).Value = Left(Cells(radek, 3), Len(Cells(radek, 3)) - Len(Cells(radek, 2)))
radek = radek + 1
Next kk25

End With
Cells(1, 1) = "Adresář"
Cells(1, 2) = "Soubor"
Cells(1, 3) = "Celá cesta"
Columns("A:C").EntireColumn.AutoFit
Range("A1:C1").Interior.Color = vbYellow
Cells(2, 1).Select
ActiveWindow.FreezePanes = True

Application.ScreenUpdating = True
End Sub
M@citovat

Kadel(1.7.2011 11:46)#005413

Bohužel mi to druhé řešení udává chybu - With Application.FileSearch - a pokud to odkrokuji tak o řádek výše - radek = 2 - to ukazuje 0.citovat

Kadel(1.7.2011 11:47)#005414

To Poki: Díky za druhé řešení.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse