Creation de repertoire

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilbert
Le #17833631
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" 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


maxben
Le #17841781
"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" 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
@+
Gilbert
Le #17843871
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" 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" > 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
@+


maxben
Le #17845241
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" 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" > > 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
> @+





Gilbert
Le #17850971
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" 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" > 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"

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
> > @+
>
>
>


maxben
Le #17856441
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" 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" > > 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" 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
> > > @+
> >
> >
> >





Publicité
Poster une réponse
Anonyme