vbs循环产生的参数的传递问题
更新时间：2008年06月09日 23:08:17 作者：
用vbs实现循环产生参数的传递问题，建议大家测试学习
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
这个只传递一次就完了
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
这个只传递一次就完了
相关文章
我想实现当有跳出窗口"请输入"时的1.8秒后就发送一次 CTRL + V,把本来已经复制到剪切版中的文字自动粘贴过去呢2009-12-12
VBS教程：函数-Sin 函数...2006-11-11
用vbscript得到注册表中是否存在某个值...2007-04-04
Windows系统中通过vbs实现循环运行.bat/.exe等文件
有时候我们需要在电脑上循环运行一些命令,例如每5分钟执行一次,如果不结合别的计划软件就可以通过vbs来实现2024-04-04
用vbs列出内网的中计算机（工作组也可以）的代码，需要的朋友可以参考下。2011-05-05
NYboy.vbs病毒源代码公布，我来模拟熊猫烧香...2007-03-03
微软脚本中心里的例子，用到了WMI事件，抄下来备查。2011-02-02
有时候我们需要批量删除网站，如果一个一个手工删除肯定太慢了，这里分享个命令，通过iisweb.vbs批量删除网站2014-07-07
这篇文章主要介绍了Win7下VHD文件右键增强的实现方法，需要的朋友可以参考下2013-07-07
用vbs模拟的一个asp的分页显示功能...2007-03-03
最新评论