mojaSymfonia FORUM
https://forum.mix-soft.pl/

Lista plików przy pomocy Scripting.FileSystemObject
https://forum.mix-soft.pl/viewtopic.php?f=15&t=3847		 Strona 1 z 1
Autor:  koronen [ 2012-03-19, 13:11 ]
Tytuł:  Lista plików przy pomocy Scripting.FileSystemObject
Witam
Próbuję pobrać listę plików z katalogu. Użycie Find nie do końca mnie zadowala bo pomija z jakiś powodów niektóre pliki. Postanowiłem więc skorzystać z Scripting.FileSystemObject, ale nie wiem jak tego dokonać bez pętli for each. Ma ktoś pomysł?
Autor:  wrob [ 2012-03-19, 17:18 ]
Tytuł:  Re: Lista plików przy pomocy Scripting.FileSystemObject
A czemu for... each ci sie nie podoba? :)
Autor:  koronen [ 2012-03-19, 19:00 ]
Tytuł:  Re: Lista plików przy pomocy Scripting.FileSystemObject
bo nie potrafię w ambasicu
Autor:  wrob [ 2012-03-19, 20:09 ]
Tytuł:  Re: Lista plików przy pomocy Scripting.FileSystemObject
mozesz uzyc np

Folder = FSO.GetFolder("C:\")
x=Folder.Files.Count

i wtedy for albo while w ambasicu z ograniczeniem na count :)
Autor:  Misiek [ 2012-03-19, 21:17 ]
Tytuł:  Re: Lista plików przy pomocy Scripting.FileSystemObject
W AmBasicu nie jest trudno...

Kod:
string nazwa_katalogu = "c:\\import\\" //
string maska_plikow = "*.*" // teraz szuka wszystkich plików, można ograniczyć do zbiorów TXT "*.txt", albo zastosować dowolne wilcardy systemowe, *, ?
string nazwa_pliku

While Find File (nazwa_katalogu + maska_plikow)
   nazwa_pliku = Find File (nazwa_katalogu + maska_plikow)
   ...
   // otwarcie pliku, wszystkie operacje na pliku - kod właściwy //
Wend


Daj znać, czy działa ;-)
Autor:  koronen [ 2012-03-19, 22:27 ]
Tytuł:  Re: Lista plików przy pomocy Scripting.FileSystemObject
Misiek metodę z Find File oczywiście znam, natomiast mam pliki których ta metoda "nie widzi", albo przez dziwne atrybuty (we właściwościach pliku atrybuty AT) albo z jakiegoś innego powodu, no ale nie widzi.

Wrob do Folder.Files.Count też doszedłem natomiast niewiele mi to dało. Owszem wiem ile mam plików ale nie znam ich nazw. Nie wystarczy pętla i Folder.Files.item(i).name, bo "i" nie może być liczbą. "i" to klucz który jest nazwą pliku a jej nie znam bo właśnie jej szukam.

Dodam że ten sam plik mogę otworzyć przez FileDlg a potem przeczytać.
Autor:  koronen [ 2012-03-19, 22:32 ]
Tytuł:  Re: Lista plików przy pomocy Scripting.FileSystemObject
Sprawa załatwiona - dostałem pliki jeszcze raz i te miały już normalne atrybuty i Find FIle zadziałało.... Widocznie w jakiś sposób pliki się uszkodziły przy przesyłaniu mailem...

Dzięki chłopaki, natomiast z chęcią poznałbym rozwiązanie z Floder.Files.Count o ile jest?

Pozdrawiam
Autor:  wrob [ 2012-03-20, 01:57 ]
Tytuł:  Re: Lista plików przy pomocy Scripting.FileSystemObject
A moze najpierw
dir /b /a-d c:\ > z:\xxxx.txt

a potem juz normalnie z xxxx.txt czytac nazwy plikow dla FSO :) :)
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/