problém s kódem-nefunguje mi jak má

[crgo77]

Zdravím všechny,

prosím všechny přítomné o radu.

Snažím se napsat kód abych mohl přesouvat složky a soubory z jedné složky do druhé.

Mám ale problém v tom,že se mi překopírují jenom složky ale soubory mi zůstanou a navíc mi vyskočí chyba 76 pokud tam žádné složky nejsou
a bohužel nevidím,kde mám chybu ( udělal jsem totiž tu blbost,že jsem si nepsal komentáře a skládal jsem více věcí dohromady bez komentářů)

Mohl by se mi prosím na to někdo podívat?

soubor přikládám

P.S. : prozatím se to snažím zkoušet tímto jednoduchým způsobem,pokud by mi to fungovalo,chtěl jsem si to vložit do formuláře a místo pevných složek bych si název složky načítal do textboxu podle hodnoty z buňce ( v buňce budou jen názvy které existují 100% )

--- Doplnění předchozího příspěvku (13 Úno 2015 22:04) ---

Zdravím,

přizval jsem na pomoc pana googla a našel jsem několik doplňků,které mi pomohly k tomu aby mi to fungovalo podle mých představ.
Kód je ale dost krkolomný.

Přikládám soubor.
na listu jsou dvě tlačítka.
Tlačítko 1 přesune soubory a složky ( názvy složek z které do které je uvedena v kódu )
Tlačítko 2 otevře userform do které lze zadat název složky do které se soubory a složky přesunou.

na kódu budu ještě pracovat a dle možností průběžně doplňovat

[Reklama]