vbs循环产生的参数的传递问题

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. strLine = objFile.ReadLine   
7. filename = strLine    
8. Set objFile = objFSO.GetFile(filename)  
9. set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")    
10. oShellLink.TargetPath = objFile    
11. oShellLink.WindowStyle = 1    
12. oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)    
13. oShellLink.Save  
14. Loop   
15. objFile.Close  

这个只传递一次就完了