WinActorv6.3.0ユーザです。

表題のとおりの質問です。

下記のコードを参考にすればできそうですが、VBScriptに詳しい方教えてください！

------------

Dim str
Dim FS
str = !ファイルパス!

Set FS = CreateObject("Scripting.FileSystemObject")

file = FS.GetFileName( str )
filename = FS.GetBaseName( str )

period = left(filename,7)

user_ary = split(filename,"_")
user = user_ary(2)
user = Replace(user,"様","")
user = Replace(user,"　"," ")

SetUmsVariable $ファイル名$, file
SetUmsVariable $年度$, period
SetUmsVariable $ユーザ名$, user

ｰｰｰｰｰ