如何讓文件顯示后綴.doc

如何讓文件顯示后綴首先打開“我的電腦”，依次點“工具”、“文件夾選項”、“查看”，將“隱藏已知文件類型的擴展名”前面打勾，再確定即可。 有時候從網(wǎng)上down些文件下來，文件名都是一大串的字母和數(shù)字，不利于整理。所以我從網(wǎng)上找了一段批處理的代碼，做一個批處理的文件進行修改，非常的方便。 復制以下代碼保存為a.bat文件,放在你要改名的文件夾里運行會把這個文件夾里的所有后綴名為.rm的文件都以 b+序號 的形式命名.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)注：藍色的字母是文件的格式，可以修改，如果原來的是txt，則都改成txt。紅色的字母是要改成的文件名的前綴，可以改成英文或者中文的名字，然后后面會自動添加上序號。不過此方法只能修改無序的文件，我試了一下，會將原先文件的次序打亂。真是遺憾！=相信有不少玩家遇到過想批量修改一個文件夾里面的同一類型或者多個類型的文件名吧,這里分享一個批處理將以下代碼復制到記事本里,另存為*.bat運行就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以上兩個代碼都必須放在歌手名文件夾所在的文件夾下使用，只有這樣使用，才能保證獲取到且只獲取到你想要的音樂文件的完整路徑名，并且，為后面的for語句正確地解析這些路徑字符串提供保證。隨風的思路是：用 dir /a-d /b /s 來獲取完整路徑名，放到for語句中來解析完整路徑字符串，用 %dpa. 來獲取音樂文件所處的文件夾完整路徑（這里使用了一個小技巧：在字符串最后添加一個點號，從而使得for語句的%ni把文件夾名當做文件名來處理），再用 %ni 獲取文件夾名，也就是歌手名，把這個歌手名用下劃線連接到原來的文件名前面，用ren來實現(xiàn)改名%nxi 獲取原文件完整的文件名和后綴名。pusofalse的思路與隨風大致相同，只不過在獲取音樂完整路徑的時候，換用了效率更高的 for /r 語句，并用一個變量var來獲取音樂文件所在文件夾的完整路徑，通過判斷var是否經(jīng)過賦值來判斷當前處理的音樂文件是否位于同一目錄下，因為直接用 %dpa 獲取到的字符串最后有一個反斜杠，所以，第二個for語句中，用 !var:,-1! 把最后的反斜杠去掉了（在for語句內(nèi)部，如果要引用已經(jīng)發(fā)生了改變的變量，必須使用變量延遲功能，也就是最開始的 setlocal 語句），后面的思路和隨風的一樣。其實，pusofalse的代碼大可不必判斷當前處理的文件與上一次處理的文件是否位于同一目錄下，因為 for /r 的時候，會獲得文件的完整路徑，只需要對完整路徑直接進行操作就可以了，可以借鑒隨風的做法，在 %dpa 的時候，直接在最后加上一個點號，可以使得效率進一步提升。說實話，解釋代碼是比較累人的，很多人寧肯寫上百行代碼，也不想解釋其中的意思，因為往往是解釋內(nèi)容比代碼內(nèi)容還多，并且也不見得別人能領(lǐng)會你的意思，要想看懂別人的代碼，還是需要有一點基礎(chǔ)了才好辦，樓主不僅僅想知其然，還想知其所以然，這樣的想法是非常值得提倡的，不過，還是需要先潛水一段時間，多翻翻論壇老帖，特別是教學區(qū)的帖子，才會有所收獲Name批量文件重命名 - VB Name, 批量, 文件所需控件當然還是文件系統(tǒng)3劍客，command2個,text1個窗體代碼Option ExplicitPrivate Sub Form_Load() 選擇默認路徑 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ū)動器 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所需控件當然還是文件系統(tǒng)3劍客，command2個,text1個窗體代碼Option ExplicitlpExistingFileName -String，欲移動的文件名lpNewFileName -String，新文件名dwFlags -Long，一個或多個下述常數(shù)MOVEFILE_REPLACE_EXISTING如目標文件存在，則將其替換MOVEFILE_COPY_ALLOWED如移動到一個不同的卷，則復制文件并刪除原來的文件MOVEFILE_DELAY_UNTIL_REBOOT移動操作在系統(tǒng)下次重新啟動時正式進行?這樣便可在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() 選擇默認路徑 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ū)動器 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 &