avec
if (dir(cdLettre,vbDirectory)<>"" then
msgbox "existe"
else
msgbox "absent"
end if
ceci fontionne bien lorque il y a quelque chose sur le cd rom
parcontre quand le cd est vide je reçois
erreur d'execution 52
nom ou n° de fichier incorrect
ce qui a mon avis semble normal vu que le cd est vide
question comment eviter ce bug
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
le_troll
Salut, c'est pas un bug!
Juste avant le dir...
On Error Goto adresse_eerreur dir... .... exit sub adresse_erreur: if Err = 52 then "CD vide" -- Avec une hache, celui qui tient le manche a toujours raison.
"lou" a écrit dans le message de news: 4033330a$0$7033$
bonjour voici le problemme
je teste l'existence d'un fichier sur un cd rom
avec if (dir(cdLettre,vbDirectory)<>"" then msgbox "existe" else msgbox "absent" end if ceci fontionne bien lorque il y a quelque chose sur le cd rom parcontre quand le cd est vide je reçois erreur d'execution 52 nom ou n° de fichier incorrect ce qui a mon avis semble normal vu que le cd est vide question comment eviter ce bug
merci lou
Salut, c'est pas un bug!
Juste avant le dir...
On Error Goto adresse_eerreur
dir...
....
exit sub
adresse_erreur:
if Err = 52 then "CD vide"
--
Avec une hache, celui qui tient le manche a toujours raison.
ng75@noos.fr
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
4033330a$0$7033$ba620e4c@news.skynet.be...
bonjour
voici le problemme
je teste l'existence d'un fichier sur un cd rom
avec
if (dir(cdLettre,vbDirectory)<>"" then
msgbox "existe"
else
msgbox "absent"
end if
ceci fontionne bien lorque il y a quelque chose sur le cd rom
parcontre quand le cd est vide je reçois
erreur d'execution 52
nom ou n° de fichier incorrect
ce qui a mon avis semble normal vu que le cd est vide
question comment eviter ce bug
On Error Goto adresse_eerreur dir... .... exit sub adresse_erreur: if Err = 52 then "CD vide" -- Avec une hache, celui qui tient le manche a toujours raison.
"lou" a écrit dans le message de news: 4033330a$0$7033$
bonjour voici le problemme
je teste l'existence d'un fichier sur un cd rom
avec if (dir(cdLettre,vbDirectory)<>"" then msgbox "existe" else msgbox "absent" end if ceci fontionne bien lorque il y a quelque chose sur le cd rom parcontre quand le cd est vide je reçois erreur d'execution 52 nom ou n° de fichier incorrect ce qui a mon avis semble normal vu que le cd est vide question comment eviter ce bug
merci lou
ng
Salut,
Pour tester l'existence d'un fichier, préfère utiliser une fonction du style de :
Function FileExists(ByRef sFileName As String) As Boolean On Error Resume Next FileExists = ((GetAttr(sFileName) And vbDirectory) = 0) End Function
Ceci d'abord parce que Dir() et plus lent et qu'ensuite parce que si tu utilises un autre Dir() paralèllement pour lister des fichiers, il va y avoir un conflit...
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"lou" a écrit dans le message de news: 4033330a$0$7033$
bonjour voici le problemme
je teste l'existence d'un fichier sur un cd rom
avec if (dir(cdLettre,vbDirectory)<>"" then msgbox "existe" else msgbox "absent" end if ceci fontionne bien lorque il y a quelque chose sur le cd rom parcontre quand le cd est vide je reçois erreur d'execution 52 nom ou n° de fichier incorrect ce qui a mon avis semble normal vu que le cd est vide question comment eviter ce bug
merci lou
Salut,
Pour tester l'existence d'un fichier, préfère utiliser une fonction du style
de :
Function FileExists(ByRef sFileName As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFileName) And vbDirectory) = 0)
End Function
Ceci d'abord parce que Dir() et plus lent et qu'ensuite parce que si tu
utilises un autre Dir() paralèllement pour lister des fichiers, il va y
avoir un conflit...
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
4033330a$0$7033$ba620e4c@news.skynet.be...
bonjour
voici le problemme
je teste l'existence d'un fichier sur un cd rom
avec
if (dir(cdLettre,vbDirectory)<>"" then
msgbox "existe"
else
msgbox "absent"
end if
ceci fontionne bien lorque il y a quelque chose sur le cd rom
parcontre quand le cd est vide je reçois
erreur d'execution 52
nom ou n° de fichier incorrect
ce qui a mon avis semble normal vu que le cd est vide
question comment eviter ce bug
Pour tester l'existence d'un fichier, préfère utiliser une fonction du style de :
Function FileExists(ByRef sFileName As String) As Boolean On Error Resume Next FileExists = ((GetAttr(sFileName) And vbDirectory) = 0) End Function
Ceci d'abord parce que Dir() et plus lent et qu'ensuite parce que si tu utilises un autre Dir() paralèllement pour lister des fichiers, il va y avoir un conflit...
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
"lou" a écrit dans le message de news: 4033330a$0$7033$
bonjour voici le problemme
je teste l'existence d'un fichier sur un cd rom
avec if (dir(cdLettre,vbDirectory)<>"" then msgbox "existe" else msgbox "absent" end if ceci fontionne bien lorque il y a quelque chose sur le cd rom parcontre quand le cd est vide je reçois erreur d'execution 52 nom ou n° de fichier incorrect ce qui a mon avis semble normal vu que le cd est vide question comment eviter ce bug
