Private Sub GBToBIG5(strPath As String, strFileName As String, strFileNameEx As String)
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Dim TmpFile As String '臨時文件名
TmpFile = Format(Now, "YYYYMMDDHHMMSS")
Open strPath & TmpFile & strFileNameEx For Output As #1
Print #1, StrGBToBIG5(UEFLoadTextFile(strPath & strFileName & strFileNameEx, UEF_Auto))
Close #1
Call Fso.DeleteFile(strPath & strFileName & strFileNameEx)
Call Fso.MoveFile(strPath & TmpFile & strFileNameEx, strPath & strFileName & strFileNameEx)
End Sub
