vbs循環(huán)產(chǎn)生的參數(shù)的傳遞問(wèn)題
更新時(shí)間：2008年06月09日 23:08:17 作者：
用vbs實(shí)現(xiàn)循環(huán)產(chǎn)生參數(shù)的傳遞問(wèn)題，建議大家測(cè)試學(xué)習(xí)
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
這個(gè)只傳遞一次就完了
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
這個(gè)只傳遞一次就完了
相關(guān)文章
用VBS實(shí)現(xiàn)一個(gè)小鍵盤(pán)動(dòng)作CTRL+V粘貼操作與思路分析
我想實(shí)現(xiàn)當(dāng)有跳出窗口"請(qǐng)輸入"時(shí)的1.8秒后就發(fā)送一次 CTRL + V,把本來(lái)已經(jīng)復(fù)制到剪切版中的文字自動(dòng)粘貼過(guò)去呢2009-12-12
VBS教程：函數(shù)-Sin 函數(shù)...2006-11-11
用vbscript得到注冊(cè)表中是否存在某個(gè)值
用vbscript得到注冊(cè)表中是否存在某個(gè)值...2007-04-04
Windows系統(tǒng)中通過(guò)vbs實(shí)現(xiàn)循環(huán)運(yùn)行.bat/.exe等文件
有時(shí)候我們需要在電腦上循環(huán)運(yùn)行一些命令,例如每5分鐘執(zhí)行一次,如果不結(jié)合別的計(jì)劃軟件就可以通過(guò)vbs來(lái)實(shí)現(xiàn)2024-04-04
vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)（工作組也可以）
用vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)（工作組也可以）的代碼，需要的朋友可以參考下。2011-05-05
NYboy.vbs病毒源代碼公布，我來(lái)模擬熊貓燒香
NYboy.vbs病毒源代碼公布，我來(lái)模擬熊貓燒香...2007-03-03
用VBS實(shí)現(xiàn)監(jiān)視進(jìn)程創(chuàng)建與刪除的代碼
微軟腳本中心里的例子，用到了WMI事件，抄下來(lái)備查。2011-02-02
使用 iisweb.vbs 刪除網(wǎng)站的方法(支持批量刪除)
有時(shí)候我們需要批量刪除網(wǎng)站，如果一個(gè)一個(gè)手工刪除肯定太慢了，這里分享個(gè)命令，通過(guò)iisweb.vbs批量刪除網(wǎng)站2014-07-07
Win7下VHD文件右鍵增強(qiáng)實(shí)現(xiàn)代碼(vbs+注冊(cè)表)
這篇文章主要介紹了Win7下VHD文件右鍵增強(qiáng)的實(shí)現(xiàn)方法，需要的朋友可以參考下2013-07-07
用vbs模擬的一個(gè)asp的分頁(yè)顯示功能...2007-03-03