国产探花免费观看_亚洲丰满少妇自慰呻吟_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

這個只傳遞一次就完了

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

圖片精選

主站蜘蛛池模板： 胶州市| 博罗县| 长汀县| 永嘉县| 千阳县| 砀山县| 丽江市| 临夏市| 康保县| 离岛区| 阜宁县| 鄯善县| 华阴市| 利川市| 德格县| 武隆县| 团风县| 山东| 富顺县| 阜新| 南召县| 射洪县| 留坝县| 曲松县| 偏关县| 东乡县| 崇州市| 增城市| 四会市| 庆安县| 齐齐哈尔市| 衡东县| 宜阳县| 宕昌县| 木兰县| 福贡县| 滦南县| 东乡| 阿合奇县| 林甸县| 根河市|