摘要： fileName = "f.txt"content = "blank context" Dim objFSOSet objFSO = CreateObject("scripting.filesystemobject")absFileName = objFSO.GetAbsolutePathName( 阅读全文

摘要： 'FOR /f "delims=" %%i IN ('DIR *.xlsx /b') DO excel2csv.vbs "%%i" "%%i.csv" if WScript.Arguments.Count < 2 Then WScript.Echo "Please specify the src a 阅读全文

摘要： Dim ws Set ws=WScript.CreateObject("WScript.Shell") arrDict=array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P", 阅读全文