Vba में किसी फ़ोल्डर को कैसे कॉपी करें (उदाहरण के साथ)

आप किसी फ़ोल्डर को एक स्थान से दूसरे स्थान पर कॉपी करने के लिए VBA में CopyFolder विधि का उपयोग कर सकते हैं।

व्यवहार में इस पद्धति का उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 Sub CopyMyFolder()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source folder and destination folder
SourceFolder = "C:\Users\bob\Documents\current_data"
DestFolder = "C:\Users\bob\Desktop\"

'copy folder
FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

यह विशेष मैक्रो दस्तावेज़ फ़ोल्डर से current_data नामक फ़ोल्डर को डेस्कटॉप पर कॉपी करता है।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: वीबीए का उपयोग करके फ़ोल्डरों की प्रतिलिपि कैसे बनाएं

मान लीजिए कि हमारे पास current_data नामक एक फ़ोल्डर है जो दस्तावेज़ नामक फ़ोल्डर में स्थित है:

अब मान लें कि हम इस संपूर्ण फ़ोल्डर को डेस्कटॉप पर कॉपी करने के लिए VBA का उपयोग करना चाहते हैं, जिसमें वर्तमान में दो फ़ोल्डर हैं:

इस फ़ाइल को कॉपी करने के लिए VBA का उपयोग करने से पहले, हमें पहले VB संपादक में Microsoft स्क्रिप्टिंग रनटाइम को सक्षम करना होगा।

ऐसा करने के लिए, वीबी संपादक खोलें, फिर टूल्स पर क्लिक करें, फिर संदर्भ पर क्लिक करें:

दिखाई देने वाली नई विंडो में, तब तक नीचे स्क्रॉल करें जब तक आपको Microsoft स्क्रिप्टिंग रनटाइम दिखाई न दे और उसके बगल में स्थित बॉक्स को चेक करें। फिर ओके पर क्लिक करें.

फिर हम फ़ोल्डर की प्रतिलिपि बनाने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub CopyMyFolder()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source folder and destination folder
SourceFolder = "C:\Users\bob\Documents\current_data"
DestFolder = "C:\Users\bob\Desktop\"

'copy folder
FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

एक बार जब यह मैक्रो निष्पादित हो जाता है, तो current_data नाम का फ़ोल्डर दस्तावेज़ फ़ोल्डर से डेस्कटॉप पर कॉपी हो जाएगा:

मूल current_data फ़ोल्डर भी दस्तावेज़ फ़ोल्डर में रहेगा।

नोट : आप CopyFolder विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

VBA का उपयोग करके फ़ोल्डर्स कैसे बनाएं
VBA का उपयोग करके फ़ोल्डर्स को कैसे हटाएं
VBA का उपयोग करके किसी फ़ोल्डर में फ़ाइलों को कैसे सूचीबद्ध करें