किसी फ़ाइल को सहेजने के लिए VBScript का उपयोग कैसे करें

अन्य स्क्रिप्टिंग भाषाओं की तरह, VBScript में फ़ाइल इनपुट और आउटपुट को संभालने के लिए कार्य शामिल हैं। Microsoft स्क्रिप्टिंग भाषा के रूप में, VBScript के पास उन विंडोज ऑब्जेक्ट्स तक पहुंच है जो इंटरनेट कनेक्शन और फाइल सेविंग को हैंडल करते हैं। यदि आपका व्यवसाय मुख्य रूप से विंडोज का उपयोग करता है, तो मूल फ़ाइल पढ़ने और लिखने के कार्यों को स्वचालित करने के लिए VBScript का उपयोग करना जानना एक उपयोगी कौशल साबित हो सकता है। इंटरनेट से फ़ाइलों की बचत को स्वचालित करने के लिए, आप कंप्यूटर पर स्थानीय फ़ाइल में फ़नल डेटा के लिए ADODB स्ट्रीमिंग ऑब्जेक्ट का उपयोग कर सकते हैं। यह फ़ाइल लिखेगा और स्वचालित रूप से इसे बचाएगा।

1।

अपने अपलोड और डाउनलोड स्थानों के लिए चर बनाएं:

Dim url = "//www.domain.com/file.zip" Dim download = "D:\file.zip" 

2।

वेब से फ़ाइल डाउनलोड करें:

ObjXMLHTTP सेट करें = CreateObject ("MSXML2.XMLHTTP")

 objXMLHTTP.open "GET", url, false objXMLHTTP.send() 

3।

डाउनलोडिंग ऑब्जेक्ट के लिए एक डेटा स्ट्रीम बनाएं और डाउनलोड की गई फ़ाइल की शुरुआत में इसकी रीडिंग पोजीशन सेट करें:

सेट स्ट्रीम = CreateObject ("ADODB.Stream") स्ट्रीम। PDF स्ट्रीम। टाइप करें = 1 'adTypeBinary

stream.Write objXMLHTTP.esponseBody स्ट्रीम। प्रस्ताव = 0

4।

फ़ाइल से जानकारी को संभालने के लिए एक सिस्टम ऑब्जेक्ट बनाएँ, स्ट्रीम से फ़ाइल में पढ़ें और डेटा स्ट्रीम बंद करें:

सेट करें system_file = Createobject ("Scripting.FileSystemObject") यदि system_file.Fileexists (डाउनलोड) है तो objFSO.DeleteFile डाउनलोड सेट system_file = कुछ भी नहीं

stream.SaveToFile डाउनलोड स्ट्रीम। सेट करें स्ट्रीम = कुछ भी नहीं तो समाप्त

लोकप्रिय पोस्ट