Ile plików w katalogu?

W komentarzu pod notką
Odczyt listy plików w katalogu
pojawił się komentarz z pytaniem jak przerobić makro, aby liczyło ilość plików. Przerobiłam makro, przy okazji zmieniając procedurę na funkcję i wyszło mi coś takiego:

Public Function PoliczPliki()
Dim Katalog As String
Dim NazwaPliku As String
Katalog = Range(„A1”).Value
Katalog = Katalog & „”
PoliczPliki = 0
NazwaPliku = Dir(Katalog & „*.*”)
Do While NazwaPliku <> „”
   PoliczPliki = PoliczPliki + 1
   NazwaPliku = Dir
Loop
End Function


 


 

 

 

 

 

 

 

 Powinno zadziałać, także w folderze sieciowym.



http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=1&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=2&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=3&nr=4737c http://helion.pl/plugins/new/random-katalog.cgi?k=3,34&a=4&nr=4737c

 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2013 i programowanie VBA

Skomentuj

Wprowadź swoje dane lub kliknij jedną z tych ikon, aby się zalogować:

Logo WordPress.com

Komentujesz korzystając z konta WordPress.com. Wyloguj /  Zmień )

Zdjęcie na Google

Komentujesz korzystając z konta Google. Wyloguj /  Zmień )

Zdjęcie z Twittera

Komentujesz korzystając z konta Twitter. Wyloguj /  Zmień )

Zdjęcie na Facebooku

Komentujesz korzystając z konta Facebook. Wyloguj /  Zmień )

Połączenie z %s