यह ट्यूटोरियल प्रदर्शित करेगा कि FileSystemObject की MoveFile विधि का उपयोग कैसे करें।
VBA FileSystemObject के साथ फ़ाइलें ले जाएँ
MoveFile विधि एक या अधिक फ़ाइलों को एक स्थान से दूसरे स्थान पर ले जाती है।
वीबीए संदर्भ सेट करें
सबसे पहले, FileSystemObjects का उपयोग करते समय, आपको VB स्क्रिप्ट रन-टाइम लाइब्रेरी के लिए एक संदर्भ सेट करना पड़ सकता है: Visual Basic Editor (ALT+F11) खोलें, ड्रॉप-डाउन मेनू से टूल्स > संदर्भ चुनें और के चेक-बॉक्स पर टिक करें। 'माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम'।
फाइलसिस्टमऑब्जेक्ट
दूसरा, आपको FileSystemObject बनाना होगा:
12 | नई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओFSO सेट करें = CreateObject ("Scripting.FileSystemObject") |
अब आपके पास MoveFile, और अन्य FileSystemObject विधियों तक पहुंच है।
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
एक फ़ाइल ले जाएँ
एकल फ़ाइल को स्थानांतरित करने के लिए, आप FSO.MoveFile (स्रोत, गंतव्य) के सरल सिंटैक्स का उपयोग कर सकते हैं।
1 | FSO.MoveFile "C:\Src\TestFile.txt", "C:\Dst\ModTestFile.txt" |
जैसा कि ऊपर उल्लेख किया गया है, सबसे पहले आपको FileSystemObject बनाने की आवश्यकता है:
1234567 | उप FSOMoveFile ()नई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओFSO सेट करें = CreateObject ("Scripting.FileSystemObject")FSO.MoveFile "C:\Src\TestFile.txt", "C:\Dst\ModTestFile.txt"अंत उप |
एकाधिक फ़ाइलें ले जाएँ
आप एक ही नाम के हिस्सों के साथ कई फाइलों को स्थानांतरित कर सकते हैं:
1 | FSO.MoveFile "C:\Src\TestFile*.txt", "C:\Dst\" |
या आप एक ही एक्सटेंशन के साथ कई फाइलों को स्थानांतरित कर सकते हैं:
1 | FSO.MoveFile "C:\Src\ *.xlsx", "C:\Dst\" |
या बस एक फ़ोल्डर से सभी फाइलें:
1 | FSO.MoveFile "C:\Src\*", "C:\Dst\" |
ध्यान दें, यहां हम * वाइल्डकार्ड कैरेक्टर का उपयोग करते हैं।
* वाइल्डकार्ड का उपयोग करने के बजाय, आप प्रत्येक लूप के लिए एक फ़ोल्डर में सभी फ़ाइलों को स्थानांतरित कर सकते हैं।
12345678910111213141516 | उप FSOMoveAllFiles ()नई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओस्ट्रिंग के रूप में मंद FromPathस्ट्रिंग के रूप में मंद ToPathमंद FileInFromFolder वस्तु के रूप मेंFromPath = "सी:\Src\"टोपाथ = "सी:\डीएसटी\"FSO सेट करें = CreateObject ("Scripting.FileSystemObject")FSO.GetFolder(FromPath) में प्रत्येक FileInFromFolder के लिए। फ़ाइलेंFileInFromFolder.Move ToPathअगली फ़ाइलInFromFolderअंत उप |
फ़ाइल को एक नए फ़ोल्डर में ले जाएँ
आप फ़ाइल (फ़ाइलों) को नए बनाए गए फ़ोल्डर में भी स्थानांतरित कर सकते हैं। ऐसा करने के लिए, कमांड जोड़ें
1 | एमकेडीआईआर "सी:\डीएसटी\" |
गंतव्य पथ घोषित करने से पहले।
1234567891011121314151617 | उप FSOMoveAllFiles ()नई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओस्ट्रिंग के रूप में मंद FromPathस्ट्रिंग के रूप में मंद ToPathमंद FileInFromFolder वस्तु के रूप मेंFromPath = "सी:\Src\"एमकेडीआईआर "सी:\डीएसटी\"टोपाथ = "सी:\डीएसटी\"FSO सेट करें = CreateObject ("Scripting.FileSystemObject")FSO.GetFolder(FromPath) में प्रत्येक FileInFromFolder के लिए। फ़ाइलेंFileInFromFolder.Move ToPathअगली फ़ाइलInFromFolderअंत उप |
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
फ़ोल्डर ले जाएँ
आप फ़ोल्डरों को स्थानांतरित करने के लिए एनालॉग विधि MoveFolder का उपयोग कर सकते हैं।
1234567 | उप FSOMoveFolder ()नई फाइलसिस्टमऑब्जेक्ट के रूप में मंद एफएसओFSO सेट करें = CreateObject ("Scripting.FileSystemObject")FSO.MoveFolder "C:\OldFolder", "C:\Dst\NewFolder"अंत उप |