Results 1 to 2 of 2

Thread: ActiveX Script

  1. #1
    Join Date
    Jun 2004

    Unanswered: ActiveX Script

    I ran this activeX script with my DTS package. For debugging purpose I included the message box. The message is showing the actual name of the file but the the file name is not changing to the name display in the message box.

    Function Main()
    ms_year = year(date())
    ms_month = month(date())
    ms_day = day(date())
    ms_date = ms_year & "_" & ms_month &"_" & ms_day & "_"

    dim objFSO, strFullNm

    set objFSO = CreateObject("Scripting.FileSystemObject")
    strFullNm = DTSGlobalVariables("FilePathRoot").value & "\IMS_ALL_DONATIONS.txt"

    'check to see if file exist and then concatenate the file
    if objFSO.FileExists(strFullNm) then
    strFullNm = DTSGlobalVariables("FilePathRoot").value & "\ " & ms_date & "IMS_ALL_DONATIONS.txt"
    MsgBox "This is the new filename: " & strFullNm
    else MsgBox "File does not exist"
    end if

    set objFSO = nothing
    Main = DTSTaskExecResult_Success
    End Function

  2. #2
    Join Date
    Nov 2003
    Christchurch, New Zealand
    Um, I'm not sure exactly what you are trying to achieve here.

    You say the correct filename is being displayed but strFullNm is not being set to the right value, is that right??

    After you display strFullNm what are you doing with it? Looking at the code you have there you aren't doing anything with it at all and it will be discarded. Are you trying to rename a file or move a file or something?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts