Bonjour
Dans un formulaire je crée un répertoire dans lequel je stocke des photos.
Seulement si le répertoire existe déjà cela plante.
Comment pourrais je tester l'exitence du répertoire et s'il existe mettre
une MsgBox, s'il n'existe pas le créer;
Voici le code de création du répertoire:
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
Gilles MOUGNOZ
Bonjour, jcp66 Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur, exécuter l'instruction suivante MkDir ... ' création du répertoire If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction préécdente a provoqué une erreur MsgBox "Le répertoire existe déjà !" End If On Error Goto 0 ' Fin de la gestion d'erreur
-- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Dans un formulaire je crée un répertoire dans lequel je stocke des photos. Seulement si le répertoire existe déjà cela plante. Comment pourrais je tester l'exitence du répertoire et s'il existe mettre une MsgBox, s'il n'existe pas le créer; Voici le code de création du répertoire: RepertoirePhoto = Application.CurrentProject.Path & "Photos" & Site_CodeLong MkDir RepertoirePhoto Merci jcp
Bonjour, jcp66
Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une
gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur,
exécuter l'instruction suivante
MkDir ... ' création du répertoire
If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction
préécdente a provoqué une erreur
MsgBox "Le répertoire existe déjà !"
End If
On Error Goto 0 ' Fin de la gestion d'erreur
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Bonjour
Dans un formulaire je crée un répertoire dans lequel je stocke des photos.
Seulement si le répertoire existe déjà cela plante.
Comment pourrais je tester l'exitence du répertoire et s'il existe mettre
une MsgBox, s'il n'existe pas le créer;
Voici le code de création du répertoire:
RepertoirePhoto = Application.CurrentProject.Path & "Photos" &
Site_CodeLong
MkDir RepertoirePhoto
Merci
jcp
Bonjour, jcp66 Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur, exécuter l'instruction suivante MkDir ... ' création du répertoire If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction préécdente a provoqué une erreur MsgBox "Le répertoire existe déjà !" End If On Error Goto 0 ' Fin de la gestion d'erreur
-- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Dans un formulaire je crée un répertoire dans lequel je stocke des photos. Seulement si le répertoire existe déjà cela plante. Comment pourrais je tester l'exitence du répertoire et s'il existe mettre une MsgBox, s'il n'existe pas le créer; Voici le code de création du répertoire: RepertoirePhoto = Application.CurrentProject.Path & "Photos" & Site_CodeLong MkDir RepertoirePhoto Merci jcp
jcp66
Merci Gilles. Non il faut que je crées le répertoire (ou tente de le créer) que s'il n'existe pas car sinon cela provoque un message d'erreur. Avec access on s'en sort encore , même si ce n'est pas très joli, car on reste sur le meme formulaire, mais avec le Runtime cela ferme carrément le formulaire. jcp
"Gilles MOUGNOZ" a écrit dans le message de news:
Bonjour, jcp66 Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur, exécuter l'instruction suivante MkDir ... ' création du répertoire If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction préécdente a provoqué une erreur MsgBox "Le répertoire existe déjà !" End If On Error Goto 0 ' Fin de la gestion d'erreur
-- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Dans un formulaire je crée un répertoire dans lequel je stocke des photos. Seulement si le répertoire existe déjà cela plante. Comment pourrais je tester l'exitence du répertoire et s'il existe mettre une MsgBox, s'il n'existe pas le créer; Voici le code de création du répertoire: RepertoirePhoto = Application.CurrentProject.Path & "Photos" & Site_CodeLong MkDir RepertoirePhoto Merci jcp
Merci Gilles.
Non il faut que je crées le répertoire (ou tente de le créer) que s'il
n'existe pas car sinon cela provoque un message d'erreur. Avec access on
s'en sort encore , même si ce n'est pas très joli, car on reste sur le meme
formulaire, mais avec le Runtime cela ferme carrément le formulaire.
jcp
"Gilles MOUGNOZ" <gmougnoz@courrierchaud.aifair> a écrit dans le message de
news: umifYdoNIHA.3852@TK2MSFTNGP06.phx.gbl...
Bonjour, jcp66
Plutôt que de tester l'existence du répertoire, je te propose d'ajouter
une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur,
exécuter l'instruction suivante
MkDir ... ' création du répertoire
If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction
préécdente a provoqué une erreur
MsgBox "Le répertoire existe déjà !"
End If
On Error Goto 0 ' Fin de la gestion d'erreur
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Bonjour
Dans un formulaire je crée un répertoire dans lequel je stocke des
photos.
Seulement si le répertoire existe déjà cela plante.
Comment pourrais je tester l'exitence du répertoire et s'il existe mettre
une MsgBox, s'il n'existe pas le créer;
Voici le code de création du répertoire:
RepertoirePhoto = Application.CurrentProject.Path & "Photos" &
Site_CodeLong
MkDir RepertoirePhoto
Merci
jcp
Merci Gilles. Non il faut que je crées le répertoire (ou tente de le créer) que s'il n'existe pas car sinon cela provoque un message d'erreur. Avec access on s'en sort encore , même si ce n'est pas très joli, car on reste sur le meme formulaire, mais avec le Runtime cela ferme carrément le formulaire. jcp
"Gilles MOUGNOZ" a écrit dans le message de news:
Bonjour, jcp66 Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur, exécuter l'instruction suivante MkDir ... ' création du répertoire If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction préécdente a provoqué une erreur MsgBox "Le répertoire existe déjà !" End If On Error Goto 0 ' Fin de la gestion d'erreur
-- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Dans un formulaire je crée un répertoire dans lequel je stocke des photos. Seulement si le répertoire existe déjà cela plante. Comment pourrais je tester l'exitence du répertoire et s'il existe mettre une MsgBox, s'il n'existe pas le créer; Voici le code de création du répertoire: RepertoirePhoto = Application.CurrentProject.Path & "Photos" & Site_CodeLong MkDir RepertoirePhoto Merci jcp
3stone
Salut,
"jcp66" | Non il faut que je crées le répertoire (ou tente de le créer) que s'il | n'existe pas car sinon cela provoque un message d'erreur. Avec access on | s'en sort encore , même si ce n'est pas très joli, car on reste sur le meme | formulaire, mais avec le Runtime cela ferme carrément le formulaire.
"jcp66"
| Non il faut que je crées le répertoire (ou tente de le créer) que s'il
| n'existe pas car sinon cela provoque un message d'erreur. Avec access on
| s'en sort encore , même si ce n'est pas très joli, car on reste sur le meme
| formulaire, mais avec le Runtime cela ferme carrément le formulaire.
"jcp66" | Non il faut que je crées le répertoire (ou tente de le créer) que s'il | n'existe pas car sinon cela provoque un message d'erreur. Avec access on | s'en sort encore , même si ce n'est pas très joli, car on reste sur le meme | formulaire, mais avec le Runtime cela ferme carrément le formulaire.
"jcp66" | Non il faut que je crées le répertoire (ou tente de le créer) que s'il | n'existe pas car sinon cela provoque un message d'erreur. Avec access on | s'en sort encore , même si ce n'est pas très joli, car on reste sur le meme | formulaire, mais avec le Runtime cela ferme carrément le formulaire.
a+
jcp
"3stone" <home@sweet_home.be> a écrit dans le message de news:
uKC45EpNIHA.2376@TK2MSFTNGP02.phx.gbl...
Salut,
"jcp66"
| Non il faut que je crées le répertoire (ou tente de le créer) que s'il
| n'existe pas car sinon cela provoque un message d'erreur. Avec access on
| s'en sort encore , même si ce n'est pas très joli, car on reste sur le
meme
| formulaire, mais avec le Runtime cela ferme carrément le formulaire.
"jcp66" | Non il faut que je crées le répertoire (ou tente de le créer) que s'il | n'existe pas car sinon cela provoque un message d'erreur. Avec access on | s'en sort encore , même si ce n'est pas très joli, car on reste sur le meme | formulaire, mais avec le Runtime cela ferme carrément le formulaire.
Bonjour Gilles, Excellente idée, facile à mettre en oeuvre, efficace et qui m'arrange bien ! Quand on peut faire simple, faut pas se priver. Bonne journée.
"Gilles MOUGNOZ" a écrit dans le message de groupe de discussion :
Bonjour, jcp66 Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur, exécuter l'instruction suivante MkDir ... ' création du répertoire If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction préécdente a provoqué une erreur MsgBox "Le répertoire existe déjà !" End If On Error Goto 0 ' Fin de la gestion d'erreur
-- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Dans un formulaire je crée un répertoire dans lequel je stocke des photos. Seulement si le répertoire existe déjà cela plante. Comment pourrais je tester l'exitence du répertoire et s'il existe mettre une MsgBox, s'il n'existe pas le créer; Voici le code de création du répertoire: RepertoirePhoto = Application.CurrentProject.Path & "Photos" & Site_CodeLong MkDir RepertoirePhoto Merci jcp
Bonjour Gilles,
Excellente idée, facile à mettre en oeuvre, efficace et qui m'arrange bien !
Quand on peut faire simple, faut pas se priver.
Bonne journée.
"Gilles MOUGNOZ" <gmougnoz@courrierchaud.aifair> a écrit dans le message de
groupe de discussion : umifYdoNIHA.3852@TK2MSFTNGP06.phx.gbl...
Bonjour, jcp66
Plutôt que de tester l'existence du répertoire, je te propose d'ajouter
une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur,
exécuter l'instruction suivante
MkDir ... ' création du répertoire
If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction
préécdente a provoqué une erreur
MsgBox "Le répertoire existe déjà !"
End If
On Error Goto 0 ' Fin de la gestion d'erreur
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Bonjour
Dans un formulaire je crée un répertoire dans lequel je stocke des
photos.
Seulement si le répertoire existe déjà cela plante.
Comment pourrais je tester l'exitence du répertoire et s'il existe mettre
une MsgBox, s'il n'existe pas le créer;
Voici le code de création du répertoire:
RepertoirePhoto = Application.CurrentProject.Path & "Photos" &
Site_CodeLong
MkDir RepertoirePhoto
Merci
jcp
Bonjour Gilles, Excellente idée, facile à mettre en oeuvre, efficace et qui m'arrange bien ! Quand on peut faire simple, faut pas se priver. Bonne journée.
"Gilles MOUGNOZ" a écrit dans le message de groupe de discussion :
Bonjour, jcp66 Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur, exécuter l'instruction suivante MkDir ... ' création du répertoire If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction préécdente a provoqué une erreur MsgBox "Le répertoire existe déjà !" End If On Error Goto 0 ' Fin de la gestion d'erreur
-- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Dans un formulaire je crée un répertoire dans lequel je stocke des photos. Seulement si le répertoire existe déjà cela plante. Comment pourrais je tester l'exitence du répertoire et s'il existe mettre une MsgBox, s'il n'existe pas le créer; Voici le code de création du répertoire: RepertoirePhoto = Application.CurrentProject.Path & "Photos" & Site_CodeLong MkDir RepertoirePhoto Merci jcp
Gilles MOUGNOZ
Salut, Thierry Mais, de rien... ;-) Ceci dit, jcp66 avait l'air de dire que cela ne fonctionne pas avec le runtime (à vérifier quand même). -- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Gilles, Excellente idée, facile à mettre en oeuvre, efficace et qui m'arrange bien ! Quand on peut faire simple, faut pas se priver. Bonne journée.
Bonjour, jcp66 Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur, exécuter l'instruction suivante MkDir ... ' création du répertoire If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction préécdente a provoqué une erreur MsgBox "Le répertoire existe déjà !" End If On Error Goto 0 ' Fin de la gestion d'erreur
-- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Dans un formulaire je crée un répertoire dans lequel je stocke des photos. Seulement si le répertoire existe déjà cela plante. Comment pourrais je tester l'exitence du répertoire et s'il existe mettre une MsgBox, s'il n'existe pas le créer; Voici le code de création du répertoire: RepertoirePhoto = Application.CurrentProject.Path & "Photos" & Site_CodeLong MkDir RepertoirePhoto Merci jcp
Salut, Thierry
Mais, de rien... ;-)
Ceci dit, jcp66 avait l'air de dire que cela ne fonctionne pas avec le
runtime (à vérifier quand même).
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Bonjour Gilles,
Excellente idée, facile à mettre en oeuvre, efficace et qui m'arrange bien
!
Quand on peut faire simple, faut pas se priver.
Bonne journée.
Bonjour, jcp66
Plutôt que de tester l'existence du répertoire, je te propose d'ajouter
une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur,
exécuter l'instruction suivante
MkDir ... ' création du répertoire
If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction
préécdente a provoqué une erreur
MsgBox "Le répertoire existe déjà !"
End If
On Error Goto 0 ' Fin de la gestion d'erreur
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Bonjour
Dans un formulaire je crée un répertoire dans lequel je stocke des
photos.
Seulement si le répertoire existe déjà cela plante.
Comment pourrais je tester l'exitence du répertoire et s'il existe
mettre une MsgBox, s'il n'existe pas le créer;
Voici le code de création du répertoire:
RepertoirePhoto = Application.CurrentProject.Path & "Photos" &
Site_CodeLong
MkDir RepertoirePhoto
Merci
jcp
Salut, Thierry Mais, de rien... ;-) Ceci dit, jcp66 avait l'air de dire que cela ne fonctionne pas avec le runtime (à vérifier quand même). -- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Gilles, Excellente idée, facile à mettre en oeuvre, efficace et qui m'arrange bien ! Quand on peut faire simple, faut pas se priver. Bonne journée.
Bonjour, jcp66 Plutôt que de tester l'existence du répertoire, je te propose d'ajouter une gestion d'erreur:
On Error Resume Next ' Début de la gestion d'erreur : si erreur, exécuter l'instruction suivante MkDir ... ' création du répertoire If Err.Number <>0 Then ' le code d'erreur n'est pas 0 : l'instruction préécdente a provoqué une erreur MsgBox "Le répertoire existe déjà !" End If On Error Goto 0 ' Fin de la gestion d'erreur
-- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour Dans un formulaire je crée un répertoire dans lequel je stocke des photos. Seulement si le répertoire existe déjà cela plante. Comment pourrais je tester l'exitence du répertoire et s'il existe mettre une MsgBox, s'il n'existe pas le créer; Voici le code de création du répertoire: RepertoirePhoto = Application.CurrentProject.Path & "Photos" & Site_CodeLong MkDir RepertoirePhoto Merci jcp