Šī apmācība parādīs, kā izmantot FileSystemObject metodi MoveFile.
Pārvietojiet failus, izmantojot VBA FileSystemObject
MoveFile metode pārvieto vienu vai vairākus failus no vienas vietas uz citu.
Iestatiet VBA atsauci
Pirmkārt, izmantojot FileSystemObjects, iespējams, būs jāiestata atsauce uz VB skripta izpildes laika bibliotēku: atveriet Visual Basic Editor (ALT+F11), nolaižamajā izvēlnē atlasiet Tools> References un atzīmējiet izvēles rūtiņu "Microsoft skriptu izpildlaiks".
FileSystemObject
Otrkārt, jums ir jāizveido FileSystemObject:
12 | Dim FSO kā jauns FileSystemObjectIestatīt FSO = CreateObject ("Scripting.FileSystemObject") |
Tagad jums ir piekļuve MoveFile un citām FileSystemObject Methods metodēm.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Pārvietot vienu failu
Lai pārvietotu vienu failu, varat izmantot vienkāršo FSO sintaksi. MoveFile (avots, galamērķis).
1 | FSO.MoveFile "C: \ Src \ TestFile.txt", "C: \ Dst \ ModTestFile.txt" |
Kā minēts iepriekš, vispirms jāizveido FileSystemObject:
1234567 | Apakšdaļa FSOMoveFile ()Dim FSO kā jauns FileSystemObjectIestatīt FSO = CreateObject ("Scripting.FileSystemObject")FSO.MoveFile "C: \ Src \ TestFile.txt", "C: \ Dst \ ModTestFile.txt"Beigu apakš |
Pārvietot vairākus failus
Varat pārvietot vairākus failus ar viena nosaukuma daļām:
1 | FSO.MoveFile "C: \ Src \ TestFile*.txt", "C: \ Dst \" |
Vai arī varat pārvietot vairākus failus ar vienu paplašinājumu:
1 | FSO.MoveFile "C: \ Src \ *.xlsx", "C: \ Dst \" |
Vai vienkārši visus failus no mapes:
1 | FSO.MoveFile "C: \ Src \*", "C: \ Dst \" |
Ievērojiet, šeit mēs izmantojam * aizstājējzīmi.
Tā vietā, lai izmantotu * aizstājējzīmi, varat pārvietot visus failus mapē, izmantojot cilpu Par katru.
12345678910111213141516 | Sub FSOMoveAllFiles ()Dim FSO kā jauns FileSystemObjectDim no ceļa kā virkneDim ToPath kā virkneDim FileInFromFolder kā objektsFromPath = "C: \ Src \"Ceļš = "C: \ Dst \"Iestatīt FSO = CreateObject ("Scripting.FileSystemObject")Katram FileInFromFolder In FSO.GetFolder (FromPath). FilesFileInFromFolder. Pārvietot uz ceļuNākamais FileInFromFolderBeigu apakš |
Pārvietot failu uz jaunu mapi
Jūs varat arī pārvietot failu (-us) uz jaunizveidotu mapi. Lai to izdarītu, pievienojiet komandu
1 | MkDir "C: \ Dst \" |
pirms galamērķa ceļa deklarēšanas.
1234567891011121314151617 | Sub FSOMoveAllFiles ()Dim FSO kā jauns FileSystemObjectDim no ceļa kā virkneDim ToPath kā virkneDim FileInFromFolder kā objektsFromPath = "C: \ Src \"MkDir "C: \ Dst \"Ceļš = "C: \ Dst \"Iestatīt FSO = CreateObject ("Scripting.FileSystemObject")Katram FileInFromFolder In FSO.GetFolder (FromPath). FilesFileInFromFolder. Pārvietot uz ceļuNākamais FileInFromFolderBeigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
Pārvietot mapes
Mapju pārvietošanai varat izmantot analogo metodi MoveFolder.
1234567 | Apakšdaļa FSOMoveFolder ()Dim FSO kā jauns FileSystemObjectIestatīt FSO = CreateObject ("Scripting.FileSystemObject")FSO.MoveFolder "C: \ OldFolder", "C: \ Dst \ NewFolder"Beigu apakš |