Re: [問題] 把.txt檔名自動改為內文第一行文
: 推 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)
推
01/22 01:26, , 1F
01/22 01:26, 1F
忘了把Debug 的Msg去掉改修一下~(其實沒影響)
※ 編輯: arthurs21 來自: 59.104.96.153 (01/22 01:32)
推
01/22 03:00, , 2F
01/22 03:00, 2F
推
01/22 04:24, , 3F
01/22 04:24, 3F
推
01/22 09:06, , 4F
01/22 09:06, 4F
→
01/22 09:07, , 5F
01/22 09:07, 5F
討論串 (同標題文章)