如何讓文件顯示后綴.doc

如何讓文件顯示后綴首先打開“我的電腦”，依次點(diǎn)“工具”、“文件夾選項(xiàng)”、“查看”，將“隱藏已知文件類型的擴(kuò)展名”前面打勾，再確定即可。 有時(shí)候從網(wǎng)上down些文件下來(lái)，文件名都是一大串的字母和數(shù)字，不利于整理。所以我從網(wǎng)上找了一段批處理的代碼，做一個(gè)批處理的文件進(jìn)行修改，非常的方便。 復(fù)制以下代碼保存為a.bat文件,放在你要改名的文件夾里運(yùn)行會(huì)把這個(gè)文件夾里的所有后綴名為.rm的文件都以 b+序號(hào) 的形式命名.echo off&setlocal EnableDelayedExpansionset a=1for /f delims= %i in (dir /b *.rm) do (if not %ni=%n0 (if !a! LSS 10 (ren %i b0!a!.rm) else ren %i b!a!.rmset/a a+=1)注：藍(lán)色的字母是文件的格式，可以修改，如果原來(lái)的是txt，則都改成txt。紅色的字母是要改成的文件名的前綴，可以改成英文或者中文的名字，然后后面會(huì)自動(dòng)添加上序號(hào)。不過(guò)此方法只能修改無(wú)序的文件，我試了一下，會(huì)將原先文件的次序打亂。真是遺憾！=相信有不少玩家遇到過(guò)想批量修改一個(gè)文件夾里面的同一類型或者多個(gè)類型的文件名吧,這里分享一個(gè)批處理將以下代碼復(fù)制到記事本里,另存為*.bat運(yùn)行就OK啦echo offfor /f delims= %i in (dir /a-d /b /s 1*.bmp) do (ren %i %ni.jpg )pause這一段代碼是將文件夾內(nèi)的所有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以上兩個(gè)代碼都必須放在歌手名文件夾所在的文件夾下使用，只有這樣使用，才能保證獲取到且只獲取到你想要的音樂(lè)文件的完整路徑名，并且，為后面的for語(yǔ)句正確地解析這些路徑字符串提供保證。隨風(fēng)的思路是：用 dir /a-d /b /s 來(lái)獲取完整路徑名，放到for語(yǔ)句中來(lái)解析完整路徑字符串，用 %dpa. 來(lái)獲取音樂(lè)文件所處的文件夾完整路徑（這里使用了一個(gè)小技巧：在字符串最后添加一個(gè)點(diǎn)號(hào)，從而使得for語(yǔ)句的%ni把文件夾名當(dāng)做文件名來(lái)處理），再用 %ni 獲取文件夾名，也就是歌手名，把這個(gè)歌手名用下劃線連接到原來(lái)的文件名前面，用ren來(lái)實(shí)現(xiàn)改名%nxi 獲取原文件完整的文件名和后綴名。pusofalse的思路與隨風(fēng)大致相同，只不過(guò)在獲取音樂(lè)完整路徑的時(shí)候，換用了效率更高的 for /r 語(yǔ)句，并用一個(gè)變量var來(lái)獲取音樂(lè)文件所在文件夾的完整路徑，通過(guò)判斷var是否經(jīng)過(guò)賦值來(lái)判斷當(dāng)前處理的音樂(lè)文件是否位于同一目錄下，因?yàn)橹苯佑?%dpa 獲取到的字符串最后有一個(gè)反斜杠，所以，第二個(gè)for語(yǔ)句中，用 !var:,-1! 把最后的反斜杠去掉了（在for語(yǔ)句內(nèi)部，如果要引用已經(jīng)發(fā)生了改變的變量，必須使用變量延遲功能，也就是最開始的 setlocal 語(yǔ)句），后面的思路和隨風(fēng)的一樣。其實(shí)，pusofalse的代碼大可不必判斷當(dāng)前處理的文件與上一次處理的文件是否位于同一目錄下，因?yàn)?for /r 的時(shí)候，會(huì)獲得文件的完整路徑，只需要對(duì)完整路徑直接進(jìn)行操作就可以了，可以借鑒隨風(fēng)的做法，在 %dpa 的時(shí)候，直接在最后加上一個(gè)點(diǎn)號(hào)，可以使得效率進(jìn)一步提升。說(shuō)實(shí)話，解釋代碼是比較累人的，很多人寧肯寫上百行代碼，也不想解釋其中的意思，因?yàn)橥墙忉寖?nèi)容比代碼內(nèi)容還多，并且也不見(jiàn)得別人能領(lǐng)會(huì)你的意思，要想看懂別人的代碼，還是需要有一點(diǎn)基礎(chǔ)了才好辦，樓主不僅僅想知其然，還想知其所以然，這樣的想法是非常值得提倡的，不過(guò)，還是需要先潛水一段時(shí)間，多翻翻論壇老帖，特別是教學(xué)區(qū)的帖子，才會(huì)有所收獲Name批量文件重命名 - VB Name, 批量, 文件所需控件當(dāng)然還是文件系統(tǒng)3劍客，command2個(gè),text1個(gè)窗體代碼Option ExplicitPrivate Sub Form_Load() 選擇默認(rèn)路徑 Dir1.Path = App.Path & ml File1.Path = Dir1.Path File1.Pattern = *.jpg Text2.Text = File1.PathEnd SubPrivate Sub Combo1_Change() File1.Pattern = * & . & Combo1.TextEnd SubPrivate Sub Combo1_Click() File1.Pattern = * & . & Combo1.TextEnd SubPrivate Sub Drive1_Change() 選擇驅(qū)動(dòng)器 Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 選擇文件夾 File1.Pattern = * & . & Combo1.Text File1.Path = Dir1.Path Text2.Text = File1.PathEnd SubPrivate Sub File1_Click() Text2.Text = File1.Path & & File1.FileNameEnd SubPrivate Sub Command1_Click() 批量重命名文件 Dim DestinationFile$, SourceFile$, i& If File1.ListCount 0 Then On Error GoTo x For i = 0 To File1.ListCount - 1 File1.ListIndex = i SourceFile$ = File1.Path & & File1.FileName DestinationFile$ = File1.Path & & Text1.Text & i + 1 & . & Combo1.Text Name SourceFile$ As DestinationFile$ 重命名文件 Next i File1.Refresh End If Exit Subx: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub所需控件當(dāng)然還是文件系統(tǒng)3劍客，command2個(gè),text1個(gè)窗體代碼Option ExplicitlpExistingFileName -String，欲移動(dòng)的文件名lpNewFileName -String，新文件名dwFlags -Long，一個(gè)或多個(gè)下述常數(shù)MOVEFILE_REPLACE_EXISTING如目標(biāo)文件存在，則將其替換MOVEFILE_COPY_ALLOWED如移動(dòng)到一個(gè)不同的卷，則復(fù)制文件并刪除原來(lái)的文件MOVEFILE_DELAY_UNTIL_REBOOT移動(dòng)操作在系統(tǒng)下次重新啟動(dòng)時(shí)正式進(jìn)行?這樣便可在Windows NT中改換系統(tǒng)文件Private Declare Function MoveFileEx Lib kernel32 Alias MoveFileExA (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As LongPrivate Const MOVEFILE_REPLACE_EXISTING = &H1Private Sub Form_Load() 選擇默認(rèn)路徑 Dir1.Path = App.Path & ml File1.Path = Dir1.Path File1.Pattern = *.jpg Text2.Text = File1.PathEnd SubPrivate Sub Combo1_Change() File1.Pattern = * & . & Combo1.TextEnd SubPrivate Sub Combo1_Click() File1.Pattern = * & . & Combo1.TextEnd SubPrivate Sub Drive1_Change() 選擇驅(qū)動(dòng)器 Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 選擇文件夾 File1.Pattern = * & . & Combo1.Text File1.Path = Dir1.Path Text2.Text = File1.PathEnd SubPrivate Sub File1_Click() Text2.Text = File1.Path & & File1.FileNameEnd SubPrivate Sub Command1_Click() 批量重命名文件 Dim DestinationFile$, SourceFile$, i& If File1.ListCount 0 Then On Error GoTo x For i = 0 To File1.ListCount - 1 File1.ListIndex = i SourceFile$ = File1.Path & & File1.FileName DestinationFile$ = File1.Path & & Text1.Text &