Moje doświadczenia z Excelem, Accesem i programowaniem w VBA
Blog > Komentarze do wpisu

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.



 

Kurs Excel programowanie w VBA Kurs Access - programowanie w VBA

 

Excel 2013 i programowanie VBA

środa, 03 stycznia 2018, marzatela













Polecane wpisy

TrackBack
TrackBack URL wpisu:


Książki warte polecenia
zobacz szczegóły...


A tu oferta na dziś:

Wydawnictwo Strefa Kursów



ministat liczniki.org



Napisz do mnie!