Vba का उपयोग करके फ़ाइलें कैसे स्थानांतरित करें (उदाहरण के साथ)

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

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

 Sub MoveMyFile()

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

'move file
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

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

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

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

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

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

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

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

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

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

 Sub MoveMyFile()

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

'move file
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

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

ध्यान दें कि यदि आप सभी फ़ाइलों को एक फ़ोल्डर से दूसरे फ़ोल्डर में ले जाना चाहते हैं, तो आप निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 Sub MoveMyFile()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source and destination folders
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\*"
DestFile = "C:\Users\bob\Desktop\Some_Data_2\"

'move all files from source folder to destination folder
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

यह विशेष मैक्रो सभी फ़ाइलों को Som_Data_1 फ़ोल्डर से Som_Data_2 फ़ोल्डर में ले जाएगा।

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

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

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

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