[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2016-11-18 21:23 | 只看该作者 
  1. For Each argv In WScript.Arguments '有长度限制

  2.     msgbox argv

  3. Next
复制代码
1

评分人数

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
3楼
发表于 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
复制代码
谢谢！只是有长度限制没搞懂什么意思？反正现在是能用了。

TOP

老刘1号

Rank: 8Rank: 8

帖子
1000 
积分
1789 
技术
205  
捐助
50  
注册时间
2016-4-17 
4楼
发表于 2016-11-18 22:36 | 只看该作者
回复 3# tonyabbs


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

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
5楼
发表于 2016-11-18 22:45 | 只看该作者
回复 4# 老刘1号
比如呢？一下子拖100个文件？或者文件名很长?有具体的规定吗？

TOP

老刘1号

Rank: 8Rank: 8

帖子
1000 
积分
1789 
技术
205  
捐助
50  
注册时间
2016-4-17 
6楼
发表于 2016-11-18 22:50 | 只看该作者
回复 5# tonyabbs


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

TOP

返回列表