Bonjour à toutes et à tous,
Comment vérifier si un path existe ?
Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire
existe déjà, est-il possible de shunter ce message d'erreur et de faire
comme si de rien ?
Merci de votre aide,
Lulu
On Error Resume Next ' reprendre à suivant MKDIR xxx ON Error Goto 0 ' annule la gestion erreur
JB
Jacques93
Bonjour Lulu la nantaise,
Dim dName As String
dName = "C:Toto" If Len(Dir(dName, vbDirectory)) > 0 Then MsgBox "Un répertoire ou un fichier " & dName & " existe déja !" Else On Error Resume Next Err.Clear MkDir dName If Err.Number <> 0 Then MsgBox "Erreur n° " & Err.Number & vbCrLf & _ Err.Description & "lors de la création de " & dName End If On Error GoTo 0 End If End Sub
Bonjour à toutes et à tous, Comment vérifier si un path existe ? Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire existe déjà, est-il possible de shunter ce message d'erreur et de faire comme si de rien ? Merci de votre aide, Lulu
-- Cordialement,
Jacques.
Bonjour Lulu la nantaise,
Dim dName As String
dName = "C:Toto"
If Len(Dir(dName, vbDirectory)) > 0 Then
MsgBox "Un répertoire ou un fichier " & dName & " existe déja !"
Else
On Error Resume Next
Err.Clear
MkDir dName
If Err.Number <> 0 Then
MsgBox "Erreur n° " & Err.Number & vbCrLf & _
Err.Description & "lors de la création de " & dName
End If
On Error GoTo 0
End If
End Sub
Bonjour à toutes et à tous,
Comment vérifier si un path existe ?
Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire
existe déjà, est-il possible de shunter ce message d'erreur et de faire
comme si de rien ?
Merci de votre aide,
Lulu
dName = "C:Toto" If Len(Dir(dName, vbDirectory)) > 0 Then MsgBox "Un répertoire ou un fichier " & dName & " existe déja !" Else On Error Resume Next Err.Clear MkDir dName If Err.Number <> 0 Then MsgBox "Erreur n° " & Err.Number & vbCrLf & _ Err.Description & "lors de la création de " & dName End If On Error GoTo 0 End If End Sub
Bonjour à toutes et à tous, Comment vérifier si un path existe ? Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire existe déjà, est-il possible de shunter ce message d'erreur et de faire comme si de rien ? Merci de votre aide, Lulu
-- Cordialement,
Jacques.
Lulu la nantaise
Vous êtes les meilleurs !!! Merci beaucoup Lulu "Lulu la nantaise" a écrit dans le message de news:%
Bonjour à toutes et à tous, Comment vérifier si un path existe ? Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire existe déjà, est-il possible de shunter ce message d'erreur et de faire comme si de rien ? Merci de votre aide, Lulu
Vous êtes les meilleurs !!!
Merci beaucoup
Lulu
"Lulu la nantaise" <je_suis_curieux@laposte.net> a écrit dans le message de
news:%23HTXtYe4FHA.700@TK2MSFTNGP15.phx.gbl...
Bonjour à toutes et à tous,
Comment vérifier si un path existe ?
Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire
existe déjà, est-il possible de shunter ce message d'erreur et de faire
comme si de rien ?
Merci de votre aide,
Lulu
Vous êtes les meilleurs !!! Merci beaucoup Lulu "Lulu la nantaise" a écrit dans le message de news:%
Bonjour à toutes et à tous, Comment vérifier si un path existe ? Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire existe déjà, est-il possible de shunter ce message d'erreur et de faire comme si de rien ? Merci de votre aide, Lulu
michdenis
Bonjour Lulu,
Il y a aussi ceci :
Tu insères dans ta procédure la ligne de commande te permettant de tester et de créer au besoin la ligne d'arborescence des fichiers soumis. Ceci requiert Excel 2000 ou plus récent à cause de la fonction "Split"
'----------------------- Sub Test()
CréerRépertoire "c:Tot1TAtaTiti"
End Sub '-----------------------
'-------------------------- Sub CréerRépertoire(MonPath As String) Dim S As Variant, A As Integer, P As String S = Split(MonPath, "") For A = 0 To UBound(S) P = P & S(A) & "" If Dir(P, vbDirectory) = "" Then MkDir (P) End If Next End Sub '--------------------------
Salutations!
"Lulu la nantaise" a écrit dans le message de news: % Bonjour à toutes et à tous, Comment vérifier si un path existe ? Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire existe déjà, est-il possible de shunter ce message d'erreur et de faire comme si de rien ? Merci de votre aide, Lulu
Bonjour Lulu,
Il y a aussi ceci :
Tu insères dans ta procédure la ligne de commande te permettant de tester et de créer au besoin la ligne d'arborescence des fichiers
soumis. Ceci requiert Excel 2000 ou plus récent à cause de la fonction "Split"
'-----------------------
Sub Test()
CréerRépertoire "c:Tot1TAtaTiti"
End Sub
'-----------------------
'--------------------------
Sub CréerRépertoire(MonPath As String)
Dim S As Variant, A As Integer, P As String
S = Split(MonPath, "")
For A = 0 To UBound(S)
P = P & S(A) & ""
If Dir(P, vbDirectory) = "" Then
MkDir (P)
End If
Next
End Sub
'--------------------------
Salutations!
"Lulu la nantaise" <je_suis_curieux@laposte.net> a écrit dans le message de news: %23HTXtYe4FHA.700@TK2MSFTNGP15.phx.gbl...
Bonjour à toutes et à tous,
Comment vérifier si un path existe ?
Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire
existe déjà, est-il possible de shunter ce message d'erreur et de faire
comme si de rien ?
Merci de votre aide,
Lulu
Tu insères dans ta procédure la ligne de commande te permettant de tester et de créer au besoin la ligne d'arborescence des fichiers soumis. Ceci requiert Excel 2000 ou plus récent à cause de la fonction "Split"
'----------------------- Sub Test()
CréerRépertoire "c:Tot1TAtaTiti"
End Sub '-----------------------
'-------------------------- Sub CréerRépertoire(MonPath As String) Dim S As Variant, A As Integer, P As String S = Split(MonPath, "") For A = 0 To UBound(S) P = P & S(A) & "" If Dir(P, vbDirectory) = "" Then MkDir (P) End If Next End Sub '--------------------------
Salutations!
"Lulu la nantaise" a écrit dans le message de news: % Bonjour à toutes et à tous, Comment vérifier si un path existe ? Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire existe déjà, est-il possible de shunter ce message d'erreur et de faire comme si de rien ? Merci de votre aide, Lulu
leo
Bonsoir,
Lulu la Nantaise, ça fleur bon les "Tontons Flingueurs"
Amicalement, Leo
-------------------------------------------------------- Pour les riders, BMX, VTT, un seul site Little Big Trail http://perso.wanadoo.fr/lbt/ --------------------------------------------------------
"Lulu la nantaise" a écrit dans le message de news: %
Bonjour à toutes et à tous, Comment vérifier si un path existe ? Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire existe déjà, est-il possible de shunter ce message d'erreur et de faire comme si de rien ? Merci de votre aide, Lulu
Bonsoir,
Lulu la Nantaise, ça fleur bon les "Tontons Flingueurs"
Amicalement,
Leo
--------------------------------------------------------
Pour les riders, BMX, VTT, un seul site
Little Big Trail
http://perso.wanadoo.fr/lbt/
--------------------------------------------------------
"Lulu la nantaise" <je_suis_curieux@laposte.net> a écrit dans le message de
news: %23HTXtYe4FHA.700@TK2MSFTNGP15.phx.gbl...
Bonjour à toutes et à tous,
Comment vérifier si un path existe ?
Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire
existe déjà, est-il possible de shunter ce message d'erreur et de faire
comme si de rien ?
Merci de votre aide,
Lulu
Lulu la Nantaise, ça fleur bon les "Tontons Flingueurs"
Amicalement, Leo
-------------------------------------------------------- Pour les riders, BMX, VTT, un seul site Little Big Trail http://perso.wanadoo.fr/lbt/ --------------------------------------------------------
"Lulu la nantaise" a écrit dans le message de news: %
Bonjour à toutes et à tous, Comment vérifier si un path existe ? Lorsque je crée un répertoire avec la commande MkDir et que ce répertoire existe déjà, est-il possible de shunter ce message d'erreur et de faire comme si de rien ? Merci de votre aide, Lulu
Jacques93
Bonsoir leo,
Ben t'as pu toute ta tête, c'est par ici, et zou !!!
