फाइलकॉपी विवरण
फ़ाइल को एक निर्देशिका से दूसरी निर्देशिका में कॉपी करता है।
सरल फाइलकॉपी उदाहरण
1 | फाइलकॉपी "सी:\Test.txt" "डी:\" |
यह फ़ाइल "Test.txt" को "C:\" पर D ड्राइव पर कॉपी कर देगा।
यदि फ़ाइल "Test.txt" "C:\" पर मौजूद नहीं है, तो यह एक रन-टाइम त्रुटि '53' होगी: फ़ाइल नहीं मिली।
फाइलकॉपी सिंटेक्स
VBA संपादक में, आप FileCopy Statement का सिंटैक्स देखने के लिए "FileCopy(") टाइप कर सकते हैं:
FileCopy कथन में 2 तर्क हैं:
स्रोत: कॉपी करने के लिए फ़ाइल का स्ट्रिंग नाम। पथ शामिल कर सकते हैं।
गंतव्य: स्ट्रिंग एक्सप्रेशन जो लक्ष्य फ़ाइल नाम निर्दिष्ट करता है। गंतव्य में निर्देशिका या फ़ोल्डर, और ड्राइव शामिल हो सकते हैं।
एक्सेल वीबीए फाइलकॉपी फंक्शन के उदाहरण
कृपया निम्नलिखित कोड के साथ परीक्षण करें।
123456789101112131415161718192021222324252627282930 | उप FileCopy_Example ()FileDialog के रूप में मंद dlgFilePickerमंद dlgFileSaveAs FileDialog के रूप मेंस्ट्रिंग के रूप में मंद strOrgFileस्ट्रिंग के रूप में मंद strTarFiledlgFilePicker = Application.FileDialog (msoFileDialogFilePicker) सेट करेंdlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "कॉपी करें"dlgFilePicker.Title = "कृपया कॉपी करने के लिए फ़ाइल चुनें"अगर dlgFilePicker.Show = True तोstrOrgFile = dlgFilePicker.SelectedItems(1)अन्यथाउप से बाहर निकलेंअगर अंतdlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs) सेट करेंdlgFileSaveAs.Title = "कृपया एक फ़ोल्डर इंगित करें और एक फ़ाइल नाम लिखें।"dlgFileSaveAs.ButtonName = "पेस्ट"अगर dlgFileSaveAs.Show = सही है तोstrTarFile = dlgFileSaveAs.SelectedItems(1)अन्यथाउप से बाहर निकलेंअगर अंतफाइलकॉपी strOrgFile, strTarFileअंत उप |
इसे चलाने पर, यह सबसे पहले "कॉपी करने के लिए एक फ़ाइल का चयन करें" डायलॉग प्रदर्शित करेगा।
फिर, आपको कॉपी करने के लिए एक फ़ाइल का चयन करना चाहिए।
फ़ाइल का चयन करने के बाद, कृपया "कॉपी करें" बटन पर क्लिक करें।
फिर, यह एक संवाद प्रदर्शित करेगा "कृपया एक फ़ोल्डर इंगित करें और एक फ़ाइल नाम लिखें"।
आपको एक गंतव्य फ़ोल्डर का चयन करना चाहिए और एक फ़ाइल नाम लिखना चाहिए।
उसके बाद, "पेस्ट" बटन पर क्लिक करें।
फिर, स्रोत फ़ाइल को गंतव्य फ़ोल्डर और फ़ाइल नाम के साथ कॉपी किया जाएगा।