Discussion :

[CHARLI BONGO]

Salut à tous , je viens par ce message demander votre aide.
Comment puis-je créer un nouveau répertoire sur un serveur à partir d'un poste client ?.

J'ai essayé le code ci-dessous, mais ça ne marche

Code :

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

1
2
3
ChDir "\\Serveurpapc\bd pdc\\DOSSIER"
If Err Then MkDir "\\Serveurpapc\bd pdc\\DOSSIER"
On Error GoTo 0

NB : \\Serveurpapc\bd pdc\ --- Répertoire déjà existant sur le serveur
\\Serveurpapc\bd pdc\\DOSSIER --DOSSIER, nouveau répertoire à créer


D'avance merci pour votre aide

[Maxence HUBICHE]

Déjà, tu mets trop de \ dans ton path.
Cela devrait plutôt être : \\Serveurpapc\bd pdc\DOSSIER

Ensuite, tu peux essayer avec la fonction DIR

Code :

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

1
2
3
4
 
CONST MyPath as String = "\\Serveurpapc\bd pdc\\DOSSIER"
 
IF DIR(MyPath,vbDirectory) ="" THEN MKDIR MyPath

[CHARLI BONGO]

Je vous remercie pour votre réponse qui a été vraiment rapide .
Mais malheureusement ça ne marche pas .
ERREUR renvoyé : erreur d'exécution "52"

Nom ou Numéro de fichier incorrect.

En fait , le répertoire "bd pdc" est un répertoire partagé qui est sur le serveur et "Serveurpapc" est le nom du serveur.
Donc depuis le poste client le chemin que j'obtiens est :
"\\Serveurpapc\bd pdc"
Je veux donc créer un nouveau répertoire nommé "DOSSIER" dans le répertoire
"bd pdc"

Merci

[RobiPMS]

Bonjour à tous les deux.
Ne serait-ce pas plutôt

Code :

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

1
2
3
4
CONST MyPath as String = "\\Serveurpapc\bd pdc\DOSSIER"
If Dir(MyPath, vbDirectory) = "" Then
MkDir MyPath
End If

Il ne faut pas deux \ avant DOSSIER...
Cordialement

[Maxence HUBICHE]

Il ne faut pas deux \ avant DOSSIER...
Cordialement

Erf !!
Une erreur de copier-coller, alos que j'indiquais juste avant qu'il ne fallait pas les 2 \\...

Sinon, le

Code :

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

1
2
 
IF test THEN action

est, dans ce cas, équivalent à ton

Code :

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

1
2
3
4
 
IF test THEN
action
END IF

Ces deux structures sont valides.
La deuxième est plus propre.
Et même, celle-ci serait encore plus propre :

Code :

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

1
2
3
4
5
6
 
IF test THEN
action
ELSE
'rien à faire puisque le dossier existe déjà
END IF

[RobiPMS]

Oui, Maxence, ma correction ne portait que sur le double\. La suite de la structure est une question d'habitudes ou de petits manies personnelles.
Et la dernière est effectivement la plus propre!
Bonne journée!