如題，比我有“A~Z”個檔案夾，每個檔案夾里有一個檔案，我現在想通過批處理把每個檔案夾內的那個檔案重命名為上層目錄檔案夾名（A檔案夾里有個1.txt檔案，把1.txt改為A.txt），那代碼該怎么寫？
如果每個檔案夾內不只有一個檔案，只改指定檔案呢？
每個檔案夾內情況相同
uj5u.com熱心網友回復：
你究竟是要“批處理命令”，還是要VB代碼？
uj5u.com熱心網友回復：
name "A\1.txt" as "A\A.txt"
name "B\1.txt" as "B\B.txt"
name "C\1.txt" as "C\C.txt"
name "D\1.txt" as "D\D.txt"
name "E\1.txt" as "E\E.txt"
name "F\1.txt" as "F\F.txt"
name "G\1.txt" as "G\G.txt"
name "H\1.txt" as "H\H.txt"
name "I\1.txt" as "I\I.txt"
name "J\1.txt" as "J\J.txt"
name "K\1.txt" as "K\K.txt"
name "L\1.txt" as "L\L.txt"
name "M\1.txt" as "M\M.txt"
name "N\1.txt" as "N\N.txt"
name "O\1.txt" as "O\O.txt"
name "P\1.txt" as "P\P.txt"
name "Q\1.txt" as "Q\Q.txt"
name "R\1.txt" as "R\R.txt"
name "S\1.txt" as "S\S.txt"
name "T\1.txt" as "T\T.txt"
name "U\1.txt" as "U\U.txt"
name "V\1.txt" as "V\V.txt"
name "W\1.txt" as "W\W.txt"
name "X\1.txt" as "X\X.txt"
name "Y\1.txt" as "Y\Y.txt"
name "Z\1.txt" as "Z\Z.txt"
uj5u.com熱心網友回復：
樓上正解,謝謝指教。uj5u.com熱心網友回復：
Dim i As Byte, strPath As String
strPath = "C:\test\testfile\"
For i = Asc("a") To Asc("z")
Name strPath & Chr(i) & "\1.txt" As strPath & Chr(i) & "\" & Chr(i) & ".txt"
Next i
uj5u.com熱心網友回復：
呵呵…………
這種代碼，真是“氣勢磅礴”啊 ！！！
uj5u.com熱心網友回復：
http://bbs.csdn.net/topics/380157851
uj5u.com熱心網友回復：
簡便，高效。體現了編程的威力
uj5u.com熱心網友回復：
遍歷下 然后處理轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/62420.html
標籤：VB基礎類
上一篇：vb 如何利用datagrid自動獲取資料并按enter鍵修改
下一篇：如何取得滑鼠指標位置