Ši pamoka parodys, kaip naudoti „FileSystemObject“ metodą „MoveFile“.
Perkelkite failus naudodami „VBA FileSystemObject“
„MoveFile“ metodas perkelia vieną ar daugiau failų iš vienos vietos į kitą.
Nustatykite VBA nuorodą
Pirma, naudojant „FileSystemObjects“ gali tekti nustatyti nuorodą į VB scenarijaus vykdymo laiko biblioteką: atidarykite „Visual Basic“ redaktorių (ALT+F11), išskleidžiamajame meniu pasirinkite Įrankiai> Nuorodos ir pažymėkite žymės langelį „Microsoft Scripting Runtime“.
„FileSystemObject“
Antra, turite sukurti „FileSystemObject“:
| 12 | Pritemdyti FSO kaip naują „FileSystemObject“Nustatykite FSO = CreateObject ("Scripting.FileSystemObject") |
Dabar turite prieigą prie „MoveFile“ ir kitų „FileSystemObject Methods“.
VBA programavimas | Kodo generatorius jums tinka!
Perkelti vieną failą
Norėdami perkelti vieną failą, galite naudoti paprastą FSO sintaksę. MoveFile (šaltinis, paskirties vieta).
| 1 | FSO.MoveFile "C: \ Src \ TestFile.txt", "C: \ Dst \ ModTestFile.txt" |
Kaip minėta aukščiau, pirmiausia turite sukurti „FileSystemObject“:
| 1234567 | Antrasis FSOMoveFile ()Pritemdyti FSO kaip naują „FileSystemObject“Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")FSO.MoveFile "C: \ Src \ TestFile.txt", "C: \ Dst \ ModTestFile.txt"Pabaiga Sub |
Perkelti kelis failus
Galite perkelti kelis failus to paties pavadinimo dalimis:
| 1 | FSO.MoveFile "C: \ Src \ TestFile*.txt", "C: \ Dst \" |
Arba galite perkelti kelis failus su tuo pačiu plėtiniu:
| 1 | FSO.MoveFile "C: \ Src \ *.xlsx", "C: \ Dst \" |
Arba tiesiog visus failus iš aplanko:
| 1 | FSO.MoveFile "C: \ Src \*", "C: \ Dst \" |
Atkreipkite dėmesį, čia mes naudojame * pakaitos simbolį.
Užuot naudoję pakaitos simbolį, galite perkelti visus failus į aplanką naudodami ciklą „Už kiekvieną“.
| 12345678910111213141516 | Sub FSOMoveAllFiles ()Pritemdyti FSO kaip naują „FileSystemObject“Išbraukti nuo kelio kaip eilutę„Dim ToPath“ kaip eilutėDim FileInFromFolder kaip objektasFromPath = "C: \ Src \"ToPath = "C: \ Dst \"Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")Kiekvienam „FileInFromFolder“ FSO.GetFolder (FromPath) .FailaiFileInFromFolder. Perkelti į keliąKitas „FileInFromFolder“Pabaiga Sub |
Perkelti failą į naują aplanką
Failą (-us) taip pat galite perkelti į naujai sukurtą aplanką. Norėdami tai padaryti, pridėkite komandą
| 1 | MkDir "C: \ Dst \" |
prieš deklaruojant paskirties kelią.
| 1234567891011121314151617 | Sub FSOMoveAllFiles ()Pritemdyti FSO kaip naują „FileSystemObject“Išbraukti nuo kelio kaip eilutę„Dim ToPath“ kaip eilutėDim FileInFromFolder kaip objektasFromPath = "C: \ Src \"MkDir "C: \ Dst \"ToPath = "C: \ Dst \"Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")Kiekvienam „FileInFromFolder“ FSO.GetFolder (FromPath) .FailaiFileInFromFolder. Perkelti į keliąKitas „FileInFromFolder“Pabaiga Sub |
Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!
Perkelti aplankus
Norėdami perkelti aplankus, galite naudoti analoginį metodą „MoveFolder“.
| 1234567 | Sub FSOMoveFolder ()Pritemdyti FSO kaip naują „FileSystemObject“Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")FSO.MoveFolder "C: \ OldFolder", "C: \ Dst \ NewFolder"Pabaiga Sub |
