[Pytanie] Kopiowanie pliku do podfolderów

[Wilson199]

Cześć. Mam pytanie. Czy jest możliwość aby program skopiował dany plik do podfolderów, lecz z wykluczeniami?

Dam przykład

Folder1

-subfolder1

-subfolder2

-subfolder3

-subfolder4

-subfolder5

-subfolder6

-subfolder7

 

teraz chciałbym aby plik został skopiowany do subfolderów oprócz np.

-subfolder1, -subfolder4 oraz -subfolder6

 

Co ważne. Nie mogę napisać do jakich konkretnie folderów ma być kopiowany plik, gdyż liczba tych folderów będzie się zwiększała. Tylko wykluczenia będą stałe i się nie zmienią.

[Wilson199]

Niestety, tutaj nie uzyskałem odpowiedzi. Nadal nie mam pojęcia jak przenieść plik do wszystkich subfolderów.

[Inorist™]

for each nazwa_katalogu as string in my.computer.filesystem.getdirectiores("C:\")

for i = 0 to lista_katalogow.getupperbound(0)

if lista_katalogow(i) = nazwa_katalogu then

 

end if

next

next

' Z pamięci

 

[Wilson199]

 

for each nazwa_katalogu as string in my.computer.filesystem.getdirectiores("C:\")
      for i = 0 to lista_katalogow.getupperbound(0)
          if lista_katalogow(i) = nazwa_katalogu then

          end if
      next
next
 ' Z pamięci

Dzięki bardzo za kodzi, niestety jest mały problem - na screnie wszystko widać

 

http://scr.hu/0uo9/r8p5b

Proszę o pomoc

[נσкєя™]

Zmień to

my.computer.filesystem.getdirectiores("C:\") 

na to

my.computer.filesystem.getdirectories("C:\")

 

 

błąd jest tu

 

 

getdirectiores

powinno to tak wyglądać

getdirectories

 

 

 

 

[Wilson199]

Zmień to

my.computer.filesystem.getdirectiores("C:\") 

na to

my.computer.filesystem.getdirectories("C:\")

 

 

błąd jest tu

 

 

getdirectiores

powinno to tak wyglądać

getdirectories

 

 

 

 

Dziękuję za pomoc, lecz to nei rozwiązało problemu. -http://scr.hu/0uo9/oioah

[Inorist™]

na tym ss nic nie ma.

[Wilson199]

Przepraszam, tutaj nowy screen - http://scr.hu/0uo9/xj7aj

[Inorist™]

Nie zdeklarowałes listy.

Dim lista_katalogow() as string