Board logo

标题: VBS怎样寻找同名的txt文件并读取? [打印本页]

作者: Wingl83     时间: 2010-10-30 21:48    标题: VBS怎样寻找同名的txt文件并读取?
想在右键增加此功能:
右击a文件(拓展名不限,文件名可以含有特殊字符,例如空格和“.”),选择“查看说明”,则搜索a文件所在文件夹下同样命名为a的txt文件,并txt中的内容赋值为text(fso.opentextfile)

作者: ejzhang     时间: 2010-10-31 00:27
Set fso = CreateObject("Scripting.FileSystemObject")
Set objTextFile = fso.OpenTextFile(WScript.ScriptFullName)