匿名使用者 1級 2018-11-17 回答

把你的具體要求貼上來。

1。 資料夾在哪，固定位置？還是自動生成？

2。 檔名怎麼設定，隨機還是有一定規範？

3。 txt數量為固定還是可變？或者是每次都按總數除10分配？當有餘數的情況下怎麼處理？

4。 txt檔名有規範否？

5。 具體可加398669616

陰雨綿綿 1級 2018-11-17 回答

dim n

dim zero

zero=string（6，“0”）

dim regex

set regex=new regexp

regex。pattern=“jpg”

regex。ignorecase=true

set fso=wscript。createobject（“scripting。filesystemobject”）

set jpgfile=fso。createtextfile（“filelist。txt”，true）

listjpg（“。”）

jpgfile。close

wscript。echo（“處理完畢，詳情可檢視當前資料夾下的filelist。txt！”）

function listjpg（rpath）

n=0

set fds=fso。getfolder（rpath）

jpgfile。writeline（fds。path）

set fjs=fds。files

for each fj in fjs

if regex。test（fso。getextensionname（fj。path）） then

n=n+1

jpgfile。writeline（“原檔名： ”&fj。name&vbtab&vbtab&“——  更改後：”&vbtab&vbtab&right（zero&n，6）&“。jpg”）

fj。move（fso。getparentfoldername（fj。path）&chr（92）&right（zero&n，6）&“。jpg”）

end if

next

jpgfile。writeline（“此資料夾下共有  ”&right（zero&n，6）&“  個jpg檔案”&vbnewline）

set sfds=fds。subfolders

for each sfd in sfds

listjpg（sfd。path）

next

end function請將上述程式碼儲存為vbs檔案，本指令碼將修改vbs所在資料夾及其所有子資料夾中的jpg檔案。

（例如，假設指令碼儲存為c：\test\1。vbs，則執行本指令碼後c：\test及其所有子資料夾中的jpg檔案都會被改名。）