




已閱讀5頁,還剩3頁未讀, 繼續(xù)免費(fèi)閱讀
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
如何讓文件顯示后綴首先打開“我的電腦”,依次點(diǎn)“工具”、“文件夾選項(xiàng)”、“查看”,將“隱藏已知文件類型的擴(kuò)展名”前面打勾,再確定即可。 有時(shí)候從網(wǎng)上down些文件下來,文件名都是一大串的字母和數(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)色的字母是文件的格式,可以修改,如果原來的是txt,則都改成txt。紅色的字母是要改成的文件名的前綴,可以改成英文或者中文的名字,然后后面會(huì)自動(dòng)添加上序號(hào)。不過此方法只能修改無序的文件,我試了一下,會(huì)將原先文件的次序打亂。真是遺憾!=相信有不少玩家遇到過想批量修改一個(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è)代碼都必須放在歌手名文件夾所在的文件夾下使用,只有這樣使用,才能保證獲取到且只獲取到你想要的音樂文件的完整路徑名,并且,為后面的for語句正確地解析這些路徑字符串提供保證。隨風(fēng)的思路是:用 dir /a-d /b /s 來獲取完整路徑名,放到for語句中來解析完整路徑字符串,用 %dpa. 來獲取音樂文件所處的文件夾完整路徑(這里使用了一個(gè)小技巧:在字符串最后添加一個(gè)點(diǎn)號(hào),從而使得for語句的%ni把文件夾名當(dāng)做文件名來處理),再用 %ni 獲取文件夾名,也就是歌手名,把這個(gè)歌手名用下劃線連接到原來的文件名前面,用ren來實(shí)現(xiàn)改名%nxi 獲取原文件完整的文件名和后綴名。pusofalse的思路與隨風(fēng)大致相同,只不過在獲取音樂完整路徑的時(shí)候,換用了效率更高的 for /r 語句,并用一個(gè)變量var來獲取音樂文件所在文件夾的完整路徑,通過判斷var是否經(jīng)過賦值來判斷當(dāng)前處理的音樂文件是否位于同一目錄下,因?yàn)橹苯佑?%dpa 獲取到的字符串最后有一個(gè)反斜杠,所以,第二個(gè)for語句中,用 !var:,-1! 把最后的反斜杠去掉了(在for語句內(nèi)部,如果要引用已經(jīng)發(fā)生了改變的變量,必須使用變量延遲功能,也就是最開始的 setlocal 語句),后面的思路和隨風(fēng)的一樣。其實(shí),pusofalse的代碼大可不必判斷當(dāng)前處理的文件與上一次處理的文件是否位于同一目錄下,因?yàn)?for /r 的時(shí)候,會(huì)獲得文件的完整路徑,只需要對完整路徑直接進(jìn)行操作就可以了,可以借鑒隨風(fēng)的做法,在 %dpa 的時(shí)候,直接在最后加上一個(gè)點(diǎn)號(hào),可以使得效率進(jìn)一步提升。說實(shí)話,解釋代碼是比較累人的,很多人寧肯寫上百行代碼,也不想解釋其中的意思,因?yàn)橥墙忉寖?nèi)容比代碼內(nèi)容還多,并且也不見得別人能領(lǐng)會(huì)你的意思,要想看懂別人的代碼,還是需要有一點(diǎn)基礎(chǔ)了才好辦,樓主不僅僅想知其然,還想知其所以然,這樣的想法是非常值得提倡的,不過,還是需要先潛水一段時(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ù)制文件并刪除原來的文件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 &
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 北師大版八年級(jí)下冊數(shù)學(xué)興趣小組計(jì)劃
- 技術(shù)轉(zhuǎn)讓與合作開發(fā)合同
- 小學(xué)三年級(jí)信息技術(shù)教育評估計(jì)劃
- 二零二五年度國防科技項(xiàng)目融資居間合作協(xié)議
- 二零二五年度綠色生態(tài)農(nóng)業(yè)個(gè)人土地承包合同
- 2025年度老舊宅基地使用權(quán)轉(zhuǎn)讓與農(nóng)村土地整治合同
- 二零二五年度會(huì)議室租賃及遠(yuǎn)程視頻會(huì)議系統(tǒng)安裝合同
- 二零二五年度他人名義購置房產(chǎn)代持代付服務(wù)合同
- 二零二五年度自來水用戶滿意度調(diào)查承包協(xié)議
- 2025年度生態(tài)旅游區(qū)委托經(jīng)營合同書
- 外包營銷方案
- 鐵路安全雙重預(yù)防機(jī)制課件
- 從吶喊看魯迅筆下的女性角色
- 盆腔膿腫診治中國專家共識(shí)(2023版)解讀
- 生態(tài)與翻譯生態(tài)翻譯學(xué)理論解構(gòu)
- HQ城環(huán)湖預(yù)熱馬拉松活動(dòng)方案
- 鐵路行車信號(hào)-手信號(hào)
- 組長述職晉升報(bào)告
- 小學(xué)學(xué)生課外勞動(dòng)任務(wù)計(jì)劃清單(一至六年級(jí))
- 《構(gòu)造地質(zhì)學(xué)》習(xí)題及參考答案
- 危險(xiǎn)性較大的分部分項(xiàng)工程一覽表(建辦質(zhì)〔2018〕31號(hào))
評論
0/150
提交評論