"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

246

Ää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. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      322
      1822

    2. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1287

    3. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      75
      1284

    4. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      134
      1157

    5. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      79
      947

    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      85
      881

    7. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      843

    8. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      118
      804

    9. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      48
      780

    10. Sitä saattaa vähän hölmöillä

      rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.
      Ikävä
      60
      736
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt