"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

130

Ää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. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      130
      2435

    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      109
      1454

    3. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      133
      1243

    4. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      346
      1208

    5. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      104
      1117

    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      99
      1025

    7. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      46
      739

    8. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      252
      719

    9. Ei koskaan saatu tuntea

      Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee
      Ikävä
      33
      710

    10. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      13
      691
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt