किसी भी स्थान पर किसी भी डेस्कटॉप से ​​इस विशेष स्क्रिप्ट को कैसे लॉन्च किया जाए?

Question

इस हिस्से को संशोधित करने के लिए कोड लगता है:

Set fol = fso.GetFolder("c:\TEST")

मैं इसे कैसे बदल सकता हूं ताकि यह किसी भी स्थान / पथ से किसी भी कंप्यूटर पर काम करे?

क्या मुझे एक अतिरिक्त कोड को एकीकृत करने की आवश्यकता होगी जो व्यक्ति को अनुमति देता है

उनके कंप्यूटर के नाम पर अस्थायी रूप से टाइप करने के लिए - यानी JOHN-PC / MARY-PC / PAUL-PC

क्या इसे किसी विशिष्ट स्थान / पथ को कॉल करने की आवश्यकता है या क्या इसे पूरी तरह से हटाने का कोई तरीका है?

---

Dim sName
Dim fso
Dim fol

' create the filesystem object
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' get current folder
Set fol = fso.GetFolder("c:\TEST")

' go thru each files in the folder
For Each fil In fol.Files
' check if the file name contains underscore
If InStr(1, fil.Name, "john") <> 0 Then
    ' replace underscore with space
    sName = Replace(fil.Name, "john", "dave")
    ' rename the file
    fil.Name = sName
End If
Next

' echo the job is completed
WScript.Echo "Completed!"

Comments

आप किस फोल्डर को चलाना चाहते हैं? आप एक तर्क के रूप में फ़ोल्डर प्रदान कर सकते हैं? या यह स्क्रिप्ट चालू है फ़ोल्डर में चला गया है?

— जोनो

डेस्कटॉप या डाउनलोड, यह समस्या प्रतीत होती है कि अगर मैं किसी मित्र को फ़ाइल भेजता हूं और वह डेस्कटॉप या डाउनलोड फ़ोल्डर से निष्पादित करना चाहता है, तो यह व्यवस्थापक से व्यवस्थापक में अंतर करने में सक्षम नहीं होगा। पिछले एक मुझे लगता है। thnx।

— क्लाउडिया एल।

Answer 1

आपके पास कई विकल्प हैं।

1. आप फ़ाइल पथ को आधार बना सकते हैं %USERPROFILE%- उदाहरण के लिए %USERPROFILE%\Downloads\,। यह आपको उपयोगकर्ता में वर्तमान लॉग इन के लिए डाउनलोड फ़ोल्डर देगा।

2. आप एक के रूप में यह प्रदान कर सकता है argumentइस पर, अधिक जानकारी के लिए यहाँ ।

प्रभावी रूप से आप तब फ़ाइल को cscript FILE.vbs "C:\Temp\Folder\"अपने स्क्रिप्ट उपयोग के साथ कॉल करेंगे :

objArgs = WScript.Arguments
Set fol = fso.GetFolder(objArgs(0))

3. आपके द्वारा पाया गया उदाहरण आपको वर्तमान कार्यशील फ़ोल्डर देगा। उदाहरण के लिए, यदि आपका VBS हैC:\Temp\Test\test.vbs

   Set fol = fso.GetFolder(fso.GetAbsolutePathName("."))

यह folफ़ोल्डर की सामग्री को बना देगा C:\Temp\Test- भालू को ध्यान में रखते हुए, इसमें आपकी वीबीएस फ़ाइल शामिल होगी जो आप चला रहे हैं ..!

Comments

के लिए 3. क्या मुझे इस लाइन को जोड़ने की आवश्यकता होगी? तथ्य के बाद स्क्रिप्ट कैसे दिखेगी?

— क्लाउडिया एल।

मेरे उत्तर को अपडेट करें, बस लाइन को स्वैप करें जैसा कि यह है।

— जोनो

देखा कि अंतिम संपादन, यह काम करने लगता है। धन्यवाद!

— क्लाउडिया एल।

@ClaudiaL। कोई दिक्कत नहीं है। जैसा कि कहा गया है, सावधान रहें क्योंकि यह VBS फाइल को भी पकड़ रहा होगा। के रूप में स्वीकार आप जवाब चिह्नित कर सकते हैं, तो अगर यह आपको मदद की है ( meta.stackexchange.com/questions/5234/... )

— जोनो