请教如何批量修改文件后缀？

welcpa · 发表于 2005-4-14 15:25

如题，请教如何批量修改文件后缀？

想搞个宏，批量传换某文件夹下某同一后缀的文件，如*.doc转换成*.txt

shuiyuan · 发表于 2005-4-14 15:38

以下是引用welcpa在2005-4-14 15:25:00的发言：
如题，请教如何批量修改文件后缀？

想搞个宏，批量传换某文件夹下某同一后缀的文件，如*.doc转换成*.txt

没有必要搞宏，使用Total Commander就可以轻松搞掂

welcpa · 发表于 2005-4-14 15:59

以下是引用shuiyuan在2005-4-14 15:38:00的发言： > 没有必要搞宏，使用Total Commander就可以轻松搞掂

shuiyuan兄能否说的详细点？

[em29]

大盈若冲 · 发表于 2005-4-14 16:16

在DOS下就可以拉不过应该还有更好的方法我不会

DOS下去到目录内 rem *.DOC *.TXT 哦忘了这只是改后缀名不是转换不知道可以不

大盈若冲 · 发表于 2005-4-14 16:17

原来不行我试过了呵呵不好意思

comtai · 发表于 2005-4-14 17:20

以下是引用welcpa在2005-4-14 15:25:00的发言：
如题，请教如何批量修改文件后缀？

想搞个宏，批量传换某文件夹下某同一后缀的文件，如*.doc转换成*.txt

如果仅仅是实现批量修改文件后缀的话，在DOS下如下命令行可实现：

进入该文件夹，输入 ren *.doc *.txt 回车即可

shuiyuan · 发表于 2005-4-14 17:24

以下是引用welcpa在2005-4-14 15:59:00的发言： 掂
shuiyuan兄能否说的详细点？
[em29]

Total Commander是一个非常优秀的文档管理软件，我已经使用10多年了，非常值得收藏和使用。

首先要下载这个软件，然后选定这个文件，按文件－－批量修改文件名－－类型－－doc等

welcpa · 发表于 2005-4-14 17:29

以下是引用comtai在2005-4-14 17:20:00的发言： >
如果仅仅是实现批量修改文件后缀的话，在DOS下如下命令行可实现：
进入该文件夹，输入 ren *.doc *.txt 回车即可

shell "command.com /c ren *.doc *.txt "?????那我想在VBA中方便调用，应如何？

welcpa · 发表于 2005-4-14 18:03

Sub 更改文件名() Dim fs, f1, i% i = 1 Set fs = CreateObject("Scripting.FileSystemObject") For Each f1 In fs.GetFolder("指定文件夹").Files f1.Name = i & ".txt" i = i + 1 Next f1 End Sub

welcpa · 发表于 2005-4-16 12:57

以下是引用shuiyuan在2005-4-14 15:38:00的发言： > 没有必要搞宏，使用Total Commander就可以轻松搞掂

下载了1个Total Commander,功能确实很强大,谢谢shuiyuan兄!!

[em17]

		自动登录	找回密码
密码			免费注册