[问题求助] [已解决]VBS如何实现使用拖放方式执行对多个文件在文件名前添加文件所在的文件夹名

tonyabbs

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

Set fso=CreateObject("Scripting.FileSystemObject")
file=WSH.Arguments(0)
Set f =fso.GetFile(file)
pname=f.ParentFolder.name
fname=fso.GetBaseName(file)
fext="."&fso.GetExtensionName(file)
newfname=pname&fname&fext
fso.GetFile(file).Name=newfname
复制代码

pcl_test

For Each argv In WScript.Arguments '有长度限制
    msgbox argv
Next
复制代码

tonyabbs

回复 2# pcl_test

Set fso=CreateObject("Scripting.FileSystemObject")
'file=WSH.Arguments(0)
For Each file In WScript.Arguments '有长度限制
    Set f =fso.GetFile(file)
    pname=f.ParentFolder.name
    fname=fso.GetBaseName(file)
    fext="."&fso.GetExtensionName(file)
    newfname=pname&fname&fext
    fso.GetFile(file).Name=newfname
Next
复制代码

谢谢！只是有长度限制没搞懂什么意思？反正现在是能用了。

老刘1号

回复 3# tonyabbs


    就是传递的参数不能太长咯~

tonyabbs

回复 4# 老刘1号
比如呢？一下子拖100个文件？或者文件名很长?有具体的规定吗？

老刘1号

回复 5# tonyabbs


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