Re: [問題] 把.txt檔名自動改為內文第一行文

[arthurs21 ( )]

: 推 mosquito520:自己寫個程式比較快...                               01/21 14:07
: → xvid:推樓上.                                                    01/21 14:15
: → pc80015:不知道怎麼寫啊Orz"                                      01/21 19:40

抱歉，看到很多人回覆一時手癢～就寫了這隻vbs
把你的txt檔拖到這隻vbs身上就會改名了

以下程式碼： （複製程式碼存成*.vbs就行）

Set objFSO = CreateObject("Scripting.FileSystemObject")
DirPath = WScript.Arguments(0)
Set opFile = objFSO.OpenTextFile(DirPath)
Line1 = opFile.ReadLine
opFile.Close
Set objFile0 = objFSO.GetFile(DirPath)
path = objFSO.GetParentFolderName(objFile0)
ext = objFSO.GetExtensionName(objFile0)
newpath = path & "\" & Line1 & "." & ext
objFSO.MoveFile DirPath, newpath

結束，敬請指教！！
直接附上檔案：http://www.badongo.com/file/7419024

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.104.96.153
※ 編輯: arthurs21       來自: 59.104.96.153        (01/22 01:26)
推 ateclean:推推推
忘了把Debug 的Msg去掉改修一下～(其實沒影響)
※ 編輯: arthurs21       來自: 59.104.96.153        (01/22 01:32)
推 davidboy12:真的很好用！！～
推 pc80015:真是太感謝了^^!我收下囉
推 ckw:好像一次只能拉一個檔，可以拉多個嗎？@@
→ ckw:喔不對，拉多個的時候只有一個檔名會被改，可能會改錯@@