Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak ściągnąć wszystkie pliki?
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
Jak ściągnąć wszystkie pliki?

Jak ściągnąć wszystkie pliki o rozrzeszeniu "ip", które są w danym folderze na serwerze? Korzystam z modułu Chudego podajże ftp.bas (www.masterblaster.up.pl)


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

20-08-2004 13:55
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Spróbuj czegoś takiego (oczywiście tam gdzie jest [...] wprowadź odpowiednie dane):

If modFTP.Connect([SERWER], [Login], [HASŁO]) = False Then MsgBox "Nie można połączyć z serwerem.", vbCritical, "Błąd": Exit Sub
modFTP.ChangeDirectory [KATALOG Z PLIKAMI]
Pliki = modFTP.ListFiles
For i = 0 To UBound(Pliki)
    If Pliki(i) Like "*.ip" Then modFTP.DownloadFile Pliki(i), App.Path & "\" & Pliki(i)
Next i
modFTP.Disconnect

Nie testowałem tego kodu ale powinno zadziałać.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

20-08-2004 14:03
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

dobra, dzięki. A wiesz jak pominąć to, żeby jak mam 1 tylko plik o danym rozrzerzeniu to żeby ubound nie zwracał 0?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

20-08-2004 14:07
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Hmm... Zdaje mi się że chcesz ominąć problem który jest gdy nie ma żadnego pliku o danym rozszerzeniu ? Niewiem co zrobić, być może trzeba zmienić troszkę funkcję ListFiles() z mojego modułu.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

20-08-2004 14:23
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Chodzi mi o to: co trzeba zrobić kiedy jest 1 plik i ubound go nie widzi


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

20-08-2004 14:55
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Nie widzi ? Raczej nie zwraca ci chyba 1. A to dlatego że liczy tablice zwracaną przez moją funkcje od 0. Jest tam taka linijka 'ReDim Files(0)' dodaj pod nią 'i = 1'. Po takiej przeróbce UBound powinno zwracać 0 gdy nie będzie żadnego pliku a 1 gdy będzie 1 plik.
Tylko pamiętaj że gdy będziesz robił pętle która odczyta wszystkie pliki z tablicy zacznij od 1 a nie od 0 !


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

20-08-2004 16:35
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

OK, dzięki


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

20-08-2004 16:48
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1