» Poradna » Programy

Access VBA

 |   |  Microsoft Windows 10 Firefox 64.0

Ahoj, potřeboval bych pomoc. Na síťové úložiště w:\sdilene_dokumenty\navrhy jsou do složky Návrhy (navrhy) ukládány soubory v různých formátech. V accessovém formuláři (MSO 2016) mám pole "navrhy", kde je hypertextový odkaz do této složky. Dále mám vytvořeno další pole "pocet", které by mělo zobrazovat počet souborů PDF ve složce návrhy. Potřeboval bych ve vba napsat kód který by uměl spočítat soubory ve formátu PDF v konkrétní složce (w:\sdilene_dokumenty\navrhy). Pomůže někdo, prosím? Děkuji Josef

Odpovědi na otázku

 |   |  Microsoft Windows 10 Edge 18.17763

Function Count_Files(strFolder As String, strExt As String) As Long On Error GoTo Error_Handler Dim file_count As Long Dim file_name As String file_name = Dir(strFolder) file_count = 0 Do While file_name <> "" If UCase(Right(file_name, 3)) = UCase(strExt) Then file_count = file_count + 1 End If file_name = Dir Loop Count_Files = file_count Exit FunctionError_Handler: Debug.Print Err.Description Count_Files = -1End FunctionSub test() MsgBox Count_Files("c:\TEST\ADRESAR\", "PDF")End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Firefox 64.0

Děkuji moc, určitě vyzkouším. Zapomněl jsem ještě podoknout, že bych potřeboval, aby se ten počet souborů zobrazoval v poli "pocet". Ve VBA kódu se nevyznám. Kam zadám cestu do složky?

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Síťové úložiště, Hypertextový odkaz


Určitě si přečtěte

20 tipů a triků pro Gmail: Užitečné maličkosti, které zefektivní práci s e-maily

20 tipů a triků pro Gmail: Užitečné maličkosti, které zefektivní práci s e-maily

** V Gmailu je řada užitečných funkcí, které možná všechny neznáte ** Odeslání mailu můžete například pozdržet či naplánovat na později ** Nad Gmailem můžete mít s několika triky daleko lepší kontrolu

Karel Kilián | 25

16 tipů a vychytávek, se kterými dokonale ovládnete komunitní navigaci Waze

16 tipů a vychytávek, se kterými dokonale ovládnete komunitní navigaci Waze

** Waze není jen navigace – je to i sociální síť s dopravními informacemi ** Mobilní aplikace skýtá široké možnosti nastavení ** Vybrali jsme pro vás 16 nejzajímavějších tipů a triků

Karel Kilián | 48



Aktuální číslo časopisu Computer

Speciál o přechodu na DVB-T2

Velký test herních myší

Super fotky i z levného mobilu

Jak snadno upravit PDF