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
228
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
Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille
Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest1167133Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden4945271Mitä aiot tehdä uudenvuoden aattona
Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks1463240Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?
Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed2152621Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t382307Pituuden mittaaminen
Ihmisen pituuden mittaaminen ja puolikkaat senttimetrit. Kuuluuko ne puolikkaatkin sentit tai millit teistä ilmoittaa m431272En tiedä enää
Pitäiskö mun koittaa vältellä sua vai mitä? Oon välillä ollut hieman mustasukkainen, myönnän. En ymmärrä miksi en saa su771232Varsinainen vetonaula tämä Pyhäjärven keskustelupalsta
Lisää kummasti muuttohaluja, kun lukee tätä foorumia. Tosin väärään suuntaan. Marraskuuhun mennessä tämä vähäinenkin vä681168Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu111159- 1111133