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

[arthurs21 ( )]

: 推 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
推 yinjing:純推 (￣▽￣＃)﹏﹏
推 imbbc2:讚
→ LinAdam:unicode的txt是不是不能轉呢?
→ LinAdam:同樣內容 ansi的可以 存成unicode的就會變無檔名了
→ arthurs21:FileSystemObject 似乎不支援讀取unicode檔,要另想辦法.
→ arthurs21:http://support.microsoft.com/kb/189751/zh-tw
→ arthurs21:今天逛MSDN時發現可以支援讀取UCS-2 Little-Endian格式
→ arthurs21:只是還要寫程式來判斷是ANSI還是unc的