半肾
精华
|
战斗力 鹅
|
回帖 0
注册时间 2002-2-14
|
文件名转码的话,存成vbs,拖上去
- If WScript.Arguments.Count<1 Then
- MsgBox "请把HTML文件拖到脚本上运行"
- WScript.Quit
- End If
- '将参数(文件列表)存入类
- Set Files = WScript.Arguments
- Function gTs(str,charset1,charset2)
- Set adostream = CreateObject("ADODB.Stream")
- With adostream
- .Type = 2
- .Open
- .Charset = charset1
- .WriteText str
- .Position = 0
- .Charset = charset2
- gTs = .ReadText
- .close
- End With
- Set adostream = Nothing
- End Function
- output = ""
- errornum = 0
- set fso=createobject("scripting.filesystemobject")
- for i = 0 to Files.Count-1
- if fso.FolderExists(Files(i)) then
- set file = fso.getFolder(Files(i))
- '截取文件名
- if right(Files(i),1) = "" then
- Files(i) = left(Files(i),len(Files(i)-1))
- end if
- str = Mid(Files(i),InStrRev(Files(i),"")+1 )
- str2 = gTs(str,"GBK","Shift-JIS")
- newfname = replace(Files(i),str,str2)
- if fso.FolderExists(newfname) then
- output = output & str & " → " & str2 & " 文件夹已存在" & vbcrlf
- errornum = errornum + 1
- else
- fso.moveFolder Files(i),newfname
- end if
- elseif fso.FileExists(Files(i)) then
- set file = fso.getFile(Files(i))
- '截取文件名
- str = Mid(Left(Files(i),InStrRev(Files(i),".")-1),InStrRev(Files(i),"")+1 )
- str2 = gTs(str,"GBK","Shift-JIS")
- newfname = replace(Files(i),str,str2)
- if fso.FileExists(newfname) then
- output = output & str & " → " & str2 & " 文件已存在" & vbcrlf
- errornum = errornum + 1
- else
- fso.movefile Files(i),newfname
- end if
- else
- output = output & "文件“" & Files(i) & "”不存在" & vbcrlf
- errornum = errornum + 1
- end if
- next
- set fso=nothing
- output = output & "总共" & Files.Count & "个,其中错误" & errornum & "个。"
- msgbox output
- WScript.Quit
复制代码
|
|