Board logo

标题: [问题求助] [已解决]VBS如何实现使用拖放方式执行对多个文件在文件名前添加文件所在的文件夹名 [打印本页]
作者: tonyabbs    时间: 2016-11-18 19:00     标题: [已解决]VBS如何实现使用拖放方式执行对多个文件在文件名前添加文件所在的文件夹名

本帖最后由 tonyabbs 于 2016-11-18 22:34 编辑

VBS如何逐个处理拖放文件
我写了一段代码，拖放文件到该代码上时，文件名前面加上目录名。但每次只执行了一次。请教如何实现多个文件拖放上去后，逐个执行更名？谢谢！
  1. Set fso=CreateObject("Scripting.FileSystemObject")

  2. file=WSH.Arguments(0)

  3. Set f =fso.GetFile(file)

  4. pname=f.ParentFolder.name

  5. fname=fso.GetBaseName(file)

  6. fext="."&fso.GetExtensionName(file)

  7. newfname=pname&fname&fext

  8. fso.GetFile(file).Name=newfname
复制代码
作者: pcl_test    时间: 2016-11-18 21:23

  1. For Each argv In WScript.Arguments '有长度限制

  2.     msgbox argv

  3. Next
复制代码
作者: tonyabbs    时间: 2016-11-18 22:33

回复 2# pcl_test 
  1. Set fso=CreateObject("Scripting.FileSystemObject")

  2. 'file=WSH.Arguments(0)

  3. For Each file In WScript.Arguments '有长度限制

  4.     Set f =fso.GetFile(file)

  5.     pname=f.ParentFolder.name

  6.     fname=fso.GetBaseName(file)

  7.     fext="."&fso.GetExtensionName(file)

  8.     newfname=pname&fname&fext

  9.     fso.GetFile(file).Name=newfname

  10. Next
复制代码
谢谢！只是有长度限制没搞懂什么意思？反正现在是能用了。
作者: 老刘1号    时间: 2016-11-18 22:36

回复 3# tonyabbs


    就是传递的参数不能太长咯~
作者: tonyabbs    时间: 2016-11-18 22:45

回复 4# 老刘1号
比如呢？一下子拖100个文件？或者文件名很长?有具体的规定吗？
作者: 老刘1号    时间: 2016-11-18 22:50

回复 5# tonyabbs


    这我也不太清楚，问版主吧



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2