Tiedostojen kopiointi VBA:lla.

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

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

Muut lukivat myös

Vastaukset 6

Vanhimmat

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

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

    Äänestä

  • Petekki1 kirjoitti:

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

    Excel 2000. (Win XP Pro)

    Äänestä

  • Petekki1 kirjoitti:

    Excel 2000. (Win XP Pro)

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

    Äänestä

  • 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.

    Äänestä

  • 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

    Äänestä

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

Kommentoi aloitusta


petekki1 kirjoitti:

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

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

Anonyymi
5000

Ilmoita asiaton sisältö

  • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

  • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

  • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

  • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

  • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

  • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

Jaa keskustelu