Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft vérification et création dossiers

vérification et création dossiers

4 réponses
Avatar
Normand
Bonjour,
Je n'y connais rien en script et j'aimerais avoir un script (vbs de
préférence) qui vérifie l'existe de quelques répertoires et si ceux-ci
n'existent pas, il devra les créer.
Merci beaucoup de votre aide.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilles LAURENT [MVP]
"Normand" a écrit dans le message de
news:%
| Bonjour,

Bonjour,

| Je n'y connais rien en script et j'aimerais avoir un script (vbs de
| préférence) qui vérifie l'existe de quelques répertoires et si ceux-ci
| n'existent pas, il devra les créer.
| Merci beaucoup de votre aide.

Ci-dessous le script VBScript CreateFolder.vbs permettant de vérifier
l'existance d'un dossier transmis comme argument et de le créer si celui
n'existe pas. La création du dossier est récursive, c'est à dire que
l'arborescence complete du dossier spécifié est créée.

Usage :
createFolder.vbs <folder>

Exemple :
CScript //nologo createFolder.vbs D:TestFolder1Folder2

--- Coupez ici : createFolder.vbs ---
Set oFs=CreateObject("Scripting.FileSystemObject")
strPath=WScript.Arguments(0)
If Not oFs.FolderExists(strPath) Then
CreateFolder (strPath)
Else
WScript.Echo "Folder " & strPath & " already exists"
End If

Sub CreateFolder(strPath)
If Not oFs.FolderExists(oFs.GetParentFolderName(strPath)) Then
CreateFolder (oFs.GetParentFolderName(strPath))
End If
WScript.Echo "Creating folder " & strPath & " ..."
oFs.CreateFolder(strPath)
End Sub
--- Coupez ici : createFolder.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Avatar
Gilles LAURENT [MVP]
"Normand" a écrit dans le message de
news:%
| Bonjour,

Bonjour,

| Je n'y connais rien en script et j'aimerais avoir un script (vbs de
| préférence) qui vérifie l'existe de quelques répertoires et si ceux-ci
| n'existent pas, il devra les créer.
| Merci beaucoup de votre aide.

La version Batch :

Usage :
createFolder.cmd <folder>

Exemple :
createFolder.cmd D:TestFolder1Folder2 || echo Folder already exists

--- Coupez ici : createFolder.cmd ---
@echo off
md %1 2>nul && echo Creating folder %1 ...
--- Coupez ici : createFolder.cmd ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Avatar
Normand
Quels sont les lignes que je dois modifier afin d'y configurer mes
paramètres ?

Le but de ce script est de créer les dossiers suivants à la racine du
répertoire personnel de chaque usager qui se connecte au réseau et qui n'a
pas ces dossiers, afin d'y rediriger ces répertoires ailleurs que dans le
profil de l'usager: Favoris, Mes Documents, Mes images et Bureau.

Où dois-je modifier le script pour y faire ce que je veux ?

Merci.


"Gilles LAURENT [MVP]" a écrit dans le message de groupe de
discussion :
"Normand" a écrit dans le message de
news:%
| Bonjour,

Bonjour,

| Je n'y connais rien en script et j'aimerais avoir un script (vbs de
| préférence) qui vérifie l'existe de quelques répertoires et si ceux-ci
| n'existent pas, il devra les créer.
| Merci beaucoup de votre aide.

Ci-dessous le script VBScript CreateFolder.vbs permettant de vérifier
l'existance d'un dossier transmis comme argument et de le créer si celui
n'existe pas. La création du dossier est récursive, c'est à dire que
l'arborescence complete du dossier spécifié est créée.

Usage :
createFolder.vbs <folder>

Exemple :
CScript //nologo createFolder.vbs D:TestFolder1Folder2

--- Coupez ici : createFolder.vbs ---
Set oFs=CreateObject("Scripting.FileSystemObject")
strPath=WScript.Arguments(0)
If Not oFs.FolderExists(strPath) Then
CreateFolder (strPath)
Else
WScript.Echo "Folder " & strPath & " already exists"
End If

Sub CreateFolder(strPath)
If Not oFs.FolderExists(oFs.GetParentFolderName(strPath)) Then
CreateFolder (oFs.GetParentFolderName(strPath))
End If
WScript.Echo "Creating folder " & strPath & " ..."
oFs.CreateFolder(strPath)
End Sub
--- Coupez ici : createFolder.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr




Avatar
Normand
J'ai également une erreur de compilation Caractère incorrect ligne 1
caractère 1 lors de l'exécution du script.

Merci.


"Normand" a écrit dans le message de groupe de
discussion :
Quels sont les lignes que je dois modifier afin d'y configurer mes
paramètres ?

Le but de ce script est de créer les dossiers suivants à la racine du
répertoire personnel de chaque usager qui se connecte au réseau et qui n'a
pas ces dossiers, afin d'y rediriger ces répertoires ailleurs que dans le
profil de l'usager: Favoris, Mes Documents, Mes images et Bureau.

Où dois-je modifier le script pour y faire ce que je veux ?

Merci.


"Gilles LAURENT [MVP]" a écrit dans le message de groupe
de discussion :
"Normand" a écrit dans le message de
news:%
| Bonjour,

Bonjour,

| Je n'y connais rien en script et j'aimerais avoir un script (vbs de
| préférence) qui vérifie l'existe de quelques répertoires et si ceux-ci
| n'existent pas, il devra les créer.
| Merci beaucoup de votre aide.

Ci-dessous le script VBScript CreateFolder.vbs permettant de vérifier
l'existance d'un dossier transmis comme argument et de le créer si celui
n'existe pas. La création du dossier est récursive, c'est à dire que
l'arborescence complete du dossier spécifié est créée.

Usage :
createFolder.vbs <folder>

Exemple :
CScript //nologo createFolder.vbs D:TestFolder1Folder2

--- Coupez ici : createFolder.vbs ---
Set oFs=CreateObject("Scripting.FileSystemObject")
strPath=WScript.Arguments(0)
If Not oFs.FolderExists(strPath) Then
CreateFolder (strPath)
Else
WScript.Echo "Folder " & strPath & " already exists"
End If

Sub CreateFolder(strPath)
If Not oFs.FolderExists(oFs.GetParentFolderName(strPath)) Then
CreateFolder (oFs.GetParentFolderName(strPath))
End If
WScript.Echo "Creating folder " & strPath & " ..."
oFs.CreateFolder(strPath)
End Sub
--- Coupez ici : createFolder.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr