"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

220

Ää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. Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.

      Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.
      Joensuu
      128
      3101

    2. Mikä vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki
      Maailman menoa
      9
      2985

    3. Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan

      eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma
      Maailman menoa
      24
      2724

    4. Vassarina hymyilyttää vaurastuminen persujen kustannuksella

      Olen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne
      Maailman menoa
      45
      2598

    5. Riikka runnoo: Elisalta potkut 400:lle

      Erinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv
      Maailman menoa
      85
      2480

    6. PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan

      kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist
      Maailman menoa
      46
      2432

    7. Pidennetään viikko 8 päiväiseksi

      Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest
      Maailman menoa
      10
      2284

    8. Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?

      "Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k
      Maailman menoa
      80
      1942

    9. Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua

      Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle
      Maailman menoa
      197
      1796

    10. Nainen rakas

      Mulle on alkanut tulla sellainen olo että meistä tulee ehkä pariskunta vielä 😌
      Ikävä
      134
      1705
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt