Création d'un agent et présence de fichier

Version imprimable

05/10/2006, 15h13
Opo

Création d'un agent et présence de fichier
Bonjour,

je dois créer une tâche planifiée (chaque nuit) pour importer un fichier ds une table de ma base.
je souhaite donc créer un "travail"
La première étape est donc de tester la présence du fichier TXT afin de passer en étape 2 pour l'import ou bien de reboucler tant que le fichier est absent.
Comment est ce que je peux écrire cette première étape ?
J'ai essayé ceci :
Code:

1 2 3 4 5 6 7 8 Dim fso, f Const ForWriting=2 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\sv\tot.txt",ForWriting,True) f.Close set f=nothing set fso=nothing
Mais même si mon fichier n'existe pas... le bout de code ne plante pas (il me dit simplement que le résultat est vide) et il continue gentiment sur une étape "OK"...
Comment puis je faire pour qu'il s'aperçoive que le fichier est absent ?
d'avance merci de vos réponses.
05/10/2006, 15h29
WOLO Laurent

Normal comme réaction, en fait, dans votre script, vous ne lui indiquez pas de sortir au cas ou le fichier n'existe pas.
Est ce que vous pouvez poster tout le code ?
05/10/2006, 15h55
SQLpro

Générez une erreur de toute pièces au cas ou. Soit par levée d'exception VB soit par une vrai erreur genre division par zéro.
Dans votre tâche dite que si erreur alors faire cela.

A +
10/10/2006, 09h19
rudib

Bonjour,

Si tu es dans SQL Server 2005, tu pourrais avoir avantage à utiliser SSMS et profiter des événements WMI, qui peuvent te permettre de déclencher l'action au moment où le fichier tombe dans le répertoire.

Excellente l'idée de générer une erreur !!!
effectivement, j'y pense rarement...
Voici donc mon code (simplifié) mais qui marche pour ce que je veux faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Set oWSH= CreateObject("WScript.Shell" ) oWSH.Run "c:\dim_sv\copy.bat", 1, True set oWSH = nothing Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists("C:\Pack1\toto.txt") then set fs=nothing iResult=1/1 else set fs=nothing iResult=1/0 End If
Et ds le COPY.BAT, je fais une bête copie de fichiers de répertoire à répertoire (plus tard, ce sera un transfert AS400) !
Merci beaucoup !!