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

Rank: 1

帖子
6 
积分
19 
技术
0  
捐助
0  
注册时间
2023-9-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-9-17 20:36 | 只看该作者

[问题求助] VBS更改文件名问题

笔者新建一个文件夹，里面创建3个文件，分别为01.vbs，02.vbs，MyFile.txt
01.vbs写入如下代码：
  1. Dim Fso

  2. Set Fso = WScript.CreateObject("Scripting.FileSystemObject")

  3. Fso.GetFile("MyFile.txt").Name ="Hello.txt"
复制代码
双击运行，可以成功更改MyFile.txt文件名。
02.vbs写入如下代码：
  1. Dim Fso

  2. Dim a

  3. a = WScript.Arguments(0)

  4. Set Fso = WScript.CreateObject("Scripting.FileSystemObject")

  5. Fso.GetFile("MyFile.txt").Name ="Hello.txt"
复制代码
在文件夹中拖动01.vbs放置到02.vbs上以运行，发现无法更改MyFile.txt文件名。报错“文件未找到”，错误代码800A0035
想请教一下各位老师，是什么原因导致无法更改文件名？
收藏 分享

Five66

Rank: 5Rank: 5

帖子
820 
积分
1135 
技术
110  
捐助
0  
注册时间
2021-8-26 
2楼
发表于 2023-9-17 22:07 | 只看该作者
试了下，发现拖动执行时的命令行是
"%systemroot%\system32\wscript.exe" 02.vbs的完整路径 01.vbs的完整路径
当前目录路径是 %systemroot%\system32

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
657 
积分
777 
技术
34  
捐助
0  
注册时间
2023-2-9 
3楼
发表于 2023-9-17 22:19 | 只看该作者
02里也没用到变量a啊

TOP

SZT01

Rank: 1

帖子
6 
积分
19 
技术
0  
捐助
0  
注册时间
2023-9-17 
4楼
发表于 2023-9-18 09:02 | 只看该作者
回复 2# Five66


    太感谢您了！在这种情况下，该如何去重命名这个文件呢？

TOP

SZT01

Rank: 1

帖子
6 
积分
19 
技术
0  
捐助
0  
注册时间
2023-9-17 
5楼
发表于 2023-9-18 09:05 | 只看该作者
回复 3# jyswjjgdwtdtj


    主要是不明白a = WScript.Arguments(0)为什么会导致后面的重命名无法执行

TOP

czjt1234

Rank: 6Rank: 6

帖子
1048 
积分
1549 
技术
112  
捐助
0  
注册时间
2010-4-30 
6楼
发表于 2023-9-18 16:36 | 只看该作者 
  1. Dim Fso, a, oWshShell

  2. a = WScript.Arguments(0)

  3. Set oWshShell = CreateObject("WScript.Shell")

  4. MsgBox oWshShell.CurrentDirectory

  5. Set Fso = WScript.CreateObject("Scripting.FileSystemObject")

  6. Fso.GetFile("MyFile.txt").Name ="Hello.txt"
复制代码
第四行显示当前路径
可以看到加上了第二行会导致当前路径改变，导致找不到文件

QQ 20147578

TOP

czjt1234

Rank: 6Rank: 6

帖子
1048 
积分
1549 
技术
112  
捐助
0  
注册时间
2010-4-30 
7楼
发表于 2023-9-18 16:36 | 只看该作者 
  1. Dim Fso, a, oWshShell

  2. a = WScript.Arguments(0)

  3. Set oWshShell = CreateObject("WScript.Shell")

  4. MsgBox oWshShell.CurrentDirectory

  5. Set Fso = WScript.CreateObject("Scripting.FileSystemObject")

  6. Fso.GetFile("MyFile.txt").Name ="Hello.txt"
复制代码
第四行显示当前路径
可以看到加上了第二行会导致当前路径改变，导致找不到文件

QQ 20147578

TOP

老刘1号

Rank: 8Rank: 8

帖子
1000 
积分
1789 
技术
205  
捐助
50  
注册时间
2016-4-17 
8楼
发表于 2023-9-18 19:19 | 只看该作者 
  1. set ws = createobject("wscript.shell")

  2. msgbox ws.currentdirectory

  3. ws.currentdirectory = "D:\"
复制代码

TOP

Five66

Rank: 5Rank: 5

帖子
820 
积分
1135 
技术
110  
捐助
0  
注册时间
2021-8-26 
9楼
发表于 2023-9-18 20:04 | 只看该作者
回复 4# SZT01


    使用MyFile.txt的完整路径，可以用WScript.ScriptFullName整出来
例如：
Fso.GetFile(WScript.ScriptFullName).ParentFolder.Path & "\MyFile.txt"

TOP

SZT01

Rank: 1

帖子
6 
积分
19 
技术
0  
捐助
0  
注册时间
2023-9-17 
10楼
发表于 2023-9-23 20:47 | 只看该作者
感谢各位老师指点！

TOP

返回列表