dts传输文本数据问题

[ibicf]

各位老大，我现在要用dts从文本数据往目标数据库传数据，但是如果文本数据为空的话，就会报错。我现在想知道有什么方法判断如果文本数据为空，我就不执行这一步。谢谢先

[ibicf]

up

[hsj20041004]

思路：文本数据为空就是其大小为0，可以用其它语言，不用sql语句

[ibicf]

楼上的，我是用activex脚本实现，不知道该怎么写

[ibicf]

up

[lovcal]

up

[downmoon]

strMsg = "G:\BAK\prg_code\WebLog\HGH\WEBEXTD20050904.log"
Set fs = CreateObject("scripting.FileSystemobject")
If (fs.FileExist(strMsg)) Then
DTSGlobalVariables("gvstrErrorInfo").Value = ""
DTSGlobalVariables("gvHGHPath").Value = strMsg
Main = DTSTaskExecResult_Success
Else
DTSGlobalVariables("gvstrErrorInfo").Value = "WebLog File" & vbCrLf & strMsg & vbCrLf & "not Exist!"
DTSGlobalVariables("gvHGHPath").Value = ""
Main = DTSTaskExecResult_Failure
End If