いま、以下の通り同じフォルダ構成であれば、去年と今年を行き来するスクリプトを組んでいます。
で、あふは指定したパスのフォルダが存在しないとき、
フォルダが存在しないメッセージを残しつつその親フォルダに変更されると思います。
そこで存在しない(記号1文字でも違えば)のであればフォルダを変更しない処理を
どうにかして追加したいのですが、そんなことって可能でしょうか?

Dim jimadoPath, okikae, Past, Present
Past = "2018"
Present = "2019"
jimadoPath = Afxw.Extract( "$P\" )
'Pastが文字列に含まれているか判定
If InStr(jimadoPath, Past ) > 0 Then
okikae = Replace(jimadoPath, Past, Present)
Afxw.Exec( "&CD "&okikae )
Afxw.MesPrint ( Past & "→" & Present & "に移動できたかも。" )
Wscript.Quit()
'Presentが文字列に含まれているか判定(入れ替えるだけなので割愛)
End If
'error!どちらもないとき。
Afxw.MesPrint( Past & "か" & Present & "が含まれません。" )

プログラミング自体全くの初心者ですので、こうしたほうがいいとかあれば教えてくださるとありがたいです。