お世話になります。5月よりwinactorを使い始めた初心者です。

作成しているシナリオ内で、「開いたファイルが入っているフォルダの名前を取得しExcelに転記する」という部分があり、

「開いたファイルが入っているフォルダの名前を取得する」という部分で躓いてしまいました。

以前こちらに「ファイルパスからファイル名を取得する」趣旨の質問があり、その解答を参考にできればと思ったのですが、

どこを書き換えればフォルダ名を取得できるのかがわかりません。

winactorに関してもこういったプログラミングのようなこと、スクリプト等も本当に触ったことがなく、初歩的な質問ですみません。

ご教授いただければ幸いです。

・・以下スクリプト・・

Dim objFileSys

FolderName=!ファイルパス!
extension =!拡張子有無!
Set objFileSys = CreateObject("Scripting.FileSystemObject")
FName = objFileSys.getBaseName(FolderName)
if extension = "あり" then
Exte = objFileSys.GetExtensionName(FolderName)
SetUMSVariable $フォルダ名$ ,FName & "." & Exte
else
SetUMSVariable $フォルダ名$ ,FName
end if

こちらのスクリプトを「スクリプト実行」タブに書き込んで実行しています。