création repertoireRésolu

Question

Slt, je veux recupérer le texte d'un textbox puis créer un repertoire du meme nom par exemple dans c:\mondossier. Qu'elqu'un peut m'aider?Merci.

ddove53 · Accepted Answer

C'était ça l'erreur:
MkDir "s:\Affaire" & numeroaff
 MkDir "S:\Affaire" & numeroaff

gillardg · Answer

dos = mkdir path

bonjour chez vous!
< body>

ddove53 · Answer

c'est à dire? Peux-tu plus détailler?

ddove53 · Answer

je peux faire?
mkdir "c:\path	ext1.text"

ddove53 · Answer

Au fait voici mon code:

   Msg = MsgBox("L'affaire " & numeroaff & " n'a pas de répertoire sur S." & Chr(13) & "Voulez-vous le créer ?", vbYesNo + vbCritical, "Chargement d'une affaire")
        If Msg = vbNo Then
            Screen.MousePointer = 0 'change le curseur en flèche
            Exit Sub
        End If
    MkDir "s:\Affaire" & numeroaff

J'ai un probléme d'accés au niveau de la dernière ligne de code

ddove53 · Answer

help pleaz.

ddove53 · Answer

Le repertoire est créé si je mets le nom du dossier entre les "", mais il ne se crée pas quand j'utilise ma variable. Pouvez-vous m'aider?

fga82 · Answer

Si tu veux vérifier que ton répertoire "Truc" existe et le créer en cas d'inexistence.

Str_Repertoire =  "C:\Truc"

Dim Myname

'Vérifie que le repertoire existe
Myname = Dir(Str_Repertoire, vbDirectory)

If Myname = "" Then     'Le répertoire n'existe pas
    
    MkDir Str_Repertoire

End If

Tu a l'air d'avoir tout bon, mais ton disque  s:  existe t'il ???
Ou essaie de concaténer dans une variable pour l'utiliser avec ton Mkdir
Str_Repertoire  ="s:\Affaire" & numeroaff
MkDir Str_Repertoire

ddove53 · Answer

Merci quand meme mais j'ai trouvé la réponse (postulé plus haut).

Création repertoire

9 réponses

Votre réponse

Discussions similaires