Tester la présence d'un fichier.

Question

Bonjour, je code avec MS Visual Basic 6. J'utilise cette routine pour ouvrir une application sur un réseau : Set wsh = CreateObjetct("WScript.Shell") wsh.Run (C:\XXX\YYY.exe) J'aimerais pouvoir intégrer deux test :

Vérifiez que la présence du réseau

Vérifiez que mon fichier YYY.exe soit bien présent pour générer éventuellement un message d'erreur.

Merci pour votre aide.

linasteph · Answer

Salut,



voici d&#233;j&#224; la r&#233;ponse &#224; ta deuxi&#232;me question:

if dir("c:\XXX\YYYY.exe") <> "" then

    wsh.Run("....")

else

    msgbox "fichier non trouv&#233;"

end if

by2k · Answer

Merci pour ta r&#233;ponse, en fait j'ai d&#232;j&#224; essayer ce bout de code,
malheureusement les fichiers que veux lancer sont tous sur un r&#233;seau
(ex: J:\xxxx\xxx.xx].



Avec cette m&#233;thode, le r&#233;seau d&#233;branch&#233;, VB me g&#233;n&#233;re un message d'erreur interne.

linasteph · Answer

Essaie de g&#233;rer les erreurs dans ta fonction avec le On error...

Note le num&#233;ro d'erreur que cela te g&#233;n&#232;re actuellement et si avec la
gestion d'erreur tu obtiens la m&#234;me erreur l&#224; tu sais que le r&#233;seau
n'est pas pr&#233;sent.

baron_spawn · Answer

Salut,

Est-ce que tu fais ton lancement sur la m&#234;me lettre de lecteur ?


si oui : 


Set ObjFS = Createobject("Scripting.filesystemObject")


StrLet= "i:"


If ObjFS.DriveExists(StrLet) then
'tu testes la pr&#233;sence de ton fichier
' et tu mets ton action
Else
'tu montes ton drive
'tu testes la pr&#233;sence de ton fichier
' et tu mets ton action
End if

Tester la présence d'un fichier.

4 réponses

Discussions similaires