 |
 |
 |
|
Strona 1 z 1
|
[ Posty: 8 ] |
|
Lista plików przy pomocy Scripting.FileSystemObject
| Autor |
Wiadomość |
|
koronen
Rejestracja: 2009-01-08, 11:43 Posty: 96 Pomógł: 1
|
 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ł?
|
| 2012-03-19, 13:11 |
|
|
| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
Re: Lista plików przy pomocy Scripting.FileSystemObject A czemu for... each ci sie nie podoba? :)
|
| 2012-03-19, 17:18 |
|
|
|
koronen
Rejestracja: 2009-01-08, 11:43 Posty: 96 Pomógł: 1
|
Re: Lista plików przy pomocy Scripting.FileSystemObject bo nie potrafię w ambasicu
|
| 2012-03-19, 19:00 |
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
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 :)
|
| 2012-03-19, 20:09 |
|
|
|
Misiek
Rejestracja: 2008-12-03, 21:11 Posty: 276 Pomógł: 2
|
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 
_________________
Pozdrawiam
Misiek DGTL Rzeszów
|
| 2012-03-19, 21:17 |
|
|
|
koronen
Rejestracja: 2009-01-08, 11:43 Posty: 96 Pomógł: 1
|
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ć.
|
| 2012-03-19, 22:27 |
|
|
|
koronen
Rejestracja: 2009-01-08, 11:43 Posty: 96 Pomógł: 1
|
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
|
| 2012-03-19, 22:32 |
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
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 :) :)
|
| 2012-03-20, 01:57 |
|
|
|
|
Strona 1 z 1
|
[ Posty: 8 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Google [Bot] i 10 gości |
|
Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników
|
|
|
|
