欢迎来到入门教程网!

vb

当前位置:主页 > 软件编程 > vb >

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

来源:本站原创|时间:2020-01-10|栏目:vb|点击:

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

这个只传递一次就完了

上一篇:一个用vbs查找硬盘所有分区中的指定程序的代码

栏    目:vb

下一篇:用VBS检测Guest状态的脚本

本文标题:vbs循环产生的参数的传递问题

本文地址:https://www.xiuzhanwang.com/a1/vb/7731.html

网页制作CMS教程网络编程软件编程脚本语言数据库服务器

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:835971066 | 邮箱:835971066#qq.com(#换成@)

Copyright © 2002-2020 脚本教程网 版权所有