वीबीए: किसी फ़ाइल को एक स्थान से दूसरे स्थान पर कैसे कॉपी करें

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

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

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

यह विशेष मैक्रो सॉकर_डेटा.txt नामक फ़ाइल को Som_Data_1 नामक फ़ोल्डर से Som_Data_2 नामक फ़ोल्डर में कॉपी करता है।

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

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

मान लीजिए कि हमारे पास सॉकर_डेटा.txt नामक एक टेक्स्ट फ़ाइल है जो हमारे डेस्कटॉप पर Som_Data_1 नामक फ़ोल्डर में स्थित है:

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

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

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

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

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

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

एक बार जब यह मैक्रो निष्पादित हो जाता है, तो सॉकर_डेटा.txt नाम की फ़ाइल को Som_Data_1 फ़ोल्डर से Som_Data_2 फ़ोल्डर में कॉपी कर दिया जाएगा:

मूल सॉकर_डेटा.txt फ़ाइल भी Som_Data_1 फ़ोल्डर में रहेगी:

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

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

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

VBA का उपयोग करके फ़ोल्डर्स कैसे बनाएं
VBA का उपयोग करके फ़ोल्डर्स को कैसे हटाएं
VBA का उपयोग करके फ़ाइलें कैसे हटाएं