Tämä opetusohjelma osoittaa, miten FileSystemObject -objektin MoveFile -menetelmää käytetään.
Siirrä tiedostoja VBA FileSystemObject -ohjelmalla
MoveFile -menetelmä siirtää yhden tai useamman tiedoston paikasta toiseen.
Aseta VBA -viite
Ensinnäkin, kun käytät FileSystemObjectsia, sinun on ehkä asetettava viittaus VB-komentosarjan ajonaikaiseen kirjastoon: avaa Visual Basic Editor (ALT+F11), valitse Työkalut> Viitteet avattavasta valikosta ja valitse valintaruutu "Microsoft Scripting Runtime".
FileSystemObject
Toiseksi sinun on luotava FileSystemObject:
12 | Himmennä FSO uutena FileSystemObjectinaAseta FSO = CreateObject ("Scripting.FileSystemObject") |
Nyt voit käyttää MoveFileä ja muita FileSystemObject Methods -menetelmiä.
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
Siirrä yksi tiedosto
Voit siirtää yksittäistä tiedostoa käyttämällä yksinkertaista FSO -syntaksia. MoveFile (lähde, kohde).
1 | FSO.MoveFile "C: \ Src \ TestFile.txt", "C: \ Dst \ ModTestFile.txt" |
Kuten edellä mainittiin, sinun on ensin luotava FileSystemObject:
1234567 | Osa FSOMoveFile ()Himmennä FSO uutena FileSystemObjectinaAseta FSO = CreateObject ("Scripting.FileSystemObject")FSO.MoveFile "C: \ Src \ TestFile.txt", "C: \ Dst \ ModTestFile.txt"End Sub |
Siirrä useita tiedostoja
Voit siirtää useita tiedostoja samalla nimellä:
1 | FSO.MoveFile "C: \ Src \ TestFile*.txt", "C: \ Dst \" |
Tai voit siirtää useita tiedostoja samalla laajennuksella:
1 | FSO.MoveFile "C: \ Src \ *.xlsx", "C: \ Dst \" |
Tai yksinkertaisesti kaikki tiedostot kansiosta:
1 | FSO.MoveFile "C: \ Src \*", "C: \ Dst \" |
Huomaa, että tässä käytetään * -merkkiä.
Sen sijaan, että käytät * -merkkiä, voit siirtää kaikki kansiossa olevat tiedostot käyttämällä jokaista silmukkaa.
12345678910111213141516 | FSOMoveAllFiles -ali ()Himmennä FSO uutena FileSystemObjectinaHimmennä polusta merkkijononaHimmennä polku merkkijononaDim FileInFromFolder objektinaFromPath = "C: \ Src \"ToPath = "C: \ Dst \"Aseta FSO = CreateObject ("Scripting.FileSystemObject")Jokaiselle FileInFromFolder -tiedostolle FSO.GetFolder (FromPath)FileInFromFolder.Move ToPathSeuraava FileInFromFolderEnd Sub |
Siirrä tiedosto uuteen kansioon
Voit myös siirtää tiedostot uusiin kansioihin. Voit tehdä tämän lisäämällä komennon
1 | MkDir "C: \ Dst \" |
ennen kuin ilmoitat kohdepolun.
1234567891011121314151617 | FSOMoveAllFiles -ali ()Himmennä FSO uutena FileSystemObjectinaHimmennä polusta merkkijononaHimmennä polku merkkijononaDim FileInFromFolder objektinaFromPath = "C: \ Src \"MkDir "C: \ Dst \"ToPath = "C: \ Dst \"Aseta FSO = CreateObject ("Scripting.FileSystemObject")Jokaiselle FileInFromFolder -tiedostolle FSO.GetFolder (FromPath)FileInFromFolder.Move ToPathSeuraava FileInFromFolderEnd Sub |
Oletko kyllästynyt etsimään esimerkkejä VBA -koodista? Kokeile AutoMacroa!
Siirrä kansiot
Voit käyttää kansioiden siirtämiseen analogista MoveFolder -menetelmää.
1234567 | Sub FSOMoveFolder ()Himmennä FSO uutena FileSystemObjectinaAseta FSO = CreateObject ("Scripting.FileSystemObject")FSO.MoveFolder "C: \ OldFolder", "C: \ Dst \ NewFolder"End Sub |