j'ai integr=E9 dans mon appli 2 fonctions:
la premiere pour controler l'existance du repertoire=20
cheminPC =3D "c:\MapMarket\Commerce_traditionnel\"
Private Function FileExists(ByRef cheminPC As String) As=20
Boolean
On Error Resume Next
FileExists =3D ((GetAttr(cheminPC) And vbDirectory) =3D 0)
End Function
Et la seconde pour controler l'existance du r=E9pertoire=20
chemintxt =3D "c:\MapMarket\memotel\"
Private Function FileExists(ByRef chemintxt As String) As=20
Boolean
On Error Resume Next
FileExists =3D ((GetAttr(chemintxt) And vbDirectory) =3D 0)
End Function
Dans les deux cas si le r=E9pertoire n'est pas trouv=E9 cela=20
ouvre une CommonDialog
Quand je lance l'appli cela beug avec le message nom=20
ambigu detecte : FileExits
Pourquoi ?
D'autre part dans la ligne : If FileExists("dd") =3D False=20
Then ....... pourquoi "dd"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Bonjour/soir,
Dans les deux cas si le répertoire n'est pas trouvé cela ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
Private Function Directory(ByRef cheminPC As String) As Boolean On Error Resume Next FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory) End Function
Quand je lance l'appli cela beug avec le message nom ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe, ...) tu ne peux jamais avoir deux fonctions du même nom
j'ai integré dans mon appli 2 fonctions: la premiere pour controler l'existance du repertoire cheminPC = "c:MapMarketCommerce_traditionnel"
Private Function FileExists(ByRef cheminPC As String) As Boolean On Error Resume Next FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0) End Function
Et la seconde pour controler l'existance du répertoire chemintxt = "c:MapMarketmemotel" Private Function FileExists(ByRef chemintxt As String) As Boolean On Error Resume Next FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0) End Function
Dans les deux cas si le répertoire n'est pas trouvé cela ouvre une CommonDialog
Quand je lance l'appli cela beug avec le message nom ambigu detecte : FileExits
Pourquoi ?
D'autre part dans la ligne : If FileExists("dd") = False Then ....... pourquoi "dd"
Merrci de vos réponses Cordialement JCM
Bonjour/soir,
Dans les deux cas si le répertoire n'est pas trouvé cela
ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
Private Function Directory(ByRef cheminPC As String) As
Boolean
On Error Resume Next
FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory)
End Function
Quand je lance l'appli cela beug avec le message nom
ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe, ...) tu ne
peux jamais avoir deux fonctions du même nom
j'ai integré dans mon appli 2 fonctions:
la premiere pour controler l'existance du repertoire
cheminPC = "c:MapMarketCommerce_traditionnel"
Private Function FileExists(ByRef cheminPC As String) As
Boolean
On Error Resume Next
FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0)
End Function
Et la seconde pour controler l'existance du répertoire
chemintxt = "c:MapMarketmemotel"
Private Function FileExists(ByRef chemintxt As String) As
Boolean
On Error Resume Next
FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0)
End Function
Dans les deux cas si le répertoire n'est pas trouvé cela
ouvre une CommonDialog
Quand je lance l'appli cela beug avec le message nom
ambigu detecte : FileExits
Pourquoi ?
D'autre part dans la ligne : If FileExists("dd") = False
Then ....... pourquoi "dd"
Dans les deux cas si le répertoire n'est pas trouvé cela ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
Private Function Directory(ByRef cheminPC As String) As Boolean On Error Resume Next FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory) End Function
Quand je lance l'appli cela beug avec le message nom ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe, ...) tu ne peux jamais avoir deux fonctions du même nom
j'ai integré dans mon appli 2 fonctions: la premiere pour controler l'existance du repertoire cheminPC = "c:MapMarketCommerce_traditionnel"
Private Function FileExists(ByRef cheminPC As String) As Boolean On Error Resume Next FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0) End Function
Et la seconde pour controler l'existance du répertoire chemintxt = "c:MapMarketmemotel" Private Function FileExists(ByRef chemintxt As String) As Boolean On Error Resume Next FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0) End Function
Dans les deux cas si le répertoire n'est pas trouvé cela ouvre une CommonDialog
Quand je lance l'appli cela beug avec le message nom ambigu detecte : FileExits
Pourquoi ?
D'autre part dans la ligne : If FileExists("dd") = False Then ....... pourquoi "dd"
Merrci de vos réponses Cordialement JCM
Bismark Prods
le polymorphisme n'est pas encore intégré a VB ! dommage ! lol
"François Picalausa" a écrit dans le message de news:
Bonjour/soir,
> Dans les deux cas si le répertoire n'est pas trouvé cela > ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
> Private Function Directory(ByRef cheminPC As String) As > Boolean > On Error Resume Next > FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory) > End Function
> Quand je lance l'appli cela beug avec le message nom > ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe, ...) tu
JCM wrote: > Bonjour > > j'ai integré dans mon appli 2 fonctions: > la premiere pour controler l'existance du repertoire > cheminPC = "c:MapMarketCommerce_traditionnel" > > Private Function FileExists(ByRef cheminPC As String) As > Boolean > On Error Resume Next > FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0) > End Function > > Et la seconde pour controler l'existance du répertoire > chemintxt = "c:MapMarketmemotel" > Private Function FileExists(ByRef chemintxt As String) As > Boolean > On Error Resume Next > FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0) > End Function > > Dans les deux cas si le répertoire n'est pas trouvé cela > ouvre une CommonDialog > > Quand je lance l'appli cela beug avec le message nom > ambigu detecte : FileExits > > Pourquoi ? > > D'autre part dans la ligne : If FileExists("dd") = False > Then ....... pourquoi "dd" > > Merrci de vos réponses > Cordialement > JCM
le polymorphisme n'est pas encore intégré a VB ! dommage ! lol
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de
news:O1pARlQUDHA.1724@TK2MSFTNGP10.phx.gbl...
Bonjour/soir,
> Dans les deux cas si le répertoire n'est pas trouvé cela
> ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
> Private Function Directory(ByRef cheminPC As String) As
> Boolean
> On Error Resume Next
> FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory)
> End Function
> Quand je lance l'appli cela beug avec le message nom
> ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe, ...) tu
JCM wrote:
> Bonjour
>
> j'ai integré dans mon appli 2 fonctions:
> la premiere pour controler l'existance du repertoire
> cheminPC = "c:MapMarketCommerce_traditionnel"
>
> Private Function FileExists(ByRef cheminPC As String) As
> Boolean
> On Error Resume Next
> FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0)
> End Function
>
> Et la seconde pour controler l'existance du répertoire
> chemintxt = "c:MapMarketmemotel"
> Private Function FileExists(ByRef chemintxt As String) As
> Boolean
> On Error Resume Next
> FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0)
> End Function
>
> Dans les deux cas si le répertoire n'est pas trouvé cela
> ouvre une CommonDialog
>
> Quand je lance l'appli cela beug avec le message nom
> ambigu detecte : FileExits
>
> Pourquoi ?
>
> D'autre part dans la ligne : If FileExists("dd") = False
> Then ....... pourquoi "dd"
>
> Merrci de vos réponses
> Cordialement
> JCM
le polymorphisme n'est pas encore intégré a VB ! dommage ! lol
"François Picalausa" a écrit dans le message de news:
Bonjour/soir,
> Dans les deux cas si le répertoire n'est pas trouvé cela > ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
> Private Function Directory(ByRef cheminPC As String) As > Boolean > On Error Resume Next > FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory) > End Function
> Quand je lance l'appli cela beug avec le message nom > ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe, ...) tu
JCM wrote: > Bonjour > > j'ai integré dans mon appli 2 fonctions: > la premiere pour controler l'existance du repertoire > cheminPC = "c:MapMarketCommerce_traditionnel" > > Private Function FileExists(ByRef cheminPC As String) As > Boolean > On Error Resume Next > FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0) > End Function > > Et la seconde pour controler l'existance du répertoire > chemintxt = "c:MapMarketmemotel" > Private Function FileExists(ByRef chemintxt As String) As > Boolean > On Error Resume Next > FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0) > End Function > > Dans les deux cas si le répertoire n'est pas trouvé cela > ouvre une CommonDialog > > Quand je lance l'appli cela beug avec le message nom > ambigu detecte : FileExits > > Pourquoi ? > > D'autre part dans la ligne : If FileExists("dd") = False > Then ....... pourquoi "dd" > > Merrci de vos réponses > Cordialement > JCM
François Picalausa
Bonjour/soir,
Un article intéressant à ce sujet: http://msdn.microsoft.com/library/en-us/vbcon98/html/vbconimplementingstandardinterfaces.asp
le polymorphisme n'est pas encore intégré a VB ! dommage ! lol
"François Picalausa" a écrit dans le message de news:
Bonjour/soir,
Dans les deux cas si le répertoire n'est pas trouvé cela ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
Private Function Directory(ByRef cheminPC As String) As Boolean On Error Resume Next FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory) End Function
Quand je lance l'appli cela beug avec le message nom ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe, ...) tu ne peux jamais avoir deux fonctions du même nom
j'ai integré dans mon appli 2 fonctions: la premiere pour controler l'existance du repertoire cheminPC = "c:MapMarketCommerce_traditionnel"
Private Function FileExists(ByRef cheminPC As String) As Boolean On Error Resume Next FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0) End Function
Et la seconde pour controler l'existance du répertoire chemintxt = "c:MapMarketmemotel" Private Function FileExists(ByRef chemintxt As String) As Boolean On Error Resume Next FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0) End Function
Dans les deux cas si le répertoire n'est pas trouvé cela ouvre une CommonDialog
Quand je lance l'appli cela beug avec le message nom ambigu detecte : FileExits
Pourquoi ?
D'autre part dans la ligne : If FileExists("dd") = False Then ....... pourquoi "dd"
Merrci de vos réponses Cordialement JCM
Bonjour/soir,
Un article intéressant à ce sujet:
http://msdn.microsoft.com/library/en-us/vbcon98/html/vbconimplementingstandardinterfaces.asp
le polymorphisme n'est pas encore intégré a VB ! dommage ! lol
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de
news:O1pARlQUDHA.1724@TK2MSFTNGP10.phx.gbl...
Bonjour/soir,
Dans les deux cas si le répertoire n'est pas trouvé cela
ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
Private Function Directory(ByRef cheminPC As String) As
Boolean
On Error Resume Next
FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory)
End Function
Quand je lance l'appli cela beug avec le message nom
ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe,
...) tu ne peux jamais avoir deux fonctions du même nom
j'ai integré dans mon appli 2 fonctions:
la premiere pour controler l'existance du repertoire
cheminPC = "c:MapMarketCommerce_traditionnel"
Private Function FileExists(ByRef cheminPC As String) As
Boolean
On Error Resume Next
FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0)
End Function
Et la seconde pour controler l'existance du répertoire
chemintxt = "c:MapMarketmemotel"
Private Function FileExists(ByRef chemintxt As String) As
Boolean
On Error Resume Next
FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0)
End Function
Dans les deux cas si le répertoire n'est pas trouvé cela
ouvre une CommonDialog
Quand je lance l'appli cela beug avec le message nom
ambigu detecte : FileExits
Pourquoi ?
D'autre part dans la ligne : If FileExists("dd") = False
Then ....... pourquoi "dd"
le polymorphisme n'est pas encore intégré a VB ! dommage ! lol
"François Picalausa" a écrit dans le message de news:
Bonjour/soir,
Dans les deux cas si le répertoire n'est pas trouvé cela ouvre une CommonDialog
FileExists détermine si un fichir existe
pour un dossier:
Private Function Directory(ByRef cheminPC As String) As Boolean On Error Resume Next FileExists = ((GetAttr(cheminPC) And vbDirectory) = vbDirectory) End Function
Quand je lance l'appli cela beug avec le message nom ambigu detecte : FileExits
dans un module de code (form, module standard, module de classe, ...) tu ne peux jamais avoir deux fonctions du même nom
j'ai integré dans mon appli 2 fonctions: la premiere pour controler l'existance du repertoire cheminPC = "c:MapMarketCommerce_traditionnel"
Private Function FileExists(ByRef cheminPC As String) As Boolean On Error Resume Next FileExists = ((GetAttr(cheminPC) And vbDirectory) = 0) End Function
Et la seconde pour controler l'existance du répertoire chemintxt = "c:MapMarketmemotel" Private Function FileExists(ByRef chemintxt As String) As Boolean On Error Resume Next FileExists = ((GetAttr(chemintxt) And vbDirectory) = 0) End Function
Dans les deux cas si le répertoire n'est pas trouvé cela ouvre une CommonDialog
Quand je lance l'appli cela beug avec le message nom ambigu detecte : FileExits
Pourquoi ?
D'autre part dans la ligne : If FileExists("dd") = False Then ....... pourquoi "dd"
