VBSでフォルダパスを取得する

Question

前提・実現したいこと

vbsで、インプットボックスから取得したフォルダパスと
同じ階層に取得したフォルダをコピーしたいです。
（その後、コピーしたフォルダに色々処理を加える予定）
下記コードで、取得した「fromfolderPath」から
「tofolderPath」を作成するために
パス情報を抜くにはどうしたらよいでしょうか。
※例：C:\Users\test\Desktop\test1
だったら、「C:\Users\test\Desktop\」を取得したい

該当のソースコード

Option Explicit
On Error Resume Next
Dim fromfolderPath
Dim tofolderPath
Dim objFS

fromfolderPath = InputBox("コピー元のフォルダパスを入力してください。", "入力")
If IsEmpty(fromfolderPath) = true Then
        Wscript.Quit
End If

'ファイルシステムオブジェクトを生成します。
Set objFS = CreateObject("Scripting.FileSystemObject")

'fromfolderPathを tofolderPath へコピーします。
objFS.CopyFolder fromfolderPath,tofolderPath,True

'ファイルシステムオブジェクトを破棄します。
Set objFS = Nothing

Answer 1

objFS.GetParentFolderName("C:\Users\test\Desktop\test1") & "\"

Comments

[cerophan]

早速のご回答ありがとうございました。

[cerophan]

おかげさまで解決しました。

[cerophan]

記入ミスです。