VBS 文字の置換と文字コードの変換方法

Question

前提・実現したいこと

MysqlからSelect結果をcsvで保存する
この流れをbatで処理する

発生している問題・エラーメッセージ

問題箇所
１．保存したcsvがタブ区切りになってしまう為、カンマ区切りに変換したい
２．文字化けしてしまう為、UTF-8に変換したい
１．２．をbatで処理したい

１．ではVBSを使った変換方法の記事を参考に置換することができました。
２．の文字コードがうまくいかず困っています。
他にもいろんな方法がありましたがどれが正解なのかわかりません。

VBSは一度も触れたことがありません。
下記のコードに文字コードを変換する記述方法をご教示頂けないでしょうか。

試したコード

Option Explicit
Dim a, b, c, f, m, n, s, t
Set s = CreateObject("Scripting.FileSystemObject")
Set f = s.GetFolder(".")
For Each n In f.Files
If LCase(s.GetExtensionName(n.Name)) = "csv" Then
m = s.GetBaseName(n.Name)
Set c = s.OpenTextFile(f & "\" & n.Name, 1)
Set t = s.OpenTextFile(f & "\" & m & ".xyz", 2, True)
a = c.ReadAll
a = Replace(a, vbTab, ",")
t.Write(a)
c.Close
t.Close
Set c = Nothing
Set t = Nothing
s.DeleteFile(f & "\" & n.Name)
Set b = s.GetFile(f & "\" & m & ".xyz")
b.Name = m & ".csv"
End If
Next
Set f = Nothing
Set s = Nothing
MsgBox("Finished!")

Answer 1

↓で、いかがでしょうか。

Private Sub WriteUTF8(ByVal SourceString As String)
    Dim Strm As ADODB.Stream
    
    Set Strm = CreateObject("ADODB.Stream")
    With Strm
        .Type = adTypeText
        .Charset = "UTF-8"
        .Open
        Call .WriteText(SourceString, adWriteLine)
        Call .SaveToFile("D:\Temp\Sample.txt", adSaveCreateOverWrite)
        .Close
    End With
    Set Strm = Nothing
End Sub

Comments

[退会済みユーザー]

老婆心ながら・・・保守性を考慮してアドバイスを・・・。
・変数名は、その変数が何者かわかる名前にする。
・If、Forなど、適切にインデントする。
これらを心がけてくださいね。

[mionix]

コードまで頂き誠にありがとうございます。
私の知識ではすぐに実装できませんが、頂いたコードを参考に頑張ってみます。
貴重なお時間いただきありがとうございました。

Answer 2

「vbscript 文字コード 変換」でググったら、それっぽい記事が沢山ヒットしましたよ？

Comments

[mionix]

ご回答ありがとうございます。
私も様々な記事を見たのですが知識がなく、どの記述方法が正しいのかわからず質問させていただきました。
Set objStm = CreateObject("ADODB.Stream")
この書き方が一番多く出てきましたが、添付しているコードのどこに記述したら良いのかわかりません。
(入力時、出力時両方に指定しないといけないのか、出力はどこで行っているのか)
本当に初歩的な質問で申し訳なのですがご教示頂けたら幸いです。