Besoin d'aide pour dossier VBRésolu

Question

Bonsoir a tous :)



Voila j'ai un ptit probleme !



en fait, je veux creer une liste de dossier. L'arborescence des dossier, c'est comme ca :



c:\dossier1\

c:\dossier1\dossier2\

c:\dossier1\dossier3\

.

.

.



Donc, les dossier 2 et 3, ce sont des projet, alors que le dossier 1 c'est le nom du programme. J'utilise donc ceci :



MkDir "C:\Dossier1"

MkDir "C:\Dossier1\Dossier2"

et ainsi de suite



mais la couille, c'est qu'il se peut que le dossier1 existe deja, alors
quand je lance la commande MkDir "C:\Dossier1" ca plante :-/ 

Donc je voudrais tester, savoir si le dossier existe deja, j'ai tent&#233; ceci :



    Dim Existant As String

    Existant = Dir("C:\Dossier1")

    If Existant = ("C:\Dossier1") Then

        MsgBox "Path deja existant"

    Else:

        MkDir "C:\Dossier1"

    End If



Mais ca marche pas :(

Quelqu'un a la solution (dites moi oui :))



merci et bonne nuit :)

Gobillot · Accepted Answer

il y a toujours une entr&#233;e . et .. sauf dans le r&#233;pertoire racine

    If Dir("C:\Dossier1"
, vbDirectory) <> "" Then
       MsgBox "Le Dossier existe d&#233;j&#224;"
       Else
       MsgBox "Le Dossier n'existe pas"
       End If

Daniel

jpleroisse · Answer

S'il y a un fichier dans le dossier &#231;a marche

Private Sub Command2_Click()
If (Dir("C:\Dossier1\Classeur1.xls")) = "Classeur1.xls" Then
MsgBox "Le Fichier existe d&#233;j&#224;"
Else
MsgBox "Le Fichier n'existe pas"
End If
End Sub

jpleroisse

Dexterage · Answer

merci a vous deux :)

le truc de Gobillot est plus apropri&#233; a la situation, etant donn&#233;e que les dossier sont cr&#233;&#233;s vides (vous vous dites pk faire ca, mais faut pas poser la question :)

merci ca marche :p

Besoin d'aide pour dossier VB

3 réponses

Discussions similaires