Millä VBA koodinpätkällä saan kopioitua hakemiston tiedostot toiseen hakemistoon?
Esim. "X:\HAKEMISTO 1" -> "X:\HAKEMISTO 1/BACKUP" ja kyselemättä päällekirjottaen.
Tiedostojen kopiointi VBA:lla.
petekki1
6
234
Vastaukset
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)
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. 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ä.
Luetuimmat keskustelut
Vasemmistohallitus palauttaa hintasääntelyn, esim. bensalitra vain 1e.
Tuleva vasemmistolaisista koostuva hallitus ottaa käyttöön vanhat hyvät keinot pitää hinnat kurissa. Tähän tarkoitukse754547Vasemmistolainen valehteli jälleen - Purra tai persut eivät luvanneet "euron bensaa"
Väite "euron bensasta" on ensisijaisesti poliittisten vastustajien käyttämä puhdas vale. Persut kyllä kampanjoivat näky1063781Arman Alizadin viesti puna-aktivisteille: "Pitäkää lärvinne nytkin kiinni"
Arman Alizad kritisoi vasemmiston kaksinaismoralismia. Iranissa syntynyt suosikkijuontaja Arman Alizad pakeni perheensä1433485Minja Koskela nostanut vasemmistoliiton kannatuksen ennätykseen
Koskela valittiin puolueen johtoon lokakuussa 2024, ja silloin Ylen kysely antoi puolueelle 9,3 prosentin kannatuksen.371980Antti johtaa Petteriä jo 7,1 prosenttiyksiköllä
Tällä menolla sdp menee kokoomuksesta kierroksella ohi jo tällä vaalikaudella. https://yle.fi/a/74-20213575701925Mitä on tullut
Entisen abcn rakennuksen tilalle se oli tyhjillään monta vuotta siellä oli jo nyt valot onko huoltoasema? 5:30.891229- 1251064
Palosta selvinnyt 18 vuotias munira tarvitsi tulkin kun puhui Iltalehdelle
Suomessa asuva 18 vuotias tarvii tulkin !!! Tää Suomea puhumaton on palossa kuolleen naisen veli ja asui perheen kanssa.134976- 57933
Mikä homma?
https://share.google/NvruSS4P4EzjTWPov Poliisilla oli keskiviikkona 4. maaliskuuta yksityisasunnossa Saarijärvellä tehtä25847