🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104790

Przeszukiwanie podfolderów w VBA

#104790
From: Paweł
Date: Sat, 26 Feb 2011 12:08
19 lines
1505 bytes
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ł 
Technical Details
Message-ID: <4d68ed34$0$2507$65785112@news.neostrada.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed2.atman.pl!newsfeed.atman.pl!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed2.atman.pl!newsfeed.atman.pl!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
From: Paweł <gamacdur@op.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Przeszukiwanie podfolderów w VBA
Date: Sat, 26 Feb 2011 13:08:20 +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: 20
Message-ID: <4d68ed34$0$2507$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 95.49.207.24
X-Trace: 1298722100 unt-rea-a-02.news.neostrada.pl 2507 95.49.207.24:49560
X-Complaints-To: abuse@news.neostrada.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit