1. 文件很多如何一键重命名
这个技巧比较简单，相信很多朋友都会，在此，献丑一下，谨希望能给使用Windows 7 的新手朋友们一点点小帮助，高手勿笑。 举个例子，大家从相机里导出的照片都是以“数字”为文件名，很多朋友会想重新批量重新命名一下，例如“香港迪斯尼001、香港迪斯尼002”等等。 在Windows7下，批量重命名其实也只需要一键： 将多个文件选中，按"Ctrl+A”或按住"Ctrl”然后用鼠标点击想修改的文件，选中后按“F2”或者在选中的文件上右键“重命名”即可，各个文件结尾将以"(数字).jpg”的形式区分
2. 文件重命名怎么操作
Windows文件重命名的快捷键是F2，具体的操作方法为：
1、在桌面上找到需要重命名的文件夹，并点击选中。
3. 请问怎么快速给多个文件的文件名进行重新命名
全选所有需要重命名的文件，拷贝文件路径
图1示，所有需要重命名的文件
图2示，全选后，点击上方按钮 "复制路径"
4. 文件名太长无法重命名，怎么解决
文件名太长无法重命名的解决步骤如下：
1、首先在电脑上点击“WinRAR压缩”应用程序，然后在此页面的上方的搜索栏中输入要进行重命名的文件，然后按电脑上的回车键。
5. 文件的文件名可以重命名吗有怎么方法吗
是可以，你选中一个文件直接按F2按键就可以重命名。随便你的名称怎么改
6. 怎么给文件夹里的文件批量重命名
可以用这个方法
第一步，添加需要重命名的文件
第六步，最后可以在原位置查看文件命名了
7. 如何给文件统一重命名
CTRL+A全选 在任意文件上点重命名 输入名字 系统会在文件后面+数字区分 （适合于WIN XP +）
8. 如何快速给多个文件的文件名重命名
选择重命名多个文件，然后右键单击，选择重命名，那么第一个文件的名称将跳转到重命名状态，键入新名称，然后单击确定。此时，所有选定的文件将按照键入名称的顺序使用新名称。例如，如果您键入“科幻小说”，那么该系列文件将被命名为“科幻小说”、“科幻小说(1)”、“科幻小说(2)”…..诸如此类。要指定一个系列的起始编号，可以输入新系列的名称，然后在文件编号中键入起始编号，以括号开始按顺序编号。如果键入“科幻(5)”，其他文件将被命名为“科幻(6)”、“科幻(7)”等。
9. 文件名 过长 很长很长 如何更改文件名
第一步：选中要重新命名的文件，右击选择“重命名”
10. 如何快速给大量word文件重命名
可以用脚本来做。1、用记事本新建一个文本文件，把它保存为“批量重命名.vbs”（注意不要弄成了“批量重命名.vbs.txt”，也就是要确保其扩展名为“.vbs”）；2、把下列代码粘贴到这个VBS文件中：Option ExplicitConst g_strRootPath = "c:\Temp\docs\Word\ToRename\" ' 指定存放所有文件的目录，可以有子目录Const g_nTitleMaxLen = 16 ' 指定获取文档里面第一段中的前多少个字符来作为文件名Call Main' 主函数入口Sub Main()Dim fso, oFolder, oWordAppSet oWordApp = CreateObject("Word.Application")Set fso = CreateObject("Scripting.FileSystemObject")Set oFolder = fso.GetFolder(g_strRootPath)RenameDocFilesUnderFolder oWordApp, fso, oFolderoWordApp.QuitSet oWordApp = NothingMsgBox "完成！"end Sub' 重命名指定文件夹（递归）下面的所有Word文件，按照文件里面的第一句可见的文字命名Sub RenameDocFilesUnderFolder(oWordApp, fso, oFolder)Dim oSubFolder, oFile, oDocDim strTitle, strFileNameFor Each oSubFolder In oFolder.SubFoldersRenameDocFilesUnderFolder oWordApp, fso, oSubFoldernextFor Each oFile In oFolder.FilesSet oDoc = oWordApp.Documents.Open(oFile.Path)strTitle = GetFirstVisibleTextContent(oDoc)oDoc.CloseSet oDoc = NothingIf Len(strTitle) <> 0 ThenstrFileName = fso.BuildPath(fso.GetParentFolderName(oFile.Path), strTitle & "." & fso.GetExtensionName(oFile.Path))strFileName = GetUniqueFileName(fso, strFileName)fso.MoveFile oFile.Path, strFileNameend Ifnextend Sub' 获取指定文档第一行可见文字Function GetFirstVisibleTextContent(oDoc)Dim oParagraphDim strContentFor Each oParagraph In oDoc.ParagraphsstrContent = GetSafeFileName(oParagraph.Range.Text)If Len(strContent) <> 0 ThenGetFirstVisibleTextContent = strContentExit Functionend IfnextGetFirstVisibleTextContent = ""end Function' 过滤文件名里面的无效字符Function GetSafeFileName(strFileName)Dim arrUnsafeCharacters, strUnsafeCharDim nIndexarrUnsafeCharacters = Array("\", "/", ":", "*", "?", """", "<", ">", "|")For nIndex = 0 To &H2FstrFileName = Replace(strFileName, Chr(nIndex), "")nextFor Each strUnsafeChar In arrUnsafeCharactersstrFileName = Replace(strFileName, strUnsafeChar, "")nextGetSafeFileName = left(Trim(strFileName), g_nTitleMaxLen)end Function' 获取不重复的文件名，如果有重名则在文件名后面附加“_1”、“_2”……Function GetUniqueFileName(fso, strFullName)Dim strParentFolder, strBaseName, strExtensionNameDim nIndexIf Not fso.FileExists(strFullName) ThenGetUniqueFileName = strFullNameExit Functionend IfstrParentFolder = fso.GetParentFolderName(strFullName)strBaseName = fso.GetBaseName(strFullName)strExtensionName = fso.GetExtensionName(strFullName)nIndex = 0While fso.FileExists(strFullName)nIndex = nIndex + 1strFullName = fso.BuildPath(strParentFolder, strBaseName & "_" & nIndex & "." & strExtensionName)WendGetUniqueFileName = strFullNameEnd Function3、修改代码中开始部分的两个设置，即：存放等待重命名的Word文件的根目录，以及获取文档第一段内容时最多保留多少个字符。4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！5、检查所有文件是否已自动重命名。注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。
未经允许不得转载：山九号 » 长文件名怎么重命名|怎么给文件夹里的文件批量重命名
