DTS : DTSTaskExecResult_Failure

Question

Salut a tous!

j'ai un pb dans le code de mon DTS : 

Function Main()
dim oFile, mstr_SourcePath, mstr_Filename, blnNextStep

mstr_SourcePath = "D:\DTS CRM XLS"
mstr_Filename = "PaysFrEn.xls"

set oFile = CreateObject("Scripting.FileSystemObject")
set ofolder = oFile.getFolder (mstr_SourcePath)

blnNextStep = 0

for each file in ofolder.Files
If file.name = mstr_Filename then
blnNextStep = 1
exit for
end if
next

if blnNextStep = 1 then
Main = DTSTaskExecResult_Success
else
Main = DTSTaskExecResult_Failure
end if

End Function

Cette ligne pause problème!!! 

Main = DTSTaskExecResult_Failure

j'obtiens un msg d'erreur!
the task reported failure on execution

merci de m'aider!!!

gaa179 · Answer

Cette erreur tu l'obtiens aussi quand tu as trouvé ton fichier ?

cs_crusader · Answer

non, uniquement quand le fichier n'est pas présent!

j'ai fais autre chose mais ce truc la doit fonctionner normalement!
je comprends pas ...

Si tu vois quoi fais moi signe!

Merci

cs_crusader · Answer

maintenant, j'utilise ca mais apres que le transfert echoue.
mais bon, le but était justement de ne pas lancer le DTS si le fichier n'est pas present!

Function Main()
msgbox "D:\DTS CRM XLS\PaysNl.xls", , "File doesn't exist"
Main = DTSTaskExecResult_Success
End Function

gaa179 · Answer

C'est normal. Tu lui demandes de soirtir de la tâche avec comme valeur éxécution failed. C'est ça qui te donne l'erreur.

DTS : DTSTaskExecResult_Failure

4 réponses

Discussions similaires