< návrat zpět

MS Excel


Téma: Výpis souborů adresáře i v podadresářích rss

Zaslal/a 20.4.2017 10:33

Ahoj všem. Potřebuji poradit, jak napsat ve VBA makro, které mi vypíše doubory v adresáři, ale i v podadresářích např. C:\2017\AAA\, C:\2017\BBB\,C:\2017\CCC\
Tento kod mi vypíše soubory jenom v adresáři C:\2017\
Private Sub vypisadresare()
adresar = "C:\2017\"
ChDir adresar
SouboryKtere = Dir("*.*")
ListBox1.Clear
Do While SouboryKtere <> ""
ListBox1.AddItem SouboryKtere
SouboryKtere = Dir
Loop
Set wshell = CreateObject("WScript.Shell")
MsgBox wshell.CurrentDirectory
End Sub

Díky za radu :-)

Jméno
Kontrola tyto znaky přepište do pole kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#036131
avatar
Napr. takto. Kód si dajte do formu, kde máte vytvorený ListBox1.
Dim S(), Pocet As Long

Private Sub UserForm_Initialize()
Dim FSO As Object, fsoAdresar As Object

Const Cesta = "C:\2017\"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set fsoAdresar = FSO.getFolder(Cesta)

Call ZoznamSuborov(fsoAdresar)

Set FSO = Nothing: Set fsoAdresar = Nothing

If Pocet > 0 Then ListBox1.List = S
End Sub

Sub ZoznamSuborov(ByRef fsoAdresar As Object)
Dim fsoSubor As Object, fsoPodAdresar As Object, PocS As Long

With fsoAdresar
PocS = .Files.Count
If PocS > 0 Then
ReDim Preserve S(1 To Pocet + PocS)

For Each fsoSubor In .Files
Pocet = Pocet + 1
S(Pocet) = fsoSubor.Path
Next fsoSubor
End If

For Each fsoPodAdresar In .subFolders
Call ZoznamSuborov(fsoPodAdresar)
Next fsoPodAdresar
End With

Set fsoPodAdresar = Nothing: Set fsoSubor = Nothing
End Sub


Pridávam radšej aj prílohu...citovat
#036132
avatar
Výborně. Děkuji moc. Přesně to jsem potřeboval. Funguje to perfektně. Dobrá práce:-)
A jenom takový "skromný" dotaz, šlo by tam někde zakomponovat, aby to vypisovalo jenom určity druh souborů např. sobory které začínají "OBJ" a mají koncovku .xlsm ? Myslím něco jako např.: obj*.xlsm ?citovat
#036138
avatar
?citovat
#036139
avatar
Perfekt:-) Děkuji moc. Funguje to výborně :-) Když se to umí, tak je to brnkačka :-) Ještě jednou díky :-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Přepočítávání listů

xlnc • 28.4. 15:37

Přepočítávání listů

Jery-S • 28.4. 15:30

Vypracování příkladu

elninoslov • 28.4. 2:43

"Nekonečná tabulka" - měsíční hodnoty

elninoslov • 28.4. 2:37

Vypracování příkladu

vincasmen • 28.4. 2:34

Vypracování příkladu

elninoslov • 28.4. 2:06

Nastavení formátování E2007>>E97-03

marjankaj • 27.4. 23:37