1、如何让文件显示后缀首先打开“我的电脑” ，依次点“ 工具”、 “文件夹选项”、 “查看”，将“隐藏已知文件类型的扩展名”前面打勾，再确定即可。有时候从网上 down 些文件下来，文件名都是一大串的字母和数字，不利于整理。所以我从网上找了一段批处理的代码，做一个批处理的文件进行修改，非常的方便。复制以下代码保存为 a.bat 文件,放在你要改名的文件夹里运行会把这个文件夹里的所有后缀名为.rm 的文件都以 b+序号 的形式命名.echo off&setlocal EnableDelayedExpansionset a=1for /f “delims=“ %i in (dir /b *.rm) d
2、o (if not “%ni“=“%n0“ (if !a! LSS 10 (ren “%i“ “b0!a!.rm“) else ren “%i“ “b!a!.rm“set/a a+=1)注：蓝色的字母是文件的格式，可以修改，如果原来的是 txt，则都改成 txt。红色的字母是要改成的文件名的前缀，可以改成英文或者中文的名字，然后后面会自动添加上序号。不过此方法只能修改无序的文件，我试了一下，会将原先文件的次序打乱。真是遗憾！=相信有不少玩家遇到过想批量修改一个文件夹里面的同一类型或者多个类型的文件名吧,这里分享一个批处理将以下代码复制到记事本里,另存为*.bat运行就 OK 啦echo off
3、for /f “delims=“ %i in (dir /a-d /b /s 1*.bmp) do (ren “%i“ “%ni.jpg“ )pause这一段代码是将文件夹内的所有 BMP 图片改为 JPG 的图片后缀你们想怎么改,就照着修改就行了.echo off&setlocal enabledelayedexpansionfor /r %a in (*.wma *.mp3) do (if not defined %dpa set “var=%dpa“&set “%dpa=a“for %i in (“!var:,-1!“) do echo ren “%a“ “%ni_%nxa“)pause
4、以上两个代码都必须放在歌手名文件夹所在的文件夹下使用，只有这样使用，才能保证获取到且只获取到你想要的音乐文件的完整路径名，并且，为后面的 for 语句正确地解析这些路径字符串提供保证。随风的思路是：用 dir /a-d /b /s 来获取完整路径名，放到 for 语句中来解析完整路径字符串，用 %dpa. 来获取音乐文件所处的文件夹完整路径（这里使用了一个小技巧：在字符串最后添加一个点号，从而使得 for 语句的%ni 把文件夹名当做文件名来处理），再用 %ni 获取文件夹名，也就是歌手名，把这个歌手名用下划线连接到原来的文件名前面，用 ren 来实现改名%nxi 获取原文件完整的文件名和后缀
5、名。pusofalse 的思路与随风大致相同，只不过在获取音乐完整路径的时候，换用了效率更高的 for /r 语句，并用一个变量 var 来获取音乐文件所在文件夹的完整路径，通过判断 var 是否经过赋值来判断当前处理的音乐文件是否位于同一目录下，因为直接用 %dpa 获取到的字符串最后有一个反斜杠，所以，第二个 for 语句中，用 !var:,-1! 把最后的反斜杠去掉了（在 for 语句内部，如果要引用已经发生了改变的变量，必须使用变量延迟功能，也就是最开始的 setlocal 语句），后面的思路和随风的一样。其实，pusofalse 的代码大可不必判断当前处理的文件与上一次处理的文件是否
6、位于同一目录下，因为 for /r 的时候，会获得文件的完整路径，只需要对完整路径直接进行操作就可以了，可以借鉴随风的做法，在 %dpa 的时候，直接在最后加上一个点号，可以使得效率进一步提升。说实话，解释代码是比较累人的，很多人宁肯写上百行代码，也不想解释其中的意思，因为往往是解释内容比代码内容还多，并且也不见得别人能领会你的意思，要想看懂别人的代码，还是需要有一点基础了才好办，楼主不仅仅想知其然，还想知其所以然，这样的想法是非常值得提倡的，不过，还是需要先潜水一段时间，多翻翻论坛老帖，特别是教学区的帖子，才会有所收获Name 批量文件重命名 - VB Name, 批量, 文件所需控件当然还
7、是文件系统 3 剑客，command2 个,text1 个窗体代码Option ExplicitPrivate Sub Form_Load() 选择默认路径Dir1.Path = App.Path & “ml“File1.Path = Dir1.PathFile1.Pattern = “*.jpg“Text2.Text = File1.PathEnd SubPrivate Sub Combo1_Change()File1.Pattern = “*“ & “.“ & Combo1.TextEnd SubPrivate Sub Combo1_Click()File1.Pattern = “*“ &
8、 “.“ & Combo1.TextEnd SubPrivate Sub Drive1_Change() 选择驱动器Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 选择文件夹File1.Pattern = “*“ & “.“ & Combo1.TextFile1.Path = Dir1.PathText2.Text = File1.PathEnd SubPrivate Sub File1_Click()Text2.Text = File1.Path & “ & File1.FileNameEnd SubPrivate Sub C
9、ommand1_Click() 批量重命名文件Dim DestinationFile$, SourceFile$, i&If File1.ListCount 0 ThenOn Error GoTo xFor i = 0 To File1.ListCount - 1File1.ListIndex = iSourceFile$ = File1.Path & “ & File1.FileNameDestinationFile$ = File1.Path & “ & Text1.Text & i + 1 & “.“ & Combo1.TextName SourceFile$ As Destinatio
10、nFile$ 重命名文件Next iFile1.RefreshEnd IfExit Subx:MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub所需控件当然还是文件系统 3 剑客，command2 个,text1 个窗体代码Option ExplicitlpExistingFileName - String，欲移动的文件名lpNewFileName - String，新文件名dwFlags - Long，一个或多个下述常数MOVEFILE_REPLACE_EXISTING如目标文件存在，则将其替换M
11、OVEFILE_COPY_ALLOWED如移动到一个不同的卷，则复制文件并删除原来的文件MOVEFILE_DELAY_UNTIL_REBOOT移动操作在系统下次重新启动时正式进行?这样便可在 Windows NT 中改换系统文件Private Declare Function MoveFileEx Lib “kernel32“ Alias “MoveFileExA“ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As LongPrivate Const MOV
12、EFILE_REPLACE_EXISTING = &H1Private Sub Form_Load() 选择默认路径Dir1.Path = App.Path & “ml“File1.Path = Dir1.PathFile1.Pattern = “*.jpg“Text2.Text = File1.PathEnd SubPrivate Sub Combo1_Change()File1.Pattern = “*“ & “.“ & Combo1.TextEnd SubPrivate Sub Combo1_Click()File1.Pattern = “*“ & “.“ & Combo1.TextEn
13、d SubPrivate Sub Drive1_Change() 选择驱动器Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 选择文件夹File1.Pattern = “*“ & “.“ & Combo1.TextFile1.Path = Dir1.PathText2.Text = File1.PathEnd SubPrivate Sub File1_Click()Text2.Text = File1.Path & “ & File1.FileNameEnd SubPrivate Sub Command1_Click() 批量重命
14、名文件Dim DestinationFile$, SourceFile$, i&If File1.ListCount 0 ThenOn Error GoTo xFor i = 0 To File1.ListCount - 1File1.ListIndex = iSourceFile$ = File1.Path & “ & File1.FileNameDestinationFile$ = File1.Path & “ & Text1.Text & i + 1 & “.“ & Combo1.TextMoveFileEx SourceFile$, DestinationFile$, MOVEFILE_REPLACE_EXISTING 重命名文件Next iFile1.RefreshEnd IfExit Subx:MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub
