: 推 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