追記です
ネットで検索し、見よう見まねでスクリプトを "$FILE_PATH_TYPE", "14"に変更しました。
移動元 SetUMSVariable "$FILE_PATH_TYPE", "11" ですとエラー
スクリプトの実行に失敗しました。
エラー番号: 0x00000001
内容: 移動元ファイルが見つかりません。
となります。
'SetUMSVariable "$FILE_PATH_TYPE", "11"
SetUMSVariable "$FILE_PATH_TYPE", "14"
SetUMSVariable "$PARSE_FILE_PATH", b_fname
before = GetUMSVariable("$PARSE_FILE_PATH")
If before = "" Then
Err.Raise 1, "", "移動元ファイルが見つかりません。"
End If
If after = "" Then
after = "."
End If
If Right(after, 1) = "\" Then
a_fname = Left(after, Len(after) - 1)
Else
a_fname = after
End If
'SetUMSVariable "$FILE_PATH_TYPE", "12"
SetUMSVariable "$FILE_PATH_TYPE", "14"
SetUMSVariable "$PARSE_FILE_PATH", a_fname
after = GetUMSVariable("$PARSE_FILE_PATH")
If after = "" Then
' SetUMSVariable "$FILE_PATH_TYPE", "13"
SetUMSVariable "$FILE_PATH_TYPE", "14"
SetUMSVariable "$PARSE_FILE_PATH", a_fname
after = GetUMSVariable("$PARSE_FILE_PATH")
End If
If after = "" Then
Err.Raise 1, "", "移動先フォルダが見つかりません。"
End If
