check for file existence in activex script

• nimmis

  SSC Veteran

  Points: 279

  More actions

  October 31, 2003 at 1:07 pm

  #107188

  Can some one tell me how to check for the existance of the file in activeX script?

• Allen Cui-55137

  SSC Guru

  Points: 51650

  More actions

  October 31, 2003 at 2:21 pm

  #480519

  Function Main()

  Dim oFSO

  Dim sSourceFile

  Set oFSO = CreateObject("Scripting.FileSystemObject")

  sSourceFile = "C:\SourceFile.txt"

  ' Check if file exists to prevent error

  If oFSO.FileExists(sSourceFile) Then

  YourAction

  End If

  ' Clean Up

  Set oFSO = Nothing

  Main = DTSTaskExecResult_Success

  End Function