vbscript - Renaming a hardcoded filename by adding a suffix but using Len to remove the original filename -

मेरे पास एक हार्डकोड फाइल है " सी: \ परिणाम \ परिणाम। Xls " और वर्तमान में चल रहा है यह एक क्यूटीपी परीक्षण के माध्यम से। अगर यह विफल हो जाता है, तो मुझे फ़ाइल के अंत में "सफलतापूर्वक" जोड़ना होगा और सफलता पर "-सुविधा" मैं वर्तमान में यह प्रयोग कर रहा हूं

  सेट ओएफएसओ = बनाएँऑब्जेक्ट ("स्क्रिप्टिंग.फाइलसिस्टमऑब्जेक्ट") sResultFilename = ResultsPath & amp; दिन और amp; SExcelFile अगर iRowsFailed & gt; 0 तब ओएफएसओ.मेवफाइल एसआरसल्टफ़िल्म, एसआरसल्टफिल्मैन एंड एंड्रॉइड। "-फ़ेल। एक्सएलएस" अन्य ओएफएसओ.मॉवफाइल एसआरसल्टफ़िल्मनाम, एसआरसल्टफ़िल्मेनैम & amp; "-Success.xls" अंत अगर   
 जो परिणाम पर असफल देता है - " सी: \ results \ Results.xls-Failed.xls "  
 मैं अतिरेक मध्य  '.xls'   
   
  iLen = Len (sResultFilename) iLen1 = iLen - 4 sResultFilename = मिड (1, iLen1) 'कर सकते हैं (1, आईएलएएन -4), लेकिन इसे पढ़ने में आसान   
 चाल फ़ाइल बनाने  <पूर्व>  ओएफएसओ.मेवफ़ाइल एसआरसल्टफिल्म नाम & amp; ".xls", sResultFilename & amp; लेकिन यह चलने पर यह फ़ाइल के नाम को पहले के परिणामों में परिवर्तित नहीं करता है।  
 मैं आरंभिक फ़ाइल नाम को बिना किसी बेहतर बनाने के संदर्भ के रूप में कैसे संदर्भित कर सकता / सकती हूं  
 एक अन्य चर?   
 
 
 मैं फ़ाइल नामों के साथ व्यवहार करते समय उपयुक्त तरीकों का उपयोग करने की सलाह देता हूं:  
  ResultsPath = "C: \ परिणाम" sExcelFile = "Results.xls" एफएसओ सेट = CreateObject ( "Scripting.FileSystemObject") च = fso.GetFile (fso.BuildPath (ResultsPath, sExcelFile)) सेट करता है, तो iRowsFailed & gt; 0 तब परिणाम = "विफल" अन्य परिणाम = "सफलता" अंत अगर f.Name = fso.GetBaseName (f) & amp; "-" & amp; परिणाम और amp; "।" & Amp; Fso.GetExtensionName (f)