si un fichier existe

2 réponses

eric

28/07/2003 à 16:49

bonjour, je voudrai rendre visible un bouton si le fichier existe. je fais
co ca:

Private Sub photo_AfterUpdate()
If Dir$("\\Serveur\_Base de donnée AECF\CV\LevasseurColette.doc") <> "" And
GetAttr("\\Serveur\_Base de donnée AECF\CV\LevasseurColette.doc") <>
vbDirectory Then
Commande750.Visible = True
End If
End Sub

ms le bouton ne s'affiche pas malgré que le fichier existe. que faut il
faire?

2 réponses

Alain MENARD

28/07/2003 à 18:34

au lieu de <>"", il ne faut pas écrire >0 ?

--

Amicalement

Alain MENARD

Pour me joindre :

"eric" a écrit dans le message de
news:

bonjour, je voudrai rendre visible un bouton si le fichier existe. je fais
co ca:

Private Sub photo_AfterUpdate()
If Dir$("Serveur_Base de donnée AECFCVLevasseurColette.doc") <> ""

And

GetAttr("Serveur_Base de donnée AECFCVLevasseurColette.doc") <>
vbDirectory Then
Commande750.Visible = True
End If
End Sub

ms le bouton ne s'affiche pas malgré que le fichier existe. que faut il
faire?

André Joubert

28/07/2003 à 19:34

Bonjour Eric,
Il est possbile qu'il faille ajouter des parenthèses
autour des 2 expressions
afin que le "and" soit bien exécuté.
J'ai eu un problème la semaine dernière où j'ai dû faire
cela malgré que selon
le manuel les parenthèses n'étaient pas obligatoires.
André

"eric" wrote in message
news:

bonjour, je voudrai rendre visible un bouton si le fichier existe. je fais
co ca:

Private Sub photo_AfterUpdate()
If Dir$("Serveur_Base de donnée AECFCVLevasseurColette.doc") <> ""

And

GetAttr("Serveur_Base de donnée AECFCVLevasseurColette.doc") <>
vbDirectory Then
Commande750.Visible = True
End If
End Sub

ms le bouton ne s'affiche pas malgré que le fichier existe. que faut il
faire?

si un fichier existe

2 réponses

Veuillez sélectionner un problème