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

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.

1 réponse


  1. ' 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
    1. 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
    2. xdddd
      0
    3. 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
    4. Super lourd :

      if dir(le_chemin_du_fichier)<>"" then

      est beaucoup plus rapide
      0