Discussion :

[PrinceMaster77]

J'ai connait la syntaxe me permettant de vérifier la présence d'un répertoire mais je voudrais si le répertoire n'existe pas le créer mais je ne vois pas comment faire ??

[philippe123]

Code :

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

1
2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\FSO")

ou :

Code :

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

1
2
3
4
ParentFolder = "C:\" 
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.NameSpace(ParentFolder) 
objFolder.NewFolder "Archive"

[philippe123]

tu peux telecharger une compilation de scripts chez microsoft

ScriptCenter

http://www.microsoft.com/downloads/details.aspx?displaylang=en&familyid=b4cb2678-dafb-4e30-b2da-b8814fe2da5a

[Pymm]

moi je fais ça :

Code :

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

1
2
3
4
5
6
7
 
pth_fold=Server.MapPath(fold)
' Test du répertoire
If Not fso.FolderExists(pth_fold) Then
	 ' Creation du repertoire
	 Set f=fso.CreateFolder(pth_fold)	 
End If