VBSを使ってcsvファイル名を変更したい

Question

前提・実現したいこと

フォルダ内にある大量のcsvファイルのファイル名をvbsで一気に変更しています。
普段は3つのセルの情報を抽出してますが、今回さらにもう1つのセルの内容もファイル名に付けたいです。
中身を修正”ｄ”を追加し実行したら以下のエラーメッセージが発生しました。

行：24
文字：1
エラー：この変数は宣言されていません。：’ｄ’
コード：800Ａ01Ｆ4
ソース：Microsoft　VBSscript実行時エラー

該当のソースコード

Option Explicit
Public a, b, bk, c, ex, f, gf, i, l, sh, so, x, y
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ex = CreateObject("Excel.Application")
ex.Application.DisplayAlerts = False
ex.Visible = False
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "csv" Then
Set bk = ex.Workbooks.Open(gf & "\" & f.Name)
Set sh = bk.Worksheets(1)
a = sh.Range("A2").Text
x = a
Call z
a = x
b = sh.Range("B2").Text
x = b
Call z
b = x
c = sh.Range("D2").Text
x = c
Call z
c = x
d = sh.Range("H2").Text
x = d
Call z
d = x
bk.Close
Set sh = Nothing
Set bk = Nothing
f.Name = a & "_" & b & "_" & c &  "_" & d &".csv"
End If
Next
ex.Quit
Set ex = Nothing
Set gf = Nothing
Set so = Nothing
MsgBox("Finished!")

Sub z
y = Array("\", "/", "：", "*", "?", Chr(34), "<", ">", "|")
For i = 0 to 8
x = Replace(x, y(i), "")
Next
End Sub

試したこと

4つめのセルの情報
d = sh.Range("H2").Text
x = d
Call z
d = x
を追加した

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

処理は確認していませんが、エラーについては、

Public a, b, bk, c, ex, f, gf, i, l, sh, so, x, y

上記でdが宣言されていません。

Comments

[ayapre]

ありがとうございます。そこに　ｄ　を追加したら進みましたが違うエラーが出ました

31行目
f.Name = a & "_" & b & "_" & c & "_" & d & ".csv"

が書き込みできませんとエラーが出ました
ここもｄを追加したのですが、おかしいですか？

[sazi]

最初のエラーは、変数の宣言についてのエラーですから、今回のエラーは別です。
変更しようとしている名前が既に存在していないか確認してみて下さい。

[ayapre]

ありがとうございます！
確認しましたが変更しようとしているファイル名がダブることはないのです。。他にどんな問題がありますか？

行：31
文字：1
エラー：書き込みできません。
コード：800A0046
ソース：Microsoft　VBSscript実行時エラー

[sazi]

そのファイルに対して、権限はありますか？

[ayapre]

回答ありがとうございます！！
権限はあるのですが、ひとつのファイルが開いてもないのに誰かが開いてるという現象が起きていました。
なんどもエラーを出してなんかおかしなことになっていたのでしょうかわかりませんが
フォルダをコピーしてやり直したらできました！！
ご丁寧に対応いただきありがとうございましたm(_ _"m)

Answer 2

Public a, b, bk, c, d, ex, f, gf, i, l, sh, so, x, y

ｄを追加して宣言したらできました。

Comments

[ayapre]

ここへ書き込むことではないのかもしれませんが
このサイトで質問し解決するのが初めてでよくわかっていなくて。
こんな感じで完了させるのでよかったのでしょうか？
回答いただいた方へ何かお礼のようなものや評価など抜けていることがあるのではないでしょうか・・・