首页 > 编程 > VBScript > 正文

vbs循环产生的参数的传递问题

2020-07-26 11:57:41

字体：大中小

来源：转载

供稿：网友

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:/1/0.txt", 1)
set WshShell = WScript.CreateObject("WScript.Shell")
strFolder = "d:/1/"
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
filename = strLine
Set objFile = objFSO.GetFile(filename)
set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")
oShellLink.TargetPath = objFile
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
Loop
objFile.Close

这个只传递一次就完了

上一篇：海阳顶端网进百度blog必须输入密码的vbscript代码

下一篇：vbs中的LoadPicture函数示例

学习交流

选择笔记本处理器（CPU）需避免那些误区和基

选择笔记本处理器（CPU）需避免那些误区和基本常识...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

中国移动6月净增5G套餐用户1459万户累计达7019.9万户

2020-07-20 18:48:56

蚂蚁集团计划在科创板和港交所同步上市估值超2000亿美元

2020-07-20 18:46:41

传滴滴最快年内在香港IPO 目标估值800亿美元

2020-07-20 18:43:20

小鹏汽车宣布C+轮融资近5亿美元高瓴红杉等为主要投资者

2020-07-20 18:35:48

微博内测热搜定制功能你可以愉快地吃瓜了吗？

2020-07-17 23:29:31

Twitter证实：黑客一共瞄准130个名人账号

2020-07-17 23:24:56

疑难解答

图片精选

网友关注