上原瑞惠,哥哥轻一点我疼,红图网
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实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
-
-
网友评论