Script VB qui teste la présence d'1 fichier

igo - 18 juin 2003 à 15:23
 UVB -
Bonjour,

Je fais de l'alimentation des données avec l'outil DTS de SQL Server et je voudrais écrire en Visual Basic un script qui permet de:

- tester la présence ou non d'un fichier dans un répertoire,
- ensuite en fonction du résultat j'oriente vers l'intégration du fichier ou vers l'envoi d'un mail.

Comment dois-je écrire le script?

Je vous remercie d'avance.
A voir également:

1 réponse

Réponse 1 / 1
greg
18 juin 2003 à 16:13 

' Si tu connais le nom de ton fichier :



Set filesys = CreateObject("Scripting.FileSystemObject")

le_chemin_du_fichier = "c:\fichier_que_tu_teste.jpg"

if filesys.FileExists (le_chemin_du_fichier) then

	' Il existe donc.....

else

	' Il n'existe pas, alors...

end if

' Si tu ne connais pas, la suite au prochain numéro...
3
igo
18 juin 2003 à 17:35
Salut Greg,

Merci pour ta réponse, en fait je suis à la 2è étape c-a-d envoyer un mail à l'admin en cas d'échec. J'attends impatiemment le prochain numéro car je débute sur DTS et c'est pas easy pour moi. Merci d'avance.

Cordialement.
0
xdddd
20 mai 2011 à 11:21
xdddd
0
Seb
15 févr. 2012 à 16:10
Je recherche aussi comment faire si on ne connait pas le nom du fichier... Je veux détecter tous mes fichiers .doc dans le répertoire
0
UVB
27 févr. 2012 à 10:17
Super lourd :

if dir(le_chemin_du_fichier)<>"" then

est beaucoup plus rapide
0