[其他] 有关文件重命名的问题(已解决)

沒有.......按照頁數慢慢排吧.........
我也是這樣一個一個弄出180張的.........

图片格式的话打开那个文件夹，右键=》“排列图标” =》“名称”，点几次就会倒转顺序了，用图片查看器看也是从排列位置最前面的图开始浏览。
批量重命名文件的话好像Adobe Bridge有这个功能～


如果是什么漫画电子书的话就不清楚了。。。

LZ去找找软件吧
其实应该就是个很简单的批处理的问题，可惜我不会甚至不知道找什么书来学

給個圖吧
或是用單句表示命名的規則
列如：
abc（/d/d）表示abc後面加2個數字

如果規則有點複雜,可以試試看使用den4b 寫的Renamer
可以使用RegEX,甚至使用Pascal修改命名

注意以下方法仅适用于认真仔细的同学，因为错误的改名文件会导致灾难性后果。如果没有自信，请先备份所有文件


打开命令行 (cmd)，cd到图片所在的目录。

1. 敲入:
cmd /V:ON

2. 敲入:
set cnt=0 && for /F "delims=|" %a in ('dir /O-N /B *.jpg]') do @( set /a cnt = !cnt! + 1 > NUL && echo ren %a% !cnt!.jpg )
其中，红色部分根据你自己的图片类型改动后缀

执行后，在命令行窗口会打印出一个列表:
ren 原文件名 新文件名

3. 请仔细检查，如果新文件名都符合要求，那么把刚才那个命令行的蓝色部分去掉，再执行一遍，就会真正的重命名所有的文件了。

我改名是这样弄的：

打开一个记事本，扔以下代码进去：
strComputer = "."
numJPG = 1

FullPath = InputBox("请输入文件所在路径", "指定文件路径", "")
'FullPath = WScript.Arguments(0)

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='" & FullPath & "'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In colFiles
    strEnd = Right(objFile.Name, 4)
    strNewName = objFile.Drive & objFile.Path & CStr(numJPG) & strEnd
    errResult = objFile.Rename(strNewName)
    numJPG = numJPG +1
Next

然后存成一个vbs，执行，传入一个目录，这样那个目录的所有文件就都变成1、2、3、4……这样的文件名了……

我记得我原来发过这个代码的解释……不过好像不是在这里- -