国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs循環產生的參數的傳遞問題

2019-10-26 18:00:47
字體：大 中 小
來源：轉載
供稿：網友
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

這個只傳遞一次就完了

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 宣恩县| 黄梅县| 南华县| 中阳县| 聂拉木县| 长白| 连云港市| 岳阳市| 墨玉县| 依兰县| 万全县| 和政县| 三穗县| 河池市| 太和县| 永康市| 沙湾县| 井冈山市| 定州市| 资兴市| 东城区| 筠连县| 鄯善县| 锡林浩特市| 尤溪县| 夏津县| 丰都县| 大新县| 平武县| 凤冈县| 天门市| 沭阳县| 丰原市| 吉木萨尔县| 甘德县| 梅州市| 新疆| 安平县| 安仁县| 富宁县| 陕西省|