22,209
社区成员
发帖
与我相关
我的任务
分享
"E:\\txt\\"+RIGHT( @[用户::fileName], FINDSTRING( REVERSE(@[用户::fileName] ) , "\\",1) )
Public Sub Main()
'
Dim sFileName As String = Dts.Variables("FileName").Value.ToString
Dim sMsg As String
sMsg = "FileName is :" & sFileName
MsgBox(sMsg)
'
Dts.TaskResult = Dts.Results.Success
End Sub