Discussion :

[Opo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 ?

[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 +

[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.

[Opo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!