Re: [問題] 把.txt檔名自動改為內文第一行文
: 推 ckw:好像一次只能拉一個檔，可以拉多個嗎？@@ 01/22 09:06
: → ckw:喔不對，拉多個的時候只有一個檔名會被改，可能會改錯@@ 01/22 09:07
既然有這種問題於是我又手癢了！
用法如我上一篇說的～
程式碼如下：（複製後存成*.vbs）
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Wscript.Arguments.Count <> 0 Then
Dim FilePath()
For i = 0 to Wscript.Arguments.Count - 1
Redim Preserve FilePath(i)
FilePath(i) = Wscript.Arguments(i)
Set opFile = objFSO.OpenTextFile(FilePath(i))
Line1 = opFile.ReadLine
opFile.Close
Set objFile0 = objFSO.GetFile(FilePath(i))
path = objFSO.GetParentFolderName(objFile0)
ext = objFSO.GetExtensionName(objFile0)
newpath = path & "\" & Line1 & "." & ext
objFSO.MoveFile FilePath(i), newpath
Next
End If
結束，敬請指教
附上檔案：http://www.badongo.com/file/7428742
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.121.98.201
推
01/22 19:41, , 1F
01/22 19:41, 1F
推
01/22 23:02, , 2F
01/22 23:02, 2F
→
01/22 23:57, , 3F
01/22 23:57, 3F
→
01/23 00:01, , 4F
01/23 00:01, 4F
→
01/23 18:22, , 5F
01/23 18:22, 5F
→
01/23 18:24, , 6F
01/23 18:24, 6F
→
02/29 18:14, , 7F
02/29 18:14, 7F
→
02/29 18:15, , 8F
02/29 18:15, 8F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 6 之 7 篇)：
EZsoft 近期熱門文章
PTT數位生活區 即時熱門文章
