"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

245

Ää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. Kuka oli töllöntyön tekijä?

      Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt
      Pieksämäki
      50
      5297

    2. Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja

      Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.
      Pieksämäki
      86
      3108

    3. 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
      312
      1691

    4. 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
      1254

    5. 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
      1227

    6. Jenkkilahkojen kastekaava

      Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan
      Kaste
      139
      1134

    7. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      133
      1116

    8. Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!

      Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin
      Kaste
      161
      1105

    9. Mitä ajatuksia miehet, jos..?

      Nainen on 40v eikä ole omia lapsia?
      Ikävä
      171
      1084

    10. Se mies rakastaa minua

      Ja minä rakastan häntä. 😌
      Ikävä
      49
      954
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt