Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Creation de repertoire

Creation de repertoire

6 réponses
Avatar
maxben
Bonjour,
Est il possible de créer automatiquement un répertoire quand on entre le
chemin d'accès dans un formulaire pour créer un lien.

Merci beaucoup
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Gilbert
Bonjour,

Tu peux essayer avec ce code.

Dim NomRep As String
NomRep = "c:test"
If Dir(NomRep, vbDirectory) = "" Then
MkDir NomRep
End If


--
Cordialement,

Gilbert


"maxben" a écrit dans le message de
news:
Bonjour,
Est il possible de créer automatiquement un répertoire quand on entre le
chemin d'accès dans un formulaire pour créer un lien.

Merci beaucoup


Avatar
maxben
"Gilbert" a écrit :

Bonjour,

Tu peux essayer avec ce code.

Dim NomRep As String
NomRep = "c:test"
If Dir(NomRep, vbDirectory) = "" Then
MkDir NomRep
End If


--
Cordialement,

Gilbert


"maxben" a écrit dans le message de
news:
> Bonjour,
> Est il possible de créer automatiquement un répertoire quand on entre le
> chemin d'accès dans un formulaire pour créer un lien.
>
> Merci beaucoup


Merci pour ton info, mais est il possible de faire vérifier l'existence du répertoire car il y a une racine fixe :


serveursqlgroupescourrier"à créer", si le sous répertoire existe déjà
il ne faudra pas le créer.
Le formulaire a 3 contrôles
C1: Classement C2:sserveursqlgroupes C3:"à créer"

Merci
@+
Avatar
Gilbert
Bonjour,

Le test d'existence du répertoire est fait par
If Dir(NomRep, vbDirectory) = "" Then

Par contre si le dossier de niveau supérieur n'existe pas tu auras une
erreur.
Par exemple pour créer le dossier Toto dans c:tata il faut que le dossier
tata existe.

--
Cordialement,

Gilbert


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


"Gilbert" a écrit :

> Bonjour,
>
> Tu peux essayer avec ce code.
>
> Dim NomRep As String
> NomRep = "c:test"
> If Dir(NomRep, vbDirectory) = "" Then
> MkDir NomRep
> End If
>
>
> --
> Cordialement,
>
> Gilbert
>
>
> "maxben" a écrit dans le message de
> news:
> > Bonjour,
> > Est il possible de créer automatiquement un répertoire quand on entre


le
> > chemin d'accès dans un formulaire pour créer un lien.
> >
> > Merci beaucoup
>
>
> Merci pour ton info, mais est il possible de faire vérifier l'existence


du répertoire car il y a une racine fixe :
serveursqlgroupescourrier"à créer", si le sous répertoire existe déjà
il ne faudra pas le créer.
Le formulaire a 3 contrôles
C1: Classement C2:sserveursqlgroupes C3:"à créer"

Merci
@+


Avatar
maxben
Est il possible de créer un MsgBox pour demander confirmation de la création
s'il n'existe pas ?
Cdlt

"Gilbert" a écrit :

Bonjour,

Le test d'existence du répertoire est fait par
If Dir(NomRep, vbDirectory) = "" Then

Par contre si le dossier de niveau supérieur n'existe pas tu auras une
erreur.
Par exemple pour créer le dossier Toto dans c:tata il faut que le dossier
tata existe.

--
Cordialement,

Gilbert


"maxben" a écrit dans le message de
news:
>
>
> "Gilbert" a écrit :
>
> > Bonjour,
> >
> > Tu peux essayer avec ce code.
> >
> > Dim NomRep As String
> > NomRep = "c:test"
> > If Dir(NomRep, vbDirectory) = "" Then
> > MkDir NomRep
> > End If
> >
> >
> > --
> > Cordialement,
> >
> > Gilbert
> >
> >
> > "maxben" a écrit dans le message de
> > news:
> > > Bonjour,
> > > Est il possible de créer automatiquement un répertoire quand on entre
le
> > > chemin d'accès dans un formulaire pour créer un lien.
> > >
> > > Merci beaucoup
> >
> >
> > Merci pour ton info, mais est il possible de faire vérifier l'existence
du répertoire car il y a une racine fixe :
> serveursqlgroupescourrier"à créer", si le sous répertoire existe déjà
> il ne faudra pas le créer.
> Le formulaire a 3 contrôles
> C1: Classement C2:sserveursqlgroupes C3:"à créer"
>
> Merci
> @+





Avatar
Gilbert
Dim NomRep As String
NomRep = "c:test"
If Dir(NomRep, vbDirectory) = "" Then
if msgbox("Le répertoire " & Nomrep & " n'existe pas." & vbcrlf &
"Voulez-vous le créer?",vbyesno) =vbyes then
MkDir NomRep
msgbox "("Le répertoire " & Nomrep & " a été créé."
endif
End If

--
Cordialement,

Gilbert


"maxben" a écrit dans le message de
news:
Est il possible de créer un MsgBox pour demander confirmation de la


création
s'il n'existe pas ?
Cdlt

"Gilbert" a écrit :

> Bonjour,
>
> Le test d'existence du répertoire est fait par
> If Dir(NomRep, vbDirectory) = "" Then
>
> Par contre si le dossier de niveau supérieur n'existe pas tu auras une
> erreur.
> Par exemple pour créer le dossier Toto dans c:tata il faut que le


dossier
> tata existe.
>
> --
> Cordialement,
>
> Gilbert
>
>
> "maxben" a écrit dans le message de
> news:
> >
> >
> > "Gilbert" a écrit :
> >
> > > Bonjour,
> > >
> > > Tu peux essayer avec ce code.
> > >
> > > Dim NomRep As String
> > > NomRep = "c:test"
> > > If Dir(NomRep, vbDirectory) = "" Then
> > > MkDir NomRep
> > > End If
> > >
> > >
> > > --
> > > Cordialement,
> > >
> > > Gilbert
> > >
> > >
> > > "maxben" a écrit dans le message


de
> > > news:
> > > > Bonjour,
> > > > Est il possible de créer automatiquement un répertoire quand on


entre
> le
> > > > chemin d'accès dans un formulaire pour créer un lien.
> > > >
> > > > Merci beaucoup
> > >
> > >
> > > Merci pour ton info, mais est il possible de faire vérifier


l'existence
> du répertoire car il y a une racine fixe :
> > serveursqlgroupescourrier"à créer", si le sous répertoire existe


déjà
> > il ne faudra pas le créer.
> > Le formulaire a 3 contrôles
> > C1: Classement C2:sserveursqlgroupes C3:"à créer"
> >
> > Merci
> > @+
>
>
>


Avatar
maxben
Merci beaucoup pour ton aide


"Gilbert" a écrit :


Dim NomRep As String
NomRep = "c:test"
If Dir(NomRep, vbDirectory) = "" Then
if msgbox("Le répertoire " & Nomrep & " n'existe pas." & vbcrlf &
"Voulez-vous le créer?",vbyesno) =vbyes then
MkDir NomRep
msgbox "("Le répertoire " & Nomrep & " a été créé."
endif
End If

--
Cordialement,

Gilbert


"maxben" a écrit dans le message de
news:
> Est il possible de créer un MsgBox pour demander confirmation de la
création
> s'il n'existe pas ?
> Cdlt
>
> "Gilbert" a écrit :
>
> > Bonjour,
> >
> > Le test d'existence du répertoire est fait par
> > If Dir(NomRep, vbDirectory) = "" Then
> >
> > Par contre si le dossier de niveau supérieur n'existe pas tu auras une
> > erreur.
> > Par exemple pour créer le dossier Toto dans c:tata il faut que le
dossier
> > tata existe.
> >
> > --
> > Cordialement,
> >
> > Gilbert
> >
> >
> > "maxben" a écrit dans le message de
> > news:
> > >
> > >
> > > "Gilbert" a écrit :
> > >
> > > > Bonjour,
> > > >
> > > > Tu peux essayer avec ce code.
> > > >
> > > > Dim NomRep As String
> > > > NomRep = "c:test"
> > > > If Dir(NomRep, vbDirectory) = "" Then
> > > > MkDir NomRep
> > > > End If
> > > >
> > > >
> > > > --
> > > > Cordialement,
> > > >
> > > > Gilbert
> > > >
> > > >
> > > > "maxben" a écrit dans le message
de
> > > > news:
> > > > > Bonjour,
> > > > > Est il possible de créer automatiquement un répertoire quand on
entre
> > le
> > > > > chemin d'accès dans un formulaire pour créer un lien.
> > > > >
> > > > > Merci beaucoup
> > > >
> > > >
> > > > Merci pour ton info, mais est il possible de faire vérifier
l'existence
> > du répertoire car il y a une racine fixe :
> > > serveursqlgroupescourrier"à créer", si le sous répertoire existe
déjà
> > > il ne faudra pas le créer.
> > > Le formulaire a 3 contrôles
> > > C1: Classement C2:sserveursqlgroupes C3:"à créer"
> > >
> > > Merci
> > > @+
> >
> >
> >