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

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

1 réponse

  1. greg
     

    ' 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. igo
       
      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
       
      xdddd
      0
    3. Seb
       
      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. UVB
       
      Super lourd :

      if dir(le_chemin_du_fichier)<>"" then

      est beaucoup plus rapide
      0