Millä VBA koodinpätkällä saan kopioitua hakemiston tiedostot toiseen hakemistoon?
Esim. "X:\HAKEMISTO 1" -> "X:\HAKEMISTO 1/BACKUP" ja kyselemättä päällekirjottaen.
Esim. "X:\HAKEMISTO 1" -> "X:\HAKEMISTO 1/BACKUP" ja kyselemättä päällekirjottaen.
Turvaa tilisi vahvistamalla puhelinnumerosi. Voit silloin palauttaa unohtuneen salasanan tekstiviestillä.
Ketjusta on poistettu 1 sääntöjenvastainen viesti.
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
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
Herjaa Compile errorilla: User-defined type not defined viitaten riviin Dim fso As New FileSystemObject
Excel 2000. (Win XP Pro)
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.
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