VBS循环产生的参数怎么传递

yywd

vbs循环产生的参数怎么传递

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1)
set WshShell = WScript.CreateObject("WScript.Shell")  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
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

这个只传递一次就完了

breakan

能说清楚点儿么？你要干什么？

huahua0919

Do while objFile.AtEndOfStream <> true

zqz0012005

Set objFile = objFSO.GetFile(filename)
这一句有问题，对象实例重名，会将开始的Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1)替换，导致第2次循环时objFile.AtEndOfStream出现错误

而且这一句似乎没有必要（不知道你的代码是不是只有这么多）

要创建很多个快捷方式，最好使用过程

1. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
2. Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1)
   
3. set WshShell = WScript.CreateObject("WScript.Shell")  
   
4. strFolder = "d:\1"   
   
5. Do Until objFile.AtEndOfStream
   
6. makelink RePlace(objFile.ReadLine,"""","")
   
7. Loop
   
8. objFile.Close
   
9. 
   
10. Sub makelink(filename)
    
11. Set f = objFSO.GetFile(filename)   '似乎没有必要
    
12. set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")  
    
13. oShellLink.TargetPath = f          '此处直接用filename即可
    
14. oShellLink.WindowStyle = 1  
    
15. oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)  
    
16. oShellLink.Save
    
17. End Sub

复制代码