"X:\HAKEMISTO 1/BACKUP" ja kyselemättä pääll..."/> "X:\HAKEMISTO 1/BACKUP" ja kyselemättä pääll..."/>

Tiedostojen kopiointi VBA:lla.

petekki1

Millä VBA koodinpätkällä saan kopioitua hakemiston tiedostot toiseen hakemistoon?

Esim. "X:\HAKEMISTO 1" -> "X:\HAKEMISTO 1/BACKUP" ja kyselemättä päällekirjottaen.

6

176

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      referensseissä lisää Microsoft Scripting Runtime viittaus

      Sub Testi()
      Dim fso As New FileSystemObject
      fso.CopyFolder "X:\HAKEMISTO 1", "X:\HAKEMISTO 1/BACKUP"
      End Sub

      Keep EXCELing
      @Kunde

      • Petekki1

        Herjaa Compile errorilla: User-defined type not defined viitaten riviin Dim fso As New FileSystemObject

      • Petekki1
        Petekki1 kirjoitti:

        Herjaa Compile errorilla: User-defined type not defined viitaten riviin Dim fso As New FileSystemObject

        Excel 2000. (Win XP Pro)

      • kunde
        Petekki1 kirjoitti:

        Excel 2000. (Win XP Pro)

        referensseissä lisää Microsoft Scripting Runtime viittaus....

      • Petekk1
        kunde kirjoitti:

        referensseissä lisää Microsoft Scripting Runtime viittaus....

        Kiitos, tarkemmin lukien olihan referenssi ohje jo alkuperäisessä vastauksessasi.
        Mutta, koodi ei suostu kopioimaan hakemistoa hakemistopuussa alaspäin eli,

        fso.CopyFolder "X:\HAKEMISTO 1", "X:\HAKEMISTO 1\BACKUP" herjaa...

        fso.CopyFolder "X:\HAKEMISTO 1", "X:\BACKUP" taas toimii moitteetta.

      • kunde
        Petekk1 kirjoitti:

        Kiitos, tarkemmin lukien olihan referenssi ohje jo alkuperäisessä vastauksessasi.
        Mutta, koodi ei suostu kopioimaan hakemistoa hakemistopuussa alaspäin eli,

        fso.CopyFolder "X:\HAKEMISTO 1", "X:\HAKEMISTO 1\BACKUP" herjaa...

        fso.CopyFolder "X:\HAKEMISTO 1", "X:\BACKUP" taas toimii moitteetta.

        Sub Testi()
        Dim fso As New FileSystemObject
        fso.CopyFolder "X:\HAKEMISTO 1", "X:\Huuhaa"
        fso.CopyFolder "X:\Huuhaa", "X:\HAKEMISTO 1\BACKUP"
        fso.DeleteFolder "X:\Huuhaa"
        End Sub

    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      228
      4407

    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      73
      2856

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2393

    4. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      43
      1687

    5. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      78
      1369

    6. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      65
      1043

    7. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      137
      919

    8. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      64
      850

    9. Sellainen tunne sydämessä

      Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,
      Ikävä
      86
      844

    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      832
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt