test de presence de fichierRésolu

Question

bonjour

je cherche à faire en VB6 un programme permettant d'envoyer un mail en cas de presence de fichiers dans un repertoire. Ainsi suivant le nom du fichier, le destinataire du mail sera different.
Pour l'envoi du mail, j'utiliserais la fonction mail de php, avec donc sous VB un appel de l'url correspondante (1 url pour chaque adresse mail)
En revanche, je ne sais pas comment faire pour tester la presence du fichier. Sous korn Shell (Aix) la fonction "test" suffit, mais je ne connais pas de similaire sous VB
merci de votre aide

Pascal
http://www.ocean-passion.com
http://www.elsapascal.fr.st

pascalbout · Accepted Answer

en fait jai pu voir que cela marche en local !
le fichier est sur une machine distante, et là il refuse (bien que le fichier soit partage en acces total pour tout le monde)
mais si je met l'executable dans le meme repertoire sur la machine distante, et donc je remplace Fichier = "e:/phe/analyse/mail/test" par Fichier="text.txt" là ça marche !
c'est impeccable ainsi

merci beaucoup !

Pascal
http://www.ocean-passion.com

alias666 · Answer

Je sais pas si cela va marcher mais sur mon projet ca marche bien sans auncun bug.

Function Existe(Fichier As String) As Boolean
        On Error GoTo TraiteErreur
        If Dir(Fichier) = "" Then
                  Existe = False
        Else
                  Existe = True
        End If
TraiteErreur:
        If Err <> 0 Then
                Existe = False
        End If
End Function


En espérant que ce soit ca...

_______________________
4L!@$ >>>>

pascalbout · Answer

merci beaucoup !
je l'ai refait ainsi:


Private Sub Form_Load()

On Error GoTo TraiteErreur
If Dir("e:/phe/analyse/mail/test") = "" Then
Existe = False
Else
Existe = True
End If

If Existe = True Then
    MsgBox ("ok")
    Else
    MsgBox ("no")
    End If

TraiteErreur:
If Err <> 0 Then
Existe = False
End If

End Sub


Mais apparemment il rechigne sur la directory !!!

merci

Pascal
http://www.elsapascal.fr.st

pascalbout · Answer

en fait comme cela:


Fichier = "e:/phe/analyse/mail/test"
If Dir(Fichier) = "" Then

il n'en veut pas non plus

merci

Pascal
http://www.ocean-passion.com

alias666 · Answer

C'est sur un répertoire ou sur un fichier que tu veux qu'il te renvoie la valeur?

_______________________
4L!@$ >>>>

jrivet · Answer

Salut,

Ajoute la reference suivante a ton projet (menu Projet...References)
Windows Script Host Object Model 

Et essaie la chose suivante


Dim fs As New FileSystemObject
MsgBox fs.FileExists(NomFichier)


@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

jrivet · Answer

Re,
Si c est un Repertoire fs.FolderExists(CheminRepertoire)

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

pascalbout · Answer

merci pour votre rapidité, cest tres gentil !
cest un fichier, dont le nom sera MACHINE.jour.mail
mais je peux changer ce nom car il provient dun script sous aix
jrivet -> par ce script, il me repond "Faux' bien que le fichier existe.
merci 
Pascal
http://www.ocean-passion.com

Test de presence de fichier

8 réponses

Discussions similaires