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
