Discussion :

[cfidko]

Bonjour tout le monde,

Je voudrais savoir comment je pourrai creer des nouveaux dossier à partir d'acces comme sur windows ?
Merci d'avance.

[oops1980]

pourquoi veux tu faire ca?

[tAKAmAkA]

Bonjour et bienvenue,
Aides toi et le forum t'aidera...
Une recherche "créer répertoire" sur la FAQ t'aurai apporté beaucoup...

[cfidko]

J'avais deja regarder dans la FAQ, mais il disait qu'il fallait utilisé la fonction Mkdir(). Pour l'instant, je n'ai trouvé aucun renseignement sur cette fonction.
Est ce vous pourriez me donner une piste ?
En fait j'ai besoin de ca car je dois créer un gestionnaires de fichiers.
Merci d'avance.

[Toftof]

Faisons simple :
Histoire d éviter une erreur, commencer par vérifier s'il n existe pas deja

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if dir("c:\temp\NewRep", vbDirectory) > "" then
    le repertoire existe
else
    creer le repertoire
end if

Une fois la verif executee, le creer ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
mkdir "c:\temp\NewRep"

[argyronet]

Bonjour,

MKdir permet de créer un dossier mais manque de souplesse.
Regarde du coté des FSO (Scripting runtime) où tu disposes de tout un lot de propriétés et méthodes pour la gestion des dossiers et fichiers avec une grande facilté...

Argy

[Tierisa]

voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set fs = CreateObject("Scripting.FileSystemObject")
    a = fs.FolderExists("c:\nomdossier")
    If a = False Then
    'create folder
        a = fs.CreateFolder("c:\nomdossier")
    End If

sans oublier d'activer la référence qui va bien "microsoft DAO..." si je ne me trompe pas

[argyronet]

sans oublier d'activer la référence qui va bien "microsoft DAO..." si je ne me trompe pas

Eh si !!! Tu t'es trompé...
La référence est scrrun.dll (Microsoft Scripting Runtime)

Argy

[cfidko]

Bonjour,

J'ai réussis à créer les répertoires mais maintenant j'ai un autre probleme.
Le truc c'est je veux créer un nouveau répertoire dans un répertoire que je viens juste de créer avant.
Il crée le 1er répertoire mais à partir de là, ca beug.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
If Dir("C:\Documents and Settings\X\Bureau\Projet\" & Numéro.Value & " -" & NAffaire.Value, vbDirectory) > "" Then
        MsgBox ("Cette Affaire existe déjà")
    Else
        MkDir "C:\Documents and Settings\X\Bureau\Projet\" & NAffaire.Value & " -" & Numéro.Value
End If
        MkDir "C:\Documents and Settings\X\Bureau\Projet\& NAffaire.Value & " - " & Numéro.Value\ESQ"
 
        MkDir "C:\Documents and Settings\X\Bureau\Projet\& NAffaire.Value & " - " & Numéro.Value\ESQ\Secrétariat"
 
        MkDir "C:\Documents and Settings\X\Bureau\Projet\ESQ\& NAffaire.Value & " - " & Numéro.Value\ESQ\Autocad"

[Toftof]

Est-ce une erreur de recopie ou as-tu véritablement oublié les guillemets dans ton code ?

[cfidko]

Non je ne pense pas , en tout cas il n y a pas d'erreur de copie. Mais si tu peux me corriger, ce serait sympa.
Merci d'avance.

[Toftof]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
If Dir("C:\Documents and Settings\X\Bureau\Projet\" & Numéro.Value & " - " & NAffaire.Value, vbDirectory) > "" Then
        MsgBox ("Cette Affaire existe déjà")
    Else
        MkDir "C:\Documents and Settings\X\Bureau\Projet\" & NAffaire.Value & " -" & Numéro.Value & ""
End If
        MkDir "C:\Documents and Settings\X\Bureau\Projet\" & NAffaire.Value & " - " & Numéro.Value & "\ESQ"
 
        MkDir "C:\Documents and Settings\X\Bureau\Projet\" & NAffaire.Value & " - " & Numéro.Value & "\ESQ\Secrétariat"
 
        MkDir "C:\Documents and Settings\X\Bureau\Projet\ESQ\" & NAffaire.Value & " - " & Numéro.Value & "\ESQ\Autocad"

A priori c'est bon mais je n'ai pas pris le temps de vérifier.
De toute manière, toujours respecter la règle : à un guillemet ouvrant doit toujours correspondre un guillemet fermant.

[cfidko]

Merci beaucoup ca à marché.