Article View: pl.comp.lang.vbasic
Article #104791Re: Przeszukiwanie podfolderów w VBA
From: Paweł
Date: Sat, 26 Feb 2011 12:14
Date: Sat, 26 Feb 2011 12:14
24 lines
1860 bytes
1860 bytes
Użytkownik "Paweł" <gamacdur@op.pl> napisał w wiadomości
news:4d68ed34$0$2507$65785112@news.neostrada.pl...
> Witam
>
> Chciałbym się zapytać jak można za pomocą VBA otrzymać w Word 2007, w
> zmiennej typu string listę wszystkich plików np. txt, które znajdują się w
> podanej ścieżce jak również w podfolderach.
> Znalazłem przykład takiej funkcji ale potrzebuję jej wynik przekierować do
> zmiennej string, a więc chcę otrzymać coś takiego
>
> Sub test()
>
> Dim listaplików As String
>
> listaplików = call ListFiles("c:temp", "*.txt", true)
>
> end sub
>
> Jak najprościej to zrobić ??
>
> Pozdrawiam Paweł
Link do tej funkcji to: http://allenbrowne.com/ser-59.html
Technical Details
Message-ID:
<4d68eea3$0$2449$65785112@news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.glorb.com!news-out.readnews.com!news-xxxfer.readnews.com!nx01.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mailReferences:
<4d68ed34$0$2507$65785112@news.neostrada.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.glorb.com!news-out.readnews.com!news-xxxfer.readnews.com!nx01.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail From: Paweł <gamacdur@op.pl> Newsgroups: pl.comp.lang.vbasic References: <4d68ed34$0$2507$65785112@news.neostrada.pl> In-Reply-To: <4d68ed34$0$2507$65785112@news.neostrada.pl> Subject: Re: Przeszukiwanie podfolderów w VBA Date: Sat, 26 Feb 2011 13:14:26 +0100 MIME-Version: 1.0 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Windows Mail 6.0.6002.18197 X-MimeOLE: Produced By Microsoft MimeOLE V6.0.6002.18263 X-EsetScannerBuild: 8801 Lines: 25 Message-ID: <4d68eea3$0$2449$65785112@news.neostrada.pl> Organization: Telekomunikacja Polska NNTP-Posting-Host: 95.49.207.24 X-Trace: 1298722467 unt-rea-a-01.news.neostrada.pl 2449 95.49.207.24:49569 X-Complaints-To: abuse@news.neostrada.pl Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit