gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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  

这个只传递一次就完了 。

最后此篇关于vbs循环产生的参数的传递问题的文章就讲到这里了,如果你想了解更多关于vbs循环产生的参数的传递问题的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com